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

[venice2]

Zitat von Dalai:

Ist das denn richtig?

Delphi-Quellcode:

    if SHGetFileInfo(PChar(TreeDataKlassen[Node^.Index].PfadSpalte1), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON) = 0 then
    begin
     ImageIndex := TreeDataKlassen[Node^.Index].IconIndexSpalte1;
     // Eigentlich müsste das Icon angezeigt werden, wird es aber nicht.
    end;

Wird .IconIndexSpalte1 jemals gesetzt und wenn ja, wo?

Übrigens:
procedure AddAllFilesInDir(const Dir: string; var List: TStringList); List sollte const sein, nicht var , denn es soll ja nicht der Zeiger zur Liste geändert werden (können) sondern nur deren Inhalt.

Grüße
Dalai

ja ist IO..
Ich sagte aber schon woran es liegt das Hicon wird nicht freigegeben.
Und einiges fehlt noch.

Ich kann hier 10000 Einträge laden ohne das irgendein Problem beim zeichnen hier auftritt.