TTaskbar mit Progress-Anzeige

[Gausi]

Ich versuche gerade, meine bisher benutzte Taskbar-Komponente durch die seit einiger Zeit mitgelieferte TTaskbar zu ersetzen, um die Anzahl der verwendeten 3rd-Party-Komponenten zu reduzieren. Selbst gemaltes Vorschaubild und Taskbar-Buttons funktionieren nach ein paar kleinen Änderungen einwandfrei, aber die Fortschritts-Anzeige will nicht. Zumindest dann nicht, wenn ich zur Laufzeit den VCL-Style wechsle.

Interessanterweise bleibt die Fortschrittsanzeige erhalten, wenn ich entgegen der Anleitung

Delphi-Quellcode:

Application.MainFormOnTaskbar := False;

setze - nur sind dann nach einem Style-Wechsel die Buttons in der Vorschau weg. :stupid:

Gibt es eine Möglichkeit, beides zu nutzen, oder ist das ein Bug in der Delphi-Komponente? Minimal-Projekt ist im Anhang (Fortschritt ist an die Trackbar gekoppelt). Ich nutze die Community-Edition in Version 10.3.

[venice2]

Zitat:

oder ist das ein Bug in der Delphi-Komponente?

Nö. Wenn überhaupt dann in den VCL-Styles
Lass sie weg dann geht's doch. Oder?

[Gausi]

Zitat:

Zitat von venice2 (Beitrag 1477077)

Nö. Wenn überhaupt dann in den VCL-Styles

Kannst du das irgendwie belegen oder näher erläutern, damit ich Ansätze habe, um den Fehler zu beheben oder zu umgehen? Knackpunkt an der Geschichte sind die Fensterhandles, wenn ich das richtig sehe. Bei einer Änderung des Styles werden (müssen?) die Fenster neu erstellt werden. Damit ändern sich auch die Handles, und das scheint Probleme zu machen. Die TTaskbar-Komponente bekommt diese Änderung nicht mit. Ich habe im Code leider noch nicht herausgefunden, warum der eine Teil funktioniert, und der andere nicht, und mit Änderung von MainFormOnTaskbar ist es genau andersrum.

Zitat:

Zitat von venice2 (Beitrag 1477077)

Lass sie weg dann geht's doch. Oder?

Das ist keine Option.

[venice2]

Zitat:

Kannst du das irgendwie belegen oder näher erläutern, damit ich Ansätze habe, um den Fehler zu beheben oder zu umgehen?

Wenn die Taskbar Komponente innerhalb der IDE (von Delphi selbst) ohne den VCL-Styles funktioniert wie sie soll dann ist sie doch in Ordnung oder nicht?
Was muss man dann belegen?

Es gibt drei Extended Window Styles die Einfluss darauf haben könnten (Und ich denke diese werden von den VCL-Styles verbogen).

WS_EX_APPWINDOW

Zitat:

Forces a top-level window onto the taskbar when the window is visible.

WS_EX_TOOLWINDOW

Zitat:

A tool window does not appear in the taskbar

WS_EX_NOACTIVATE

Zitat:

The window does not appear on the taskbar by default. To force the window to appear on the taskbar, use the WS_EX_APPWINDOW style.

Schaue also was von den VCL-Styles hier verbogen wird.
So wie mir bekannt ist kann der WS_EX_TOOLWINDOW Extended Window Styles nur geändert werden wenn das Fenster bzw. die Anwendung neu gestartet wird.
Musst halt mal testen.

Zitat:

Zitat von Gausi (Beitrag 1477083)

Zitat:

Zitat von venice2 (Beitrag 1477077)

Lass sie weg dann geht's doch. Oder?

Das ist keine Option.

Habe nicht gesagt du sollst sie weglassen sondern in deinem Example mal ausschalten ob die TaskBar (Progressbar\Buttons) ohne funktioniert.
Wenn ja dann liegt es an den VCL-Styles.

Mein Vorschlag wäre die Taskbar Komponente dynamisch zu erstellen.
Denn die welche auf deiner Form liegt ist beim wechsel auf einen anderen VCL-Style nicht mehr gültig. (Das Interface ITaskBarList3 wird beim wechsel auf ein anderes HWND (Fenster zerstört))

[himitsu]

Jupp, beim Wechsel des VCL-Styles wird das HWND des Fensters neu generiert und dabei gehen dann derartige Registrierungen verloren.
Betrifft z.B. auch einige Drag&Drop-Komponenten.

Versuch mal probehalber nach dem Umstellen die TTaskbar-Komponente zu löschen und neu zu erstellen ... geht es dann wieder?
Du könntest dich vermutlich hier auch ins TWinControl.CreateWnd bzw. CreateHandle der Form reinhängen und dort darauf reagieren.




Bezüglich dem MainFormOnTaskbar, da stimmt auch irgendwie garnichts mehr.
https://www.delphipraxis.net/205177-...rt-10-4-a.html

Und ich hatte auch die TJumpList nicht zusammen mit TTaskbar zum Laufen bekommen. :(

[venice2]

Zitat:

Zitat von himitsu (Beitrag 1477094)

Jupp, beim Wechsel des VCL-Styles wird das HWND des Fensters neu generiert und dabei gehen dannderartige Registrierungen verloren.

Versuch mal probehalber nach dem Umstellen die TTaskbar-Komponente zu löschen und neu zu erstellen ... geht es dann wieder?



Und bezüglich dem MainFormOnTaskbar, da stimmt auch irgendwie garnichts mehr.
https://www.delphipraxis.net/205177-...rt-10-4-a.html

Sagte ich schon!
Ja! das Fenster Handle wird jedesmal neu generiert.
Dynamisches erstellen der Kompo sollte das Problem eigentlich beheben.

Zitat:

Und ich hatte auch die TJumpList nicht zusammen mit TTaskbar zum Laufen bekommen.

Prüfe mal ob du die Freigabe dafür erstellt hast. (Win10) (Personalisieren\Taskleiste)

[himitsu]

Naja, "beheben" würde es das Problem, wenn die Komponente von selbst drauf reagiert.

Das Wechseln des Styles ist ja nicht das einzige Ereignis, welches die HWNDs neu erstellt, bzw. freigab.
Da reicht seit Jahrzehnten schon das Ändern von FormStyle, AlphaBlend oder anderen noch viel hamloseren Dingen, wie mit'm RDP neu verbinden. :stupid:


Badges: Jupp, ist aktiv.
Firefox, Explorer und selbst Notepad können es. :angle2:

[venice2]

Zitat:

Naja, "beheben" würde es das Problem, wenn die Komponente von selbst drauf reagiert.

Das Wechseln des Styles ist ja nicht das einzige Ereignis, welches die HWNDs neu erstellt, bzw. freigab.
Da reicht seit Jahrzehnten schon das Ändern von FormStyle, AlphaBlend oder anderen noch viel hamloseren Dingen, wie mit'm RDP neu verbinden.

Jup. Traurig genug.
Für mich persönlich sind die Styles ein NOGO aber jedem das seine.

Hier ist meine .odl (Object Definition Language)
Daraus kann man seine TypeLib erstellen dann benötigt man keine Komponente. (Ok für VB, sollte aber für Delphi schnell umzuschreiben sein, c++ syntax)

[TurboMagic]

Zitat:

Zitat von himitsu (Beitrag 1477094)

Jupp, beim Wechsel des VCL-Styles wird das HWND des Fensters neu generiert und dabei gehen dann derartige Registrierungen verloren.
Betrifft z.B. auch einige Drag&Drop-Komponenten.

Ist das schon in QP gemeldet, damit es Mal hoffentlich
eine Lösung gibt?

[Gausi]

Danke für die Antworten! Das mit dem dynamischen Erstellen der TTaskbar nach dem Style-Wechsel klappt.

Gibt noch ein paar kleine Fallstricke dabei:

• Nach dem Create und dem Erstellen aller Buttons etc. muss man noch ein
  Delphi-Quellcode:

  newTaskBar.Initialize;

  einfügen
• Das gibt aber eine Exception, weil dann das (neue) Fenster zunächst noch unsichtbar ist (bzw. nicht komplett neu erzeugt?), also fügt man ein vor dem Erstellen der Taskbar ein
  Delphi-Quellcode:

  Application.ProcessMessages

  ein, oder arbeitet mit einem Timer, oder sendet sich selbst ne Message oder sonst irgendwas in der Art.

Mit der Lösung kann ich gut leben. Scheint soweit zu klappen, zumindest in dem Testprojekt.

Und jetzt verstehe ich auch die Aussage, dass der Bug wohl auf Seite der Styles liegt. Der StyleManager kümmert sich darum, dass das Fenster und alles drumherum neu erstellt wird, also müsste das auch für diese Komponente gelten. Tut er aber allem Anschein nach nicht (oder nicht vollständig).
Eine andere Möglichkeit wäre ja auch, dass die TTaskbar-Komponente auf den Stylewechsel reagieren könnte bzw. irgendwie mit wechselnden Handles klar kommen müsste. Dann wäre der Bug dort zu suchen gewesen. ;-)

[venice2]

Fein das es nun Funktioniert

Zitat:

Das gibt aber eine Exception, weil dann das (neue) Fenster zunächst noch unsichtbar ist (bzw. nicht komplett neu erzeugt?)

Ist auch logisch das Fenster muss Sichtbar sein.

WS_EX_APPWINDOW

Zitat:

Forces a top-level window onto the taskbar when the window is visible.

Zitat:

Eine andere Möglichkeit wäre ja auch, dass die TTaskbar-Komponente auf den Stylewechsel reagieren könnte bzw. irgendwie mit wechselnden Handles klar kommen müsste. Dann wäre der Bug dort zu suchen gewesen.

Nein eine Komponente ist darauf ausgelegt auf Windows -> Standard Mitteln zu reagieren.

Du kannst nicht erwarten das Developer die diese Komponenten erstellen in irgendeiner weise auf die VCL-Styles Rücksicht nehmen müssen\sollten.
Es ist die Aufgabe des VCL-Styles Entwickler eine entsprechende Komponente für die TTaskbar zu entwickeln die mit den VCL-Styles zurecht kommen wenn er schon so tief in das Windows System eingreift.
Oder man muss selber etwas stricken damit es läuft. :stupid:

[himitsu]

@TurboMagic: Meinst die verlorenen Handle, welche neu erstellt werden?

Ne, das ist einfach so und wird sich nicht ändern.

Da dachte jemand "mach ich's mir einfach und erstell alles neu",
aber im Grunde gibt es ja auch die passenden Ereignisse/Methoden, wo man das Verlorene neu erstellen/registrieren kann. :stupid:

[venice2]

Zitat:

Zitat von himitsu (Beitrag 1477170)

@TurboMagic: Meinst die verlorenen Handle, welche neu erstellt werden?

Ne, das ist einfach so und wird sich nicht ändern.

Da dachte jemand "mach ich's mir einfach und erstell alles neu",
aber im Grunde gibt es ja auch die passenden Ereignisse/Methoden, wo man das Verlorene neu erstellen/registrieren kann. :stupid:

Die VCL-Styles müssen auf die Komponenten reagieren das tun sie aber einfach nicht.
Wie du schon sagtest Drag&Drop jetzt hier TTaskbar und bestimmt noch einige mehr.

[himitsu]

Theoretisch würde es auch TTimer betreffen, aber weil man dort noch weitere Probleme hatte, erstellen die sich jeder sein eigenes (unsichtbares) Window.
Sowas geht aber nur bei Dingen, die eben nicht direkt an einem bestimmten Fenster/Control hängen müssen.

[TurboMagic]

Zitat:

Zitat von himitsu (Beitrag 1477170)

@TurboMagic: Meinst die verlorenen Handle, welche neu erstellt werden?

Ne, das ist einfach so und wird sich nicht ändern.

Was ist denn das für eine Aussage? Hast du schon EMBT dazu befragt?

[venice2]

Zitat:

Zitat von TurboMagic (Beitrag 1477236)

Zitat:

Zitat von himitsu (Beitrag 1477170)

@TurboMagic: Meinst die verlorenen Handle, welche neu erstellt werden?

Ne, das ist einfach so und wird sich nicht ändern.

Was ist denn das für eine Aussage? Hast du schon EMBT dazu befragt?

Frage dich das doch mal selbst.
Wie viele offene QP's gibt es noch mal? Und wie viele Jahre willst du dann darauf hoffen das etwas passiert?
Erstell doch einfach die Anfrage und gut ist wenn du so heiß darauf bist.