Ok, hatte das RecNo missverstanden.
Jetzt habe ich es hinbekommen die Zeilen alternierend einzufärben.
Dabei tauchte leider ein weiteres Problem auf: die Einfärbung der Zeilen "übermalt" die blaue Hinterlegung der Zeile, dessen Zelle gerade ausgewählt ist.
Hier der wesentliche Quelltext:
Delphi-Quellcode:
procedure MeinVonTDBGridAbgeleitetesGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
var
RowNo : Integer;
begin
RowNo := DataSource.DataSet.RecNo;
if not Odd(RowNo) then
Canvas.Brush.Color := myRowColor;
else
Canvas.Brush.Color := Color;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Wie lässt sich das vermeiden?