VirtualTreeView, OnGetImageIndexEx und OverlayImages

[KodeZwerg]

Für TreeView mit verschiedenen Bildern habe ich so etwas mir mal gebastelt.
Garantiert viel zu alt, stammt glaube ich noch aus Delphi 5/6/7 (?) Zeiten.

Delphi-Quellcode:

Procedure CreateImages;
   var
     SysIL: HImageList;
     SFI: TSHFileInfo;
   begin
     MyTreeView.Images := TImageList.Create(Self);
     SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),
     SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
     if SysIL <> 0 then begin
       Images.Handle := SysIL;
       Images.ShareImages := TRUE;
     end;
end;

Das ist praktisch das gleich wie bei dem ListView Beispiel, hier hatte ich es mit TreeView realisiert, diese Routine sammelte mir die Icons. Tut mir leid das ich nicht weiter helfen kann.