TAppButton - Application Button like Firefox (experimentell)

[Satty67]

Hallo,

übers Wochenende hatte ich Lust, mich an einem Application Button zu versuchen, wie ihn z.B. Firefox anbietet.

Status-Übersicht:

• Noch experimentell, lange nicht fertig
• Aktuell klinke ich mich in WindowProc des TrägerForm ein (schien mir am einfachsten), andere Vorschläge willkommen
• Gezeichnet wird nicht direkt auf NC, sondern in ein Bitmap, dass ich dann kopiere. Ist eine Vorbereitung auf was noch geplant ist, also Absichtlich so umständlich.
• Windows 7 konnte ich übers WE nicht testen, kann sein das es da noch nicht passt

Noch bekannt Probleme:

• Flackert beim Resize des Form
• Ecken noch nicht transparent (lösbar, eine einfache Lösung aber willkommen)
• Auswerten der Messages in WindowProc noch etwas verwirrend gelöst
• Button-Optik noch etwas hölzern, passt zwar ganz gut zu XP, aber unter Win 7 sicher nicht so schön.

Ist jetzt einfach nur ein experimenteller Vorschlag, für so einen AppButton. Hatte einach nicht fertiges gefunden.

PS: Falls es sich nicht von selbst erschließt, Anwendungs-Beispiel:

Delphi-Quellcode:

AppButton := TAppButton.Create(self);
AppButton.DropDownMenu := PopupMenu1;
AppButton.Caption := 'Ich bin ein AppButton';

PPS: Warum ich das halbfertig poste: Das Wochenende ist vorbei und weil es nur aus einer Laune heraus entstanden ist, versinkt es sonst wohl im Übungsordner... so wird vieleicht was draus.

[Stevie]

Eventuell ist dieser Thread interessant für dich.

[Satty67]

Ja, sehr interessant. Muss mir wohl endlich eine Aero-fähige Win 7 Testumgebung anschaffen.

Sieht so aus, als ob man je nach Windowsversion unterschiedlichen Code implementieren muss. Wie das Beispiel weitgehenst innerhalb der Komponente (und nicht im Form) umgesetzt werden kann, wird sicher interessant.

[ConnorMcLeod]

Da war doch mal was ... ist schon länger her ... kram, such, stöber ... ahja, hier. Dort sind vllt ein paar helfende Ideen dabei.

[Satty67]

Also die Idee, einfach den Button über die Caption zu "klatschen" kann ich begraben. Beide Links (die Infos darin) und ein Test eben zeigen, dass bei Glass-Frames nicht mehr direkt gezeichnet werden kann.

Firefox scheint das komplette NC-Area selbst zu zeichnen (bei 7.x sogar fehlerhaft), das werde ich wohl auch müssen. Zum einen werde ich anders das Flackern nicht wegbekommen und unter Windows 7 ist es wohl sowieso nötig.

In der Win 7 VM kann ich leider den Glass-Frame nicht aktivieren und das testen. Werde aber trotzdem mal dran machen die verlinkten Beispiele umzusetzen. Werde das erstmal gesplittet nach Windows-Version/Darstellung entwerfen und danach schauen, was sich an Code zusammenwerfen lässt.

[Satty67]

Hallo,

zuerst mal muss man ja Chris Rolliston für seinen Beitrag (Link von Stevie) dankbar sein. War sicher eine ziemliche Arbeit die ganzen Infos zu sammeln und daraus eine Demo zu bauen. Scheint auch tatsächlich der aktuell gegangene Weg für einen AppButton zu sein (also Titelbar ausblenden und im ClientBereich neu zu zeichnen)

Aber ich wollte den AppButton für eine kleine Multimedia-Anwendung... der Beispielcode ist fest im Mainform integriert, noch nicht für XP/Classic erweitert und trotzdem schon fast umfangreicher, als mein restlicher Projekt-code ;-)

Es musste für meinen Fall eine andere, einfache Lösung her...

Zufällig ist mir die Tage beim Zeichnen mit Paint.NET das Verhalten der Tool-Windows ins Auge gestochen. Mir kam also die Idee, ein Toolwindow in den Titlebar-bereich einzublenden. Entweder transparent als TButton-Träger oder einfach direkt das Verhalten eines Button simulierend.

Im Prinzip bekomme ich dadurch einige Vorteile:

• Sollte in allen Windows-versionen gleich funktionieren, u.U. auch Windows 8
• Kann entweder auch direkt einen TButton verwenden oder beim selber zeichnen die Ereignisse der TForm verwenden
• Mit 3 Zeilen Code im MainForm ist der Button einsatzbereit
• Insgesammt war wesentlich weniger Code nötig
• Beim Resize flackert nichts

aber auch kleine Nachteile:

• Bei einigen Testrechnern schwimmt der Button beim Move minimal (laufe ja letztlich hinterher), fällt zum Glück aber nur auf, wenn man darauf achtet
• MainFormOnTaskbar = False;
• und irgend etwas hab' ich sicher übersehen ;-)

Windows Vista/7 konnte ich nur kurz testen, ich hoffe es funktioniert trotz einer Arbeiten nach dem Test weiterhin. 64bit hab' ich überhaupt keine Version zum testen parat.

In der Anlage eine kleine Testanwendung, der Source folgt... muss ich aber noch aufräumen

[Luckie]

Das kennst du: http://msdn.microsoft.com/en-us/library/bb688195

[Satty67]

Die Vorstellung von MSDN kannte ich noch nicht, ist aber im Prinzip die Richtung in der das Beispiel von Chris Rolliston ging.

Es sieht bei MSDN zwar wesentlich übersichtlicher aus (was aber eher am .NETC++-Code liegt), DWM ist aber erst ab Vista+ verfügbar. Für XP muss man sich weiterhin eine eigene Lösung suchen.

Wenn man ab VISTA entwickelt, würde ich mich da reinarbeiten. Das muss ja gleich bei der Entwicklung/Planung des Mainform als Code einfließen.

[implementation]

Auch wenn das jetzt vllt nicht unbedingt für dich relevant ist:
Die neue Testanwendung läuft auch unter Wine (getestet unter Fedora/Gnome3) wie sie soll!

Scheint also sowieso die universellere Lösung zu sein.
Denn selbst wenn du den Button jetzt auch per DWM unter Win7 zum Laufen bekommst
- wie wird das dann, wenn du irgendwann mal auf MacOSX oder Linux portieren willst?

[Satty67]

Zitat:

Zitat von implementation (Beitrag 1133280)

läuft auch unter Wine (getestet unter Fedora/Gnome3) wie sie soll!

Ist beruhigend... liegt aber eben auch daran, das ich kaum Abhängigkeiten habe... die vorhanden via alter Technik (GetSystemMetrics) hole.

In der Anlage der aktuelle Source-Code. Sind noch ein paar Kleinigkeiten zu implementieren und auf Sonderfälle zu untersuchen. Aber zum Spielen reichts ;-)

Ist im Moment auf jeden Fall noch als "Experiment" zu sehen.