Einfärben des Grids

[Flash68]

Ich hab den Fehler gefunden:

Delphi-Quellcode:

procedure TFRM_Main.DBG_RechnerDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  test1: real;
  RowNo: Integer;
  farbe: Integer;
begin
  with (Sender as TDBGrid) do
  begin
    if (gdSelected in State) then
    begin
      farbe := clskyblue;
    end
    else
    begin
      if Odd(DM_Rechner.ADO_DS_Rechner.RecNo) then
        farbe := clSilver
      else
        farbe := clWhite;
      end;
    canvas.brush.Color := farbe;
    DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
  end;
end;

die letzten 2 Zeilen waren außerhalb des ends und deshalb wußte die procedure nicht das es zum dbgrid gehört.

Aber das hat auch nicht geholfen, es sind immer noch alle Zeilen silber.