Wenn Du bereits mit dem Ereignis OnDrawColumnCell gearbeitet hast, ist es relativ einfach, ansonsten muss wird es komplexer.
Ein kleines Beispiel:
Code:
[b]procedure[/b] TfrmDelphiExpert.DBGrid1DrawColumnCell(Sender: TObject;
[b]const[/b] Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
[b]var[/b]
C: TCanvas;
[b]begin[/b]
[b]if[/b] Sender [b]is[/b] TDBGrid [b]then[/b]
[b]begin[/b]
C := TDBGrid(Sender).Canvas;
[b]if[/b] TDBGrid(Sender).DataSource.DataSet.RecNo [b]mod[/b] 2 = 0 [b]then[/b]
C.Brush.Color := clWhite
[b]else[/b]
C.Brush.Color := clSilver;
C.FillRect(Rect);
C.TextRect(Rect, Rect.Left, Rect.Top, Column.Field.AsString);
[b]end[/b];
[b]end[/b];