Crée une nouvelle barre de défilement (ascenseur vertical ou horizontal) dans la GadgetList courante.
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 de la barre de déplacement dans la fenêtre, Largeur et
Hauteur, ses dimensions.
Les valeurs 'Minimum-Maximum' spécifie l'intervalle qui sera utilisé
par la barre de déplacement (valeurs comprises entre 0 et 10 000). Un ascenceur permet de se déplacer par page (lorque l'on clique en dehors du
curseur de déplacement) et le paramètre 'LongueurPage' permet de définir la valeur de ce déplacement. Exemple
concret: La longueur totale du composant (image, document, container etc...) fait 500 pixels. On ne peut
en afficher que 100 pixels. Donc on aura une valeur minimale de 0, une valeur Maximale de 500 et une
longueur de page de 100. Le curseur sera 5 fois plus petit que la barre de déplacement, car sa dimension
est proportionnelle (dimension = Maximum/LongueurPage).
Le paramètre facultatif 'Options' peut être une combinaison des constantes suivantes:
#PB_ScrollBar_Vertical: La barre de déplacement sera verticale.
GadgetToolTip() permet d'ajouter une 'mini aide' à ce gadget.
Les fonctions suivantes peuvent être appelées pour agir sur la barre de déplacement :
- GetGadgetState(): Renvoie la position actuelle du curseur (valeur comprise dans l'intervalle Minimum-Maximum)
- SetGadgetState(): Change la position actuelle du curseur.
- GetGadgetAttribute() avec un des attributs suivants:
#PB_ScrollBar_Minimum : Renvoie la position minimale de l'ascenseur.
#PB_ScrollBar_Maximum : Renvoie la position maximale de l'ascenseur.
#PB_ScrollBar_PageLength: Renvoie la longueur de la page.
- SetGadgetAttribute(): avec un des attributs suivants:
#PB_ScrollBar_Minimum : Change la position minimale de l'ascenseur.
#PB_ScrollBar_Maximum : Change la position maximale de l'ascenseur.
#PB_ScrollBar_PageLength: Change la longueur de la page.
If OpenWindow(0, 0, 0, 305, 140, "ScrollBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TextGadget (2, 10, 25, 250, 20, "Ascenseur standard (début = 50, page = 30/100)",#PB_Text_Center)
ScrollBarGadget (0, 10, 42, 250, 20, 0, 100, 30)
SetGadgetState (0, 50) ; change la valeur de la 1ère barre de défilement (ID = 0) à 50 sur 100
TextGadget (3, 10,115, 250, 20, "Ascenseur vertical (début = 100, page = 50/300)",#PB_Text_Right)
ScrollBarGadget (1, 270, 10, 25, 120 ,0, 300, 50, #PB_ScrollBar_Vertical)
SetGadgetState (1, 100) ; change la valeur de la 2ème barre de défilement (ID = 1) à 100 sur 300
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
