ResizeGadget()
Syntax
ResizeGadget(#Gadget, x, y, Breite, Höhe)Beschreibung
Ä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