Code de test :
Code : Tout sélectionner
OpenWindow(0, 379, 172, 588, 389, #PB_Window_SystemMenu, "Test PB4_B2")
CreateGadgetList(WindowID(0))
ButtonGadget(0, 50, 50, 100, 20, "ResizeWindow")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 0 ; Bouton
ResizeWindow(0, -1, -1, -1, -1)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
End