
Vorteile:
- im Code völlig wartungsfrei
- Texte dürfen länger sein als die Breite des Edits (scrollend)
- linksbündig
- Minimums über 0 sind erlaubt
Code: Alles auswählen
; (Text-)Editierbares SpinGadget (linksbündig)
; (w) 2012 Frabbing
;
Enumeration
#window
#spingadget
EndEnumeration
If OpenWindow(#window, 0, 0, 640, 480, "Editierbares SpinGadget", #PB_Window_TitleBar | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_Screencentered)
;Maximum = 6000
;Minimum = 3000
;Aktueller Wert = 4000
;
StringGadget(#spingadget, 8, 8, 120, 24, "")
CreateUpDownControl_($56000086, 0, 0, 0, 0, WindowID(#window), 0, GetModuleHandle_(0), GadgetID(#spingadget), 6000, 3000, 4000)
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
EndIf
End