1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TfrmAdresse.DBGridKundeDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var dbGrd:TDBGrid;
begin
  dbGrd:=TDBGrid(Sender);
  if gdSelected in State then
  begin
    dbGrd.Canvas.Brush.Color := $00DDDDFF;
    dbGrd.Canvas.Font.Color := clBlack;
  end  {need that highlight for 'focus'}
  else
 if (DMAdresse.DSKundeGrid.DataSet.RecNo mod 2) = 0 then
  begin
    dbGrd.Canvas.Font.Color := clBlack;
    dbGrd.Canvas.Brush.Color := $00FFBBBB  //clSilver;
  end;
  dbGrd.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure THauptForm.DBGrid5DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
     if KADaoTable14.RecNo mod 2 =0 then
        DBGrid5.Canvas.Brush.Color:=12648324
     else
         DBGrid5.Canvas.Brush.Color:=clWhite;
     DBGrid5.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;