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