SpinGadget()

Syntaxe

Resultat = SpinGadget(#Gadget, x, y, Largeur, Hauteur, Minimum, Maximum [, Options])

Crée un gadget 'incrémental' (Spin) dans la GadgetList. Si #PB_Any est utilisé pour le paramètre '#Gadget', le numéro du nouveau gadget sera renvoyé dans 'Resultat'. #Gadget est le numéro du gadget renvoyé par la fonction EventGadget(). x et y représentent la position du gadget dans la fenêtre, Largeur et Hauteur, ses dimensions.

Le paramètre facultatif 'Options' peut être une combinaison des valeurs suivantes:

  #PB_Spin_ReadOnly: Le gadget n'est pas éditable, sa valeur ne peut être changée que par les flèches.
  #PB_Spin_Numeric : Le gadget va mettre à jour automatiquement le texte affiché par rapport à sa valeur 
                   interne spécifiée par SetGadgetState(), donc SetGadgetText() n'est pas nécessaire.

GadgetToolTip() permet d'ajouter une 'mini aide' à ce gadget.

Les fonctions suivantes peuvent être appelées pour contrôler le gadget:

GetGadgetState(): Renvoie la valeur du curseur interne.
SetGadgetState(): Change la valeur du curseur interne.
GetGadgetText(): Renvoie le texte du gadget.
SetGadgetText(): Change le texte du gadget.
GetGadgetAttribute() avec un des attributs suivants:

  #PB_Spin_Minimum: Renvoie la valeur minimale possible.
  #PB_Spin_Maximum: Renvoie la valeur maximale possible. 

SetGadgetAttribute(): avec un des attributs suivants:

  #PB_Spin_Minimum: Change la valeur minimale possible.
  #PB_Spin_Maximum: Change la valeur maximale possible. 

Les évènements suivants sont supportés par EventType():

  #PB_EventType_Change: L'utilisateur a changé le texte dans la zone d'édition.
                     1: Le bouton 'Haut' a été pressé.
                    -1: Le bouton 'Bas' a été pressé.

Ce gadget supporte les commandes SetGadgetColor() et GetGadgetColor() avec les valeurs 'TypeCouleur' suivantes:

  #PB_Gadget_FrontColor: couleur du texte 
  #PB_Gadget_BackColor : couleur du fond

Exemple

  If OpenWindow(0, 0, 0, 160, 70, "SpinGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    SpinGadget     (0, 20, 20, 100, 25, 0, 1000)
    SetGadgetState (0, 5) : SetGadgetText(0, "5")   ; définit la valeur initiale
    Repeat
      Evenement = WaitWindowEvent()
      If Evenement = #PB_Event_Gadget
        If EventGadget() = 0
          SetGadgetText(0,Str(GetGadgetState(0)))
        EndIf
      EndIf
    Until Evenement = #PB_Event_CloseWindow
  EndIf

OS Supportés

Tous