Unnamed
public text v1 · immutableprocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Flip:boolean;
begin
Flip:=dbGrid1.DataSource.DataSet.RecNo mod 2 = 0;
if Flip then dbGrid1.Canvas.Brush.Color:=$808080
else dbGrid1.Canvas.Brush.Color:=$c0c0c0;
dbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;