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;