http://www.purebasic.com
https://www.purebasic.fr/english/
No beep for me, at least with the example in the doc?paulr wrote:Hi, I've noticed pressing enter while editing the number in a SpinGadget triggers a system beep (Windows 10). Is there a way to prevent this and instead to trigger some action in the program?
Code: Select all
If OpenWindow(0, 0, 0, 140, 70, "SpinGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SpinGadget(0, 10, 10, 65, 25, 0, 100,#PB_Spin_Numeric )
TextGadget(1,10,40,60,25,"")
SetGadgetState (0, 5) : SetGadgetText(0, "5")
AddKeyboardShortcut(0, #PB_Shortcut_Return, 10)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Menu
Select EventMenu()
Case 10
If GetActiveGadget() = 0
SetActiveGadget(-1)
SetGadgetText(1,GetGadgetText(0))
EndIf
EndSelect
EndSelect
Until Quit = 1
EndIf
Code: Select all
If OpenWindow(0, 0, 0, 240, 70, "SpinGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SpinGadget(0, 10, 10, 65, 25, 0, 100,#PB_Spin_Numeric )
TextGadget(1,10,40,60,25,"")
SpinGadget(2, 110, 10, 65, 25, 0, 100,#PB_Spin_Numeric )
TextGadget(3,110,40,60,25,"")
SetGadgetState (0, 5) : SetGadgetText(0, "5")
SetGadgetState (2, 5) : SetGadgetText(0, "5")
AddKeyboardShortcut(0, #PB_Shortcut_Return, 10)
Repeat
e = WaitWindowEvent()
Debug e
Select e
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Menu
Select EventMenu()
Case 10
If GetActiveGadget() = 0
SetActiveGadget(-1)
SetGadgetText(1,Str(Val(GetGadgetText(0))*2))
ElseIf GetActiveGadget() = 2
SetActiveGadget(-1)
SetGadgetText(3,Str(Val(GetGadgetText(2))*2))
EndIf
EndSelect
EndSelect
Until Quit = 1
EndIf