VST -> Stateimages durch handle auf ShellIcon?

[stOrM]

Hmm hoffentlich ist das richtig, ich geh grad die alten sourcen durch von mir:

Delphi-Quellcode:

procedure TForm1.LoadImageLists;
  var
    sfi : TSHFileInfo;
    SysIL : uint;
    LargeImages, SmallImages : TImageList;
begin
  LargeImages := TImageList.Create(Form1);
  ConvertToHighColor(LargeImages);
  SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
 if SysIL <> 0 then
 begin
   LargeImages.Handle := SysIL;
   LargeImages.ShareImages := TRUE;
   end
    else
      ShowMessage('Error: ImageList has not Handle');

  SmallImages := TImageList.Create(Form1);
  ConvertToHighColor(SmallImages);
  SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  if SysIL <> 0 then
   begin
     SmallImages.Handle := SysIL;
     SmallImages.ShareImages := TRUE;
 end
  else
    ShowMessage('Error: ImageList has not Handle');
    svLog.StateImages := SmallImages;
end;

Dann halt noch die 2 Imagelisten mit dem VST im OI verknüpfen...

Delphi-Quellcode:

  SystemImages.Handle := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  SystemImages.ShareImages := True;

Ansonsten empfehle ich Dir, schau mal im DrawTreeDemo von Mike Lischke rein, da macht er sowas ähnliches, was du suchst...

Gruß
s!