Fórum Delphi 10 Seattle Como Colorir a Dbgrid ? #550424

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const [Ref] Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid: TDBGrid;
  row: Integer;
begin
  grid := Sender as TDBGrid;
  row := grid.DataSource.DataSet.RecNo;
  if Odd(row) then
    grid.Canvas.Brush.Color := clMoneyGreen
  else
    grid.Canvas.Brush.Color := clSkyBlue;
  grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;