Einzelnen Beitrag anzeigen

Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#1

TAppButton - Application Button like Firefox (experimentell)

  Alt 23. Okt 2011, 20:11
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.
Miniaturansicht angehängter Grafiken
appbuttonpreview.jpg  
Angehängte Dateien
Dateityp: zip AppButtonTest.zip (229,5 KB, 93x aufgerufen)
Dateityp: zip uAppButton_1.1.zip (2,8 KB, 64x aufgerufen)

Geändert von Satty67 (23. Okt 2011 um 20:21 Uhr)
  Mit Zitat antworten Zitat