*freu*.... ich habs, Trial & Error sei dank, kam ich im Endeffekt auf folgende Lösung:
Delphi-Quellcode:
procedure TMainForm.grArtikelDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If ((qMatBestand.RecNo mod 2) = 0) then begin
grArtikel.Canvas.Brush.Color := clGreen;
grArtikel.DefaultDrawColumnCell(Rect, 0, Column, State);
end;
end;
vielen Dank für eure Aufmerksamkeit
mfG