procedure TForm_Main.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with DBGrid1.Canvas do begin if DBGrid1.DataSource.DataSet.RecNo mod 2 =0 then DBGrid1.Canvas.Brush.Color:= clBackground else DBGrid1.Canvas.Brush.Color:= clWhite; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGrid1.Canvas do
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 =0 then
DBGrid1.Canvas.Brush.Color:= clBackground
else
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;