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.