ResizeGadget()

Syntax

ResizeGadget(#Gadget, x, y, Breite, Höhe)

Ändert das angegebene Gadget auf die angegebene Position und Dimensionen.

Parameter

#Gadget	Das zu verändernde Gadget.
x, y, Breite, Höhe	Die neue Position und die neuen Abmessungen des Gadgets. Um das Erstellen eines in Echtzeit größenveränderbaren ("realtime resizeable") Graphical User Interface (GUI) zu vereinfachen, kann als Parameter (x, y, Breite oder Höhe) jeweils #PB_Ignore übergeben werden und dieser Parameter wird dann nicht verändert.

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Beispiel: Gadgetgröße an veränderte Fenstergröße anpassen

  Procedure SizeHandler()
    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, "Resize the window", #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, "Button")
    
    ; Verwende BindEvent(), um eine Echtzeit-Größenänderung der Gadgets zu erhalten
    BindEvent(#PB_Event_SizeWindow, @SizeHandler())
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          End
      EndSelect
    ForEver
  EndIf

Siehe auch

GadgetX(), GadgetY(), GadgetWidth(), GadgetHeight()

Unterstützte OS

Alle