Delphi-PRAXiS - Delphi Listview

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Listview (https://www.delphipraxis.net/33141-listview.html)

Hallo!

Folgendes Problem:

Ich möchte das Icon einer bestimmten Datei in einem Listview anzeigen.
Ich habe versucht das so zu machen:

Delphi-Quellcode:

			procedure TForm1.fillListview;

var

icWork : TIcon;

sfWork : IShellFolder;

fiWork : TSHFileInfo;

begin

 icWork := TIcon.Create;

 try

   Listview1.Items.Add;

   SHGetFileInfo(PChar(FPath+Self.FFileList.Items[0].Filename),0,fiWork,SizeOf(fiWork),SHGFI_ICON

   or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES);

   icWork.Handle := fiWork.hIcon;

   Listview1.Items[0].ImageIndex := imageList1.AddIcon(icWork);

 finally

 FreeAndNil(icWork);

end;

end;

das funktioniert aber nicht . warum?
die Listview bleibt leer.. ViewStyle = vsReport habe ich eingestellt.

wie kann ich dann neben dem Icon den jeweiligen Dateinamen anzeigen?
Danke

Hi valon,

du musst die Icons in eine Imagelist einfügen, und anschließend ImageIndex setzen. Ein Blick in die Hilfe hätte dir verraten, dass in ImageIndex die Nummer eines Bildes in einer ImageList steht, und anschließend wird das Bild auch angezeigt.

Greetz
alcaeus