tStringgrid und Zeilenfärben --> Verzweiflung

[GreenHorn3600]

ups, danke, war wohl etwas zu voreilig. das war es

Delphi-Quellcode:

procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 inherited;
 with (sender as tStringGrid) do
  if Odd(ARow) then
  begin
   Canvas.Brush.Color := clWebMintcream;
   Canvas.FillRect(Rect);
   Canvas.TextOut(Rect.Left+2, Rect.Top+2, (sender as tstringgrid).Cells[ACol, ARow]);
  end;
end;