I want to limit the movement of a window
I use this code
Code: Select all
Procedure wmoveevent()
Protected ew=EventWindow()
Debug WindowY(ew)
If WindowY(ew)<100
ResizeWindow(ew,#PB_Ignore,100,#PB_Ignore,#PB_Ignore)
EndIf
EndProcedure
OpenWindow(0, 0, 0, 512,512, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
BindEvent(#PB_Event_MoveWindow,@ wmoveevent())