1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TfrmDesigner.grdDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with grd.Canvas do begin
    if  tbl.RecNo mod 2 = 0 then
      Brush.Color  := clYellow
    else
      Brush.Color  := clAqua;
    FillRect(Rect);
  end;
  grd.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;