ListView & Bilder: "Miniaturansicht vom Explorer"

[DeluxXx]

Delphi-Quellcode:

var
ListItem : TListItem ;
begin
 Listview1.ViewStyle := VsIcon ;
 Listview1.SmallImages := Imagelist1 ; //die Imagelist1 sollte deine Thumbnails enthalten
 //erstellen eines Eintrags
 ListItem := ListView1.Items.Add ;
 ListItem.Caption := 'Test' ;
 ListItem.ImageIndex := 0; //hier die Bild position in der Imageliste benutzen 
...
end;