PureBoard

Code: Alles auswählen

If OpenWindow(0,800,300,350,100,"Test")
  StringGadget(0,20,20,306,20,"")
  StringGadget(1,20,55,306,20,"",#PB_String_ReadOnly)
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_EventType_Focus : Debug "Klick!"
      Case #PB_EventType_Change : Debug "Stop!"
        Case #PB_Event_CloseWindow : quit.i = 1
    EndSelect
  Until quit = 1
Else
  MessageRequester("Fehler!", "Der Test konnte nicht gestartet werden.")
EndIf

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(0,20,20,306,20,"")
  StringGadget(1,20,55,306,20,"",#PB_String_ReadOnly)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID=#PB_Event_Gadget
      Select EventGadget()
        Case 0
          Select EventType()
             Case #PB_EventType_Focus : Debug "Klick!"
             Case #PB_EventType_Change : Debug "Stop!"
           EndSelect
         Case 1
           Select EventType()
             Case #PB_EventType_Focus : Debug "Klick!"
             Case #PB_EventType_Change : Debug "Stop!"
           EndSelect
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf