Listview

[valon]

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

[alcaeus]

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