Fórum Deixar o dbgrid com o fundo Cinza ou Branco cfe o dia #324152

procedure gridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Year, Month, Day: Word;
begin
  DecodeDate(CampoData.Value, Year, Month, Day);
  If odd(Day) then
     begin
     gridMain.Canvas.Brush.Color:= clSilver;
     end
  else
     begin
     gridMain.Canvas.Brush.Color:= clWhite;
     end;

  if gdSelected in State then
     begin
     gridMain.Canvas.Font.Color:= clWhite;
     gridMain.Canvas.Brush.Color:= clNavy;
     end;

  grid.DefaultDrawDataCell(rect,Column.Field,State);
end;