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.