tStringgrid und Zeilenfärben --> Verzweiflung

[DeddyH]

Überleg Dir mal, auf wessen Canvas Du zeichnest

Delphi-Quellcode:

procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  inherited;
  if not Odd(ARow) then
    begin
      sg.Canvas.Brush.Color := clRed; //clWebMintCream kennt mein Delphi nicht
      sg.Canvas.FillRect(Rect);
      sg.Canvas.TextOut(Rect.Left+2, Rect.Top+2, (sender as tstringgrid).Cells[ACol, ARow]);
    end;
end;