Hallo Kollegen,
jetzt hab ich die Lösung gefunden...
Delphi-Quellcode:
procedure tSEStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
AState: TGridDrawState);
begin
inherited;
if not Odd(ARow) and not ((gdFixed in aState) or (gdSelected in aState)) then
begin
Canvas.Brush.Color := clWebMintcream;
Canvas.FillRect(aRect);
Canvas.TextOut(aRect.Left+2, aRect.Top+2, Cells[ACol, ARow]);
end;
end;
die Selektion musste noch ausgeschlossen werden.
Grüsse und noch einen schönen Abend
gg