ResizeGadget()

Syntaxe

ResizeGadget(#Gadget, X, Y, Largeur, Hauteur)

Change la taille et la position d'un gadget.

Arguments

#Gadget	Le gadget à utiliser
X, Y, Largeur, Hauteur	La position et les dimensions du nouveau gadget. Pour faciliter le redimensionnement de l'interface en temps réel, la constante #PB_Ignore peut être spécifiée à chacun des paramètres (X, Y, Largeur ou Hauteur) conservant la valeur précédente de ce paramètre.

Valeur de retour

Aucune.

Exemple

  Procedure RedimFen()
    ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(0) - 20, WindowHeight(0) - 60) 
    ResizeGadget(1, #PB_Ignore, WindowHeight(0) - 40, WindowWidth(0) - 20, #PB_Ignore) 
  EndProcedure
  
  If OpenWindow(0, 0, 0, 220, 100, "Redimensionner la fenêtre", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
    WindowBounds(0, WindowWidth(0), WindowHeight(0), #PB_Ignore, #PB_Ignore)
  
    EditorGadget(0, 10, 10, WindowWidth(0) - 20, WindowHeight(0) - 60)
    ButtonGadget(1, 10, WindowHeight(0) - 40, WindowWidth(0) - 20, 30, "Bouton")
    
    ; Utiliser BindEvent() pour redimensionner un gadget en temps réel
    BindEvent(#PB_Event_SizeWindow, @RedimFen())
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          End
      EndSelect
    ForEver
  EndIf

Voir aussi

GadgetX(), GadgetY(), GadgetWidth(), GadgetHeight(), ResizeWindow(), BindEvent()

OS Supportés

Tous