SpinGadget() Beispiel in Hilfe

[dige]

@Andrè: finde leider gerade den Thread fürs Handbuch nicht.

Das Event Handling im Beispiel für das SpinGadget() funktioniert nicht, wenn der Nutzer eine Zahl als Text eingibt.
Es muss daher wie folgt erweitert werden:

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 140, 70, "SpinGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    SpinGadget     (0, 20, 20, 100, 25, 0, 1000)
    SetGadgetState (0, 5) : SetGadgetText(0, "5")   ; legt den Anfangswert fest
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Gadget
        If EventGadget() = 0
          Select EventType()
            Case #PB_EventType_Up, #PB_EventType_Down
              SetGadgetText(0, Str(GetGadgetState(0)))
              
            Case #PB_EventType_Change
              SetGadgetState(0, Val(GetGadgetText(0)))
          EndSelect
          
        EndIf
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf