?dbgrid

آیا می توان هر سطر از dbgrid را در هنگام نمایش با یک رنگ دید ؟ برای مثال سطر های فرد سفید و سطر های زوج خاکستری روشن.

procedure TForm1.DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if ((Sender as tdbgrid).DataSource.DataSet.RecNo mod 2) = 0 then

    TDBGrid(Sender).Canvas.Brush.Color := clinfobk; //or any color

  if not(GDSelected in State) Then

    TDBGrid(Sender).DefaultDrawColumnCell(rect, datacol, column, state);

end;

یه جستجو کوچولو = نتایج کامل در این زمینه