Ehlib3分行不同背景颜色设置

procedure TWeightForm.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
  if Query1.RecNo mod 4=0 then
  begin
    DBGridEh1.Canvas.Brush.Color :=clGreen;
    DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
  if Query1.RecNo mod 5=0 then
  begin
    DBGridEh1.Canvas.Brush.Color :=clYellow;
    DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
  if Query1.RecNo mod 6=0 then
  begin
    DBGridEh1.Canvas.Brush.Color := clRed;
    DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
{else
begin
DBGridEh1.Canvas.Brush.Color := clGreen;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end; }
end;

转载于:https://www.cnblogs.com/mascgh/p/3447135.html