icon in stringgrid zelle zeichnen?

[Sharky]

Hai Richard,

wie bei allem was die Ausgabe angeht wirst Du um das selber zeichnen nicht herum kommen (OnDrawCell).
Dort müsste dann etwas in dieser Richtung stehen:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol = 2 then
  begin
    ImageList1.Draw((Sender As TStringGrid).Canvas,Rect.Left,Rect.Top,2);
  end;
end;

In diesem Beispiel hole ich das Icon aus einer TImageList.