Unnamed

procedure 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;