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