Zeilenformatierung im DBGrid

[sakura]

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