SpinGadget()

Syntax

Ergebnis = SpinGadget(#Gadget, x, y, Breite, Hoehe, Minimum, Maximum [, Flags])

Erstellt ein SpinGadget in der aktuellen Gadgetliste.

Wenn #PB_Any als '#Gadget' Parameter verwendet wird, dann wird die Nummer des neuen Gadgets als 'Ergebnis' zurückgegeben. '#Gadget' ist die Nummer, die (später) von der EventGadget() Funktion zurückgegeben wird.

'Flags' ist ein optionaler Parameter und kann sich aus einer der folgenden Konstanten zusammensetzen:

  #PB_Spin_ReadOnly : Das StringGadget ist nicht editierbar, die Nummer ist nur über die Pfeile änderbar.
  #PB_Spin_Numeric  : Das SpinGadget wird den Text automatisch mit dem aktuellen Wert des SpinGadgets updaten, womit SetGadgetText() nicht benötigt wird.

Zu diesem Gadget kann mittels GadgetToolTip() eine 'Mini-Hilfe' hinzugefügt werden.

Die folgenden Befehle können zum Verwalten des SpinGadget benutzt werden:

GetGadgetState(): Ermittelt den aktuellen Gadget-Wert.
SetGadgetState(): Ändert den aktuellen Gadget-Wert. Für das Anzeigen des neuen Werts ist jedoch trotzdem noch SetGadgetText() notwendig!
GetGadgetText(): Ermittelt den im Gadget enthaltenen Text.
SetGadgetText(): Ändert den im Gadget enthaltenen Text.
GetGadgetAttribute(): Mit einem der folgenden Attribute:

  #PB_Spin_Minimum   : Gibt den Minimal-Wert zurück.
  #PB_Spin_Maximum   : Gibt den Maximal-Wert zurück.

SetGadgetAttribute(): Mit einem der folgenden Attribute:

  #PB_Spin_Minimum   : Ändert den Minimal-Wert.
  #PB_Spin_Maximum   : Ändert den Maximal-Wert.

Die folgenden Ereignisse werden durch EventType() unterstützt:

  #PB_EventType_Change: Der Text im Eingabebereich wurde durch den Anwender geändert.
                     1: Der 'Nach oben' Schalter wurde gedrückt.
                    -1: Der 'Nach unten' Schalter wurde gedrückt.

Dieses Gadget unterstützt die SetGadgetColor() und GetGadgetColor() Befehle mit den folgenden Werten als 'FarbTyp':

  #PB_Gadget_FrontColor: Textfarbe
  #PB_Gadget_BackColor : Hintergrundfarbe

Beispiel:

  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
          SetGadgetText(0, Str(GetGadgetState(0)))
        EndIf
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

Unterstützte OS

Alle