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.