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.