Hab es gelöst:
Delphi-Quellcode:
if ARow = FCurrentRow1 then
c := TColor ($00FF00)
else
if not ((gdFixed in State) or Odd (ARow)) then
c := TColor ($D9D9C0)
else
c := clwhite;
Stringgrid1.Canvas.Brush.Color := c;
Stringgrid1.Canvas.FillRect (Rect);
Stringgrid1.Canvas.TextOut (Rect.Left + 2, Rect.Top + 2, Stringgrid1.Cells [ACol, ARow]);
if (gdSelected in state) then
with Stringgrid1 do
begin
Canvas.Brush.Color := TColor($FFCC99);
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
end;
Fcurrentrow muss man eben so setzen wie mans braucht...
Volkers Ansatz stimmte nicht ganz weil da auch beim scrollen nur jede zweite Zeile markiert wurde. Aber damit konnte ich was anfangen!
Vielen dank euch allen.
Bei den Temperaturen gestern hab ich einen Denkanstoß gebraucht!