Stringgridzelle einfärben aber den Text beibehalten

[bluesbear]

ungefähr so gehts:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if Row=3 then begin
    StringGrid1.Canvas.Brush.Color := clSilver;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.Textout(Rect.Left, Rect.Top, StringGrid1.Cells[Col, Row]);
  end;
end;