es ist mal wieder soweit. Eigentlich ist auch das Status Control bereit, aber das möchte ich noch etwas ausweiten. Auch für das Workspace Control, was eines der wichtigsten Elemente darstellt, gibt es bald mal ne Preview.
Features
- - Verhaltensweise eines nativen PB Gadgets auf Windows
- Optionales Interface
- Theme-Support
- Keyboard-Support
- Layout-Optionen
- Optionales Symbol (mit optionaler Auto-Skalierung)
- Toggle
- Blur-Effekt für deaktivierte Darstellung
- ToolTip der Beschriftung wenn nicht vollständig darstellbar
MCF
Werde einige Steuerelemente erstmal einzeln zu Testzwecken teilen. Wäre mir lieber für jedes Element einen Thread zu haben und diese dann in dem Inhaltsverzeichnis zu verlinken, so wäre es etwas geordneter.
Beispielcode
Code: Alles auswählen
;
;
; BC (Button Control)
;
; Version: 1.0 Demo
; Licence: http://creativecommons.org/licenses/by-nc-sa/3.0/
EnableExplicit
IncludeFile "BC.pbi"
UsePNGImageDecoder()
Define *BC_ThemeDefault = BC_ThemeDefault()
Define Image_Application = CatchImage(#PB_Any, ?Image_Application, ?Image_Application_End-?Image_Application)
OpenWindow(0, 0, 0, 160, 140, "Button Control", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
SetWindowColor(0, #Gray)
Define Button0.BCI
; With Interface
Button0 = BC_Create(0, 10, 10, 140, 20, *BC_ThemeDefault, "Button", #BCS_Scale|#BC_Interface)
Button0\SetSymbol(Image_Application)
BC_Create(1, 10, 35, 140, 40, *BC_ThemeDefault, "Button", #BCS_Left|#BCS_Bottom)
DisableGadget(1, #True)
BC_Create(2, 10, 80, 140, 50, *BC_ThemeDefault, "Toggle", #BCS_Toggle)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver