TstringGrid Problem

[smudo]

Einfach in eine Imagelist laden.

Hier gabs schon mal einen interessanten Thread dazu. So könnte das funktionieren:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var bm: TBitmap;
begin
  if Sender <> NIL then
  with Sender as TStringGrid do
  begin
    bm := TBitmap.Create;
    try
      ImageList1.GetBitmap(0, bm);  //statt 0 müsste man hier einen entsprechenden Index angeben
      Canvas.Draw(Rect.Left + 5, Rect.Top + 5, bm);
    finally
      FreeAndNil(bm);
    end;
  end;
end;

Du musst die Images (keine Gifs, besser BMPs) zur Entwurfzeit in die Imagelist laden und im OnDrawCell die entsprechnde ID angeben.

Gruß René