Setzt andere Programme in die TNA

[Alexander]

Hi Assarbad,
habe jetzt schon einen neuen Thread aufgemacht...
http://www.delphipraxis.net/viewtopi...e397585e98994a
Danke schon mal!! ;-)

[Alexander]

so neue Version (0.9.3).
es wurden nun auch die kleineren Sachen sowie beide Bugs, von denen Tom berichtet hat, behoben, sowie noch ein paar kleinere Sachen...
Download diesmal hier: www.alexander-franz.de/downloads/datei/tbm.zip
Danke schon mal für's weitere Testen ;-)

[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?

[Uncle Cracker]

Hi alexander,

Eine kleine Änderung wer gut, nämlich man sollte den Fenstermanager aktualiesieren können.

Sonst eigentlich ganz gut :thuimb:

[Alexander]

Hi Uncle Cracker,
super Idee, Danke!!
neue Version: Klick
In der neuen Verison wurde nur die Akutalisierung mit F5 mit eingebaut.
Habt ihr weitere Ideen?

[FriFra]

Zitat:

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.

[Alexander]

Super, Danke!!!
neue Version ist dank FriFra wieder unter der gleichen Adresse wie zu vor erreichbar
Habt irh noch Erweiterungsideen?