Dies ist mit dem von PureBasic angebotenen und auf einem speziell modifizierten GTKBox-Gadget (mit jeweils einer GTKEventBox und GTKArrow für die Schaltflächen nach oben und nach unten) beruhenden SpinGadget nicht möglich. Daher war mein erster Versuch die Verwendung des GTK-Gadgets GtkSpinButton:
Code: Alles auswählen
EnableExplicit
ImportC ""
gtk_entry_set_text(*Entry.GtkEntry, Text.P-UTF8)
gtk_orientable_set_orientation(*Orientable, Orientation.I)
gtk_spin_button_new_with_range(Minimum.D, Maximum.D, StepIncrement.D)
EndImport
Define Layout.I
Define SpinButtonHour.I
Define SpinButtonMinute.I
Define TimeInfo.S
ProcedureC OutputCallback(*SpinButton.GtkSpinButton, UserData.I)
Static LastValue.I
Shared SpinButtonHour.I
Shared TimeInfo.S
Protected TimePart.S
Protected Value.I
Value = gtk_spin_button_get_value_as_int_(*SpinButton)
If Value <> LastValue Or LastValue = 0
TimePart = RSet(Str(Value), 2, "0")
gtk_entry_set_text(*SpinButton\entry, TimePart)
If *SpinButton = SpinButtonHour
TimeInfo = TimePart + ":" + Right(TimeInfo, 2)
Else
TimeInfo = Left(TimeInfo, 3) + TimePart
EndIf
StatusBarText(0, 0, TimeInfo, #PB_StatusBar_Center)
EndIf
LastValue = Value
ProcedureReturn #True
EndProcedure
TimeInfo = "00:00"
OpenWindow(0, 200, 100, 150, 120, "Time picker")
CreateStatusBar(0, WindowID(0))
AddStatusBarField(#PB_Ignore)
StatusBarText(0, 0, TimeInfo, #PB_StatusBar_Center)
Layout = g_list_nth_data_(gtk_container_get_children_(gtk_bin_get_child_(0 +
WindowID(0))), 0)
SpinButtonHour = gtk_spin_button_new_with_range(0, 23, 1)
gtk_orientable_set_orientation(SpinButtonHour, #GTK_ORIENTATION_VERTICAL)
gtk_spin_button_set_wrap_(SpinButtonHour, #True)
gtk_layout_put_(Layout, SpinButtonHour, 30, 15)
g_signal_connect_(SpinButtonHour, "output", @OutputCallback(), 0)
OutputCallback(SpinButtonHour, 0)
SpinButtonMinute = gtk_spin_button_new_with_range(0, 59, 1)
gtk_orientable_set_orientation(SpinButtonMinute, #GTK_ORIENTATION_VERTICAL)
gtk_spin_button_set_wrap_(SpinButtonMinute, #True)
gtk_layout_put_(Layout, SpinButtonMinute, 81, 15)
g_signal_connect_(SpinButtonMinute, "output", @OutputCallback(), 0)
OutputCallback(SpinButtonMinute, 0)
LoadFont(0, "CourierNew", 14, #PB_Font_Bold)
TextGadget(0, 70, 39, 10, 20, ":")
SetGadgetFont(0, FontID(0))
gtk_widget_show_all_(WindowID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
EndSelect
ForEver- Linux Mint 18.3 x64 Cinnamon mit PB 5.62 x64
- MacOS 10.6.8 (Snow Leopard) mit PB 5.62 x86
- Windows XP SP3 mit PB 5.62 x86
- Windows 7 SP1 x64 mit PB 5.62 x86
- Windows 10 x64 mit PB 5.62 x86
Linux Mint 18.3 mit Cinnamon:
MacOS 10.6.8:
Windows 7:
Code: Alles auswählen
EnableExplicit
#xOffset = 80
Structure IDEntries
IDButtonDown.I
IDButtonUp.I
IDText.I
MaxValue.I
EndStructure
Define Position.I
Define SelectedGadget.I
Define Text.S
Define TimeInfo.S
Define UpDownDetected.I
Define Value.I
NewList TimePicker.IDEntries()
Procedure CreateTimePicker(List TimePicker.IDEntries(), x.I, y.I,
DisplaySeconds.I = #False)
Protected FontButton.I
Protected FontName.S
Protected FontSizeButton.I
Protected FontSizeText.I
Protected FontText.I
Protected IDDelimiter.I
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
FontName = "Courier"
FontSizeButton = 12
FontSizeText = 30
CompilerCase #PB_OS_MacOS
FontName = "Courier"
FontSizeButton = 22
FontSizeText = 34
CompilerCase #PB_OS_Windows
FontName = "Courier New"
FontSizeButton = 12
FontSizeText = 30
CompilerEndSelect
FontButton = LoadFont(#PB_Any, FontName, FontSizeButton, #PB_Font_Bold)
FontText = LoadFont(#PB_Any, FontName, FontSizeText, #PB_Font_Bold)
AddElement(TimePicker())
TimePicker()\MaxValue = 23
TimePicker()\IDButtonUp = ButtonGadget(#PB_Any, x, y, 66, 28, "+")
SetGadgetFont(TimePicker()\IDButtonUp, FontID(FontButton))
TimePicker()\IDText = TextGadget(#PB_Any, x, y + 28, 66, 44, "00",
#PB_Text_Border | #PB_Text_Center)
SetGadgetFont(TimePicker()\IDText, FontID(FontText))
TimePicker()\IDButtonDown = ButtonGadget(#PB_Any, x, y + 70, 66, 28, "-")
SetGadgetFont(TimePicker()\IDButtonDown, FontID(FontButton))
AddElement(TimePicker())
TimePicker()\MaxValue = 59
TimePicker()\IDButtonUp = ButtonGadget(#PB_Any, x + #xOffset, y, 66, 28, "+")
SetGadgetFont(TimePicker()\IDButtonUp, FontID(FontButton))
TimePicker()\IDText = TextGadget(#PB_Any, x + #xOffset, y + 28, 66, 44, "00",
#PB_Text_Border | #PB_Text_Center)
SetGadgetFont(TimePicker()\IDText, FontID(FontText))
TimePicker()\IDButtonDown = ButtonGadget(#PB_Any, x + #xOffset, y + 70, 66,
28, "-")
SetGadgetFont(TimePicker()\IDButtonDown, FontID(FontButton))
IDDelimiter = TextGadget(#PB_Any, x + #xOffset - 19, y + 27, 17, 35, ":")
SetGadgetFont(IDDelimiter, FontID(FontText))
If DisplaySeconds
AddElement(TimePicker())
TimePicker()\MaxValue = 59
TimePicker()\IDButtonUp = ButtonGadget(#PB_Any, x + #xOffset * 2, y, 66,
28, "+")
SetGadgetFont(TimePicker()\IDButtonUp, FontID(FontButton))
TimePicker()\IDText = TextGadget(#PB_Any, x + #xOffset * 2, y + 28, 66, 44,
"00", #PB_Text_Border | #PB_Text_Center)
SetGadgetFont(TimePicker()\IDText, FontID(FontText))
TimePicker()\IDButtonDown = ButtonGadget(#PB_Any, x + #xOffset * 2, y + 70, 66,
28, "-")
SetGadgetFont(TimePicker()\IDButtonDown, FontID(FontButton))
IDDelimiter = TextGadget(#PB_Any, x + #xOffset * 2 - 19, y + 27, 17, 35,
":")
SetGadgetFont(IDDelimiter, FontID(FontText))
EndIf
CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
ForEach TimePicker()
CocoaMessage(0, GadgetID(TimePicker()\IDButtonDown),
"setBezelStyle:", 10)
CocoaMessage(0, GadgetID(TimePicker()\IDButtonUp),
"setBezelStyle:", 10)
Next
CompilerEndIf
EndProcedure
OpenWindow(0, 270, 100, 270, 150, "Time picker")
CreateStatusBar(0, WindowID(0))
AddStatusBarField(#PB_Ignore)
CreateTimePicker(TimePicker(), 20, 20, #True)
TimeInfo = "00:00"
If ListSize(TimePicker()) = 3
TimeInfo + ":00"
EndIf
StatusBarText(0, 0, TimeInfo, #PB_StatusBar_Center)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
SelectedGadget = EventGadget()
ForEach TimePicker()
Select SelectedGadget
Case TimePicker()\IDButtonDown
Value = Val(GetGadgetText(TimePicker()\IDText))
Value - 1
If Value = -1
Value = TimePicker()\MaxValue
EndIf
UpDownDetected = #True
Break
Case TimePicker()\IDButtonUp
Value = Val(GetGadgetText(TimePicker()\IDText))
Value + 1
If Value > TimePicker()\MaxValue
Value = 0
EndIf
UpDownDetected = #True
Break
EndSelect
Next
If UpDownDetected
Text = RSet(Str(Value), 2, "0")
SetGadgetText(TimePicker()\IDText, Text)
Position = (ListIndex(TimePicker()) + 1) * 3 - 2
TimeInfo = Left(TimeInfo, Position - 1) + Text +
Mid(TimeInfo, Position + 2)
StatusBarText(0, 0, TimeInfo, #PB_StatusBar_Center)
UpDownDetected = #False
EndIf
EndSelect
ForEver
!
).
- 