Setzt andere Programme in die TNA

[FriFra]

Zitat von alexander:

und wieder eine neue Version (V 1.02)
es wurde wieder Bugs entfernt, ein paar kleinere Mängel entfernt und und und...
Unter anderem werden jetzt im PopUpMenü die Bildchen der einzelnen Fenster angezeigt. (sehen aber teilweise etwas schrarz aus. Liegt irgendwie an der ImageList. Wisst ihr wieso?)
Wäre toll wenn ihr es euch nochmals ankucken könntet.
Danke schon mal!!
Download
PS: Was könnte man noch ergänzen?

Das schwarz liegt am Alpha-Blending (WinXP) und ist wohl ein kleiner Bug in der Komponente...
Das Problem kann man aber wie folgt lösen:

Delphi-Quellcode:

var
  SHFileInfo: TSHFileInfo;
  SysIcons: THandle;
  SystemIcons: TImageList;
begin
  SysIcons := SHGetFileInfo('', 0, SHFileInfo, SizeOf(SHFileInfo),
    SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

  SystemIcon := TImageList.Create;
  SystemIcons.Handle := SysIcons; //SystemImagelist zuweisen...
  SystemIcons.ShareImages := True;

  {Wenn ImageList1 einmal der Inhalt der SystemImageList zugewiesen wurde
  unterstützt diese fortan 32Bit Icons mit Alphablending}
  ImageList1.Assign(SystemIcons);
  ImageList1.Clear;

  SystemIcons.Free;

Falls Du 32x32 Icons verwenden willst, musst Du natürlich SHGFI_SMALLICON gegen SHGFI_LARGEICON tauschen.