stringGrid, einzelne Zelle neu zeichnen

[ibp]

Hallo Tigger

Delphi-Quellcode:

procedure tform1.stringgrid1drawcell(sender:tobject; acol,arow:integer; rect:trect; state: tgriddrawstate);

begin
  with stringgrid1.canvas do
  begin
    if (acol=5) and (arow=2) then // zeile 2 spalte 5 färben
    begin
      brush.color:=clfuchsia; // hintergrundfarbe
      fillrect(rect); // celle neu zeichnen
      font.color:=clwhite; // schriftfarbe
      textout(rect.left+2,rect.top+2, stringgrid1.cells[acol.arow])
    end;
  end;
end;