Du kannst in einer Listbox ganz einfach ein Bild darstellen.
Folgendes ist notwendig:
Im Objectinspector
- Style auf "lbOwnerDrawFixed" setzen
- ItemHeight auf den Wert setzen wie Hoch die Bilder dargestellt werden sollen
Dann das Ereignis OnDrawItem:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: OwnerDrawState);
begin
TListBox(Control).Canvas.StretchDraw(Rect, DeinBildWelchesGemaltWerdenSoll);
end;