Ich verstehe deine Aussage aber auch nicht
Zitat:
Das ist sehr un-konstruktiv jedesmal eine neue ImageListe zu erstellen für 1 Icon! sorry
Das mache ich doch gar nicht.
Und außerdem. Woher will das VST wissen, welchen Index es für welches Node braucht? Dafür muss ich doch zwangsweise in jedem Node 1x GetSHFileInfo aufrufen.
Zitat:
Das ImageList wird zerstört oder sonst was.
Ich zerstöre da nix. Diese komischen Probleme kommen erst bei mehreren Tausend Einträgen.
Hier nochjmal zusammengefasst wie ich es immer gemacht habe und wie es auch eigentlich immer funktioniert hat
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);
MeinNode-generisch.MeinIconIndex := Info.iIcon; // jetzt weiß der Datensatz unter dem Node, welcher IconIndex das Icon braucht.
VSTGetImageIndex
Delphi-Quellcode:
if Kind in [ikNormal, ikSelected] then
ImageIndex := MeinNode-generisch.MeinIconIndex;
ich glaube die ImageList benutze ich nicht einmal.