EnableExplicit Define EventID Define hWndPM.WINDOWPLACEMENT If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget) ButtonGadget(1,10,10,200,20,"1. Fenstereinstellungen speichern",0) TextGadget(2,10,40,480,20,"2. Jetzt verändere z.B. die Fenstergröße und die Fensterposition.",0) ButtonGadget(3,10,60,200,20,"3. Fenstereinstellungen wiederherstellen",0) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 1 GetWindowPlacement_(WindowID(0),hWndPM) Case 3 SetWindowPlacement_(WindowID(0),hWndPM) EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf