ScrollAreaGadget()

Syntaxe

Resultat = ScrollAreaGadget(#Gadget, x, y, Largeur, Hauteur, LargeurZoneInterne, HauteurZoneInterne, ValeurDeplacement [, Options])

Crée une gadget permettant d'afficher une zone plus grande que celle affichée à l'écran, à l'aide de barre de déplacement. Si #PB_Any est utilisé pour le paramètre '#Gadget', le numéro du nouveau gadget sera renvoyé dans 'Resultat'. Tout le déplacement de la zone interne est gérée automatiquement par le gadget. Par exemple, il est très utile pour afficher une image trop grande pour être vu en entière (à l'aide d'un ImageGadget(). Cette zone peut contenir n'importe quel type de gadgets. Quand ce gadget est créé la 'GadgetList' courante est automatiquement changée et les nouveaux gadgets qui sont créés après cette commande seront placés dans ce #Gadget. CloseGadgetList() permet de revenir à la 'GadgetList' précédente. OpenGadgetList() pourra être utiliser pour ajouter des gadgets dynamiquement dans ce #Gadget.

'LargeurZoneInterne' et 'HauteurZoneInterne' sont les dimensions de la zone interne, qui devraient être supérieures ou égales aux dimensions 'Largeur' et 'Hauteur' du #Gadget. 'ValeurDeplacement' est le nombre de pixels qui sera affiché quand on presse l'une des flèches de déplacements, pour permettre une vitesse de déplacement variable. #Gadget est le numéro du gadget renvoyé par la fonction EventGadget(). Un évènement est généré lorsque l'utilisateur déplace les ascenseurs du gadget.

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

  #PB_ScrollArea_Flat      : Cadre simple
  #PB_ScrollArea_Raised    : Cadre élevé
  #PB_ScrollArea_Single    : Cadre enfoncé
  #PB_ScrollArea_BorderLess: Sans bordure
  #PB_ScrollArea_Center    : La zone interne est automatiquement centrée si sa taille est plus petite que les dimensions du gadget. 

Les commandes suivantes peuvent être utilisées pour agir sur un ScrollAreaGadget:

GetGadgetAttribute(): Avec une des constantes suivantes:

  #PB_ScrollArea_InnerWidth : Renvoie la largeur (en pixels) de la zone interne du gadget. 
  #PB_ScrollArea_InnerHeight: Renvoie la hauteur (en pixels) de la zone interne du gadget.  
  #PB_ScrollArea_X          : Renvoie la position horizontale actuelle de l'ascenseur (en pixels).
  #PB_ScrollArea_Y          : Renvoie la position verticale actuelle de l'ascenseur (en pixels).

SetGadgetAttribute(): Avec une des constantes suivantes:

  #PB_ScrollArea_InnerWidth : Modifie la largeur (en pixels) de la zone interne du gadget. 
  #PB_ScrollArea_InnerHeight: Modifie la hauteur (en pixels) de la zone interne du gadget.  
  #PB_ScrollArea_X          : Modifie la position horizontale actuelle de l'ascenseur (en pixels).
  #PB_ScrollArea_Y          : Modifie la position verticale actuelle de l'ascenseur (en pixels).

Ce gadget supporte les commandes SetGadgetColor() et GetGadgetColor() avec la constante #PB_Gadget_BackColor comme 'TypeCouleur' pour changer la couleur de fond du gadget.

Exemple:

  If OpenWindow(0, 0, 0, 305, 140, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    ScrollAreaGadget(0, 10, 10, 290,120, 375, 155, 30)
      ButtonGadget  (1, 10, 10, 230, 30,"Bouton 1")
      ButtonGadget  (2, 50, 50, 230, 30,"Bouton 2")
      ButtonGadget  (3, 90, 90, 230, 30,"Bouton 3")
      TextGadget    (4,130,130, 230, 20,"Ceci est le contenu d'une zone de défilement !",#PB_Text_Right)
      CloseGadgetList() 
    Repeat 
      Select WaitWindowEvent() 
        Case  #PB_Event_CloseWindow 
          End 
        Case  #PB_Event_Gadget 
          Select EventGadget()
            Case 1
              MessageRequester("Info","Le bouton 1 a été appuyé !",#PB_MessageRequester_Ok)
            Case 2
              MessageRequester("Info","Le bouton 2 a été appuyé !",#PB_MessageRequester_Ok)
            Case 3
              MessageRequester("Info","Le bouton 3 a été appuyé !",#PB_MessageRequester_Ok)
          EndSelect
      EndSelect 
    ForEver 
  EndIf

OS Supportés

Tous