Einfärben des Grids

[DeddyH]

Tja, ich weiß es auch nicht. Bei mir klappt es so wunderbar:

Delphi-Quellcode:

procedure TFRM_Main.DBG_RechnerDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid: TDBGrid;
  farbe: TColor;
begin
  grid := Sender as TDBGrid;
  if (gdSelected in State) then
  begin
    farbe := clSkyBlue;
  end
  else
  begin
    if Assigned(grid.Datasource) and Assigned(grid.Datasource.Dataset) and 
       Odd(grid.DataSource.DataSet.RecNo) then
      farbe := clSilver
    else
      farbe := clWhite;
  end;
  grid.Canvas.Brush.Color := farbe;
  grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
end;