Listview icons hinzufügen

[Premutos]

hi, habe folgendes problem ich habe eine text datei in der alle möglichen dateinamen stehen, dieses möchte ich in ein listview laden und dazu soll heweils noch dem entsprechend der datei erweiterung das dazu gehörige registrierte icon hinzugefügt werden!?
das laden ist kein probelm nur das hin zufügen der icons, wie genau stellt man das an !?

[Luckie]

Pack die Icons in eine ImageListe u8nd weis dem Listview die ImageListe zu. Beim Laden wählst du dann einen Eintrag aus der ImageListe.

[Premutos]

ja, aber wie bzw. woher bekomm ich die icon für das imagelist ?

[Luckie]

Na dann such doch einfach mal: listview systemicons.

[Premutos]

Delphi-Quellcode:

var FileInfo: SHFILEINFO;
 ListItem: TListItem;
begin
ListItem := ListView1.Items.Add;
Listitem.Caption :='c:\test.exe';
 ListItem.SubItems.Add('blabal');

 SHGetFileInfo(PChar('c:\test.exe'), 0, FileInfo,
 SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
 icon.Handle := FileInfo.hIcon;
 ListItem.ImageIndex := ImageList1.AddIcon(Icon);
 destroyIcon(FileInfo.hIcon);
 Icon.Free;
 ListView1.Items.EndUpdate;
  end;

<<funktioniert leider nicht :/

[Luckie]

Zitat:

Zitat von Premutos

<<funktioniert leider nicht :/

Und WAS funktioniert nicht? Falls der Code aus dem Forum ist, was wurde denn in dem betreffendne Thread dazu gesagt? Und hast du das schon mal debuggt und bist mit Einzelschritten die Zeilen durchgegangen?

[Premutos]

der coder ist aus der code lib vom swiss delphi center
>> http://www.swissdelphicenter.ch/de/showcode.php?id=421 <<
es funktionietr in sofern nicht das das entsprechende icon nicht ausgelsen wird!