PureBoard

Code: Alles auswählen

Enumeration
  #StartStopButton
  #StringTest  
EndEnumeration


OpenWindow(1,0,0,200,200,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(#StringTest, 10, 50, 106, 20, "StringGadget")
ButtonGadget(#StartStopButton,10,10,106,25,"Press",0)
SetGadgetColor(#StartStopButton, #PB_Gadget_FrontColor, $00AA00)

AddKeyboardShortcut(1,#PB_Shortcut_Space,#StartStopButton) ;<---Wenn Space gedrückt wurde dann Event

Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
  Select EventGadget()
    Case #StartStopButton
      MessageRequester("Test","Button wurde gedrückt",0)
  EndSelect
EndIf
If event = #PB_Event_Menu
  Select EventMenu()
    Case #StartStopButton
      MessageRequester("Test","Button wurde gedrückt",0)
  EndSelect
EndIf
Until event = #PB_Event_CloseWindow

Code: Alles auswählen

  Select EventGadget()
    Case #StringTest
      Select EventType()
        Case #PB_EventType_Focus
          RemoveKeyboardShortcut(#StringTest, #PB_Shortcut_Space)
        Case #PB_EventType_LostFocus
          AddKeyboardShortcut(#StringTest, #PB_Shortcut_Space, #StartStopButton)
      EndSelect