VirtualStringTree - SHGetFileInfo hängt Programm auf / Canvas erlaubt kein Zeichnen

[DieDolly]

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.

[venice2]

Zitat:

Das mache ich doch gar nicht.

Ich habe es so verstanden.

Zitat:

Ich rufe SHGetFileInfo in InitNode auf. Das heißt es wird nur ein Icon geladen

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.

Zitat:

ich glaube die ImageList benutze ich nicht einmal.
jetzt weiß der Datensatz unter dem Node, welcher IconIndex das Icon braucht.

Das ist kein Index aus der ImageList sondern dein HIcon.
Und du lädst jedesmal ein neues Icon anstatt die ImageListe zu verwenden wo dann alle schon enthalten sind.


da ist so einiges faul.

Der richtige weg ist.
Die ImageList einmalig mit allen Icons zu füllen.
Und bei InitNode den entsprechenden index aus der ImageList (Hicon) der Node zuzuweisen.

[DieDolly]

Wieso "so einiges"?
Ich würde es ja verbessern aber ich verstehe deinen Code nicht, weil da für mich der Kontext fehlt.
Ich habe das eben aber mal mit der ImageList versucht. Egal ob ein Icon schon da drin ist oder nicht, es werden in InitNode immer weiter Icons in die Liste gepackt.
Ich kapiere mittlerweile überhaupt nix mehr und besonders nicht, warum die ImageList angeblich so gut sein soll. Woher soll die denn beim Hinzufügen neuer Icons wissen, ob das schon da drin ist oder nicht? Und auch wenn, das ist ja nicht einmal mein Problem. ich muss für JEDEN Node GetSHFileInfo aufrufen, um überhaupt herauszubekommen, welches Icon dahintersteckt. Wie soll mir da eine ImageList helfen?

Du redest hier im Prinzip mit einem Anfänger!

Hast du keinen normalen Code statt den aufd Seite 1 mit SetLength, ItemsInfo und so?

[venice2]

Zitat von DieDolly:

Wieso "so einiges"?
Ich würde es ja verbessern aber ich verstehe deinen Code nicht, weil da für mich der Kontext fehlt.
Ich habe das eben aber mal mit der ImageList versucht. Egal ob ein Icon schon da drin ist oder nicht, es werden in InitNode immer weiter Icons in die Liste gepackt.
Ich kapiere mittlerweile überhaupt nix mehr und besonders nicht, warum die ImageList angeblich so gut sein soll. Woher soll die denn beim Hinzufügen neuer Icons wissen, ob das schon da drin ist oder nicht? Und auch wenn, das ist ja nicht einmal mein Problem. ich muss für JEDEN Node GetSHFileInfo aufrufen, um überhaupt herauszubekommen, welches Icon dahintersteckt. Wie soll mir da eine ImageList helfen?

Du redest hier im Prinzip mit einem Anfänger!

Hast du keinen normalen Code statt den aufd Seite 1 mit SetLength, ItemsInfo und so?

so ist eine ImageList aufgebaut..
Nur zur Veranschaulichung es geht um die Bilder..

https://www.freetutes.com/learn-vb6-...esson4/p3.html

[DieDolly]

Verstehe ich alles nicht. Ich habe es im Prinzip so gemacht wie hier aus #7
https://www.delphipraxis.net/611374-post7.html

[venice2]

Nun ja du rufst in jeder InitNode SHGetFileInfo auf das ist ein Overhead oder?
Warum? Frage ich mich.
Das meine ich mit Un-Konstruktiv.

https://www.youtube.com/watch?v=2fb2Ex1Pxmk

[DieDolly]

Dazu meine Gegenfrage

Zitat:

Und wenn ich nicht einmal GetSHFileInfo für jeden Node aufrufen darf, verstehe ich auch nicht, wie ich sonst an das Icon kommen soll.

Hier in #7 wird es ja auch in jeden GetImageIndex aufgerufen und scheinbar funktioniert es.
https://www.delphipraxis.net/611374-post7.html

Oder ist das alles schon wieder so ein unbekannter Delphi-Fehler?

Hier ist auch ein Beispiel wo SHGetFileInfo ständig aufgerufen wird ohne irgendwas mit Destroy oder so
https://www.delphipraxis.net/1099656-post4.html