PurePointY (Window.l)
Previous
Top
Next
Returns Vertical Position of PurePoint in specified Window.
Use:
Y=PurePointY(Window)
Example:
#Main=0
#Text=1
If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
TextGadget(#Text,10,10,200,20,"")
hPoint=PurePoint("PP.pvp")
quitMain=0
Repeat
UsePurePoint(hPoint)
x=PurePointX(#Main)
y=PurePointY(#Main)
;<-- Return Vertical Position of PurePoint
SetGadgetText(#Text,"X="+Str(x)+" Y="+Str(y))
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
quitMain=1
EndSelect
Until quitMain
FreePurePoint(hPoint)
EndIf
End