Ungefähr so?
FormCreate
Delphi-Quellcode:
SmallImages := TImageList.Create(Self);
SystemImageList := SHGetFileInfo('', 0, Info, SizeOf(TSHFileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
SmallImages.Handle := SystemImageList;
SmallImages.ShareImages := True;
VST.Images := SmallImages;
InitNode
Delphi-Quellcode:
SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON);
ImageList_AddIcon(SmallImages.Handle, Info.iIcon);
DestroyIcon(Info.iIcon); // Mit dieser Zeile sehe ich dann keine Icons
Ach das funktioniert doch eh nicht. Deinen Code verstehe ich nicht und auch keine Ahnung wo der hin soll, welche Variablentypen das sind, wie ich das am Ende anzeige usw.
sorry dann läuft bei dir was falsch.
Das ImageList wird zerstört oder sonst was.
Ist aber auch möglich das es in 10.4 einfach nicht mehr korrekt funktioniert.