PurePointYY (Gadget.l)

Top  Previous  Next

Returns Vertical Position of PurePoint in specified Gadget.

 

Use:

Y=PurePointYY(Gadget)

 

 

 

Example:

 

#Main=0

#Text=1

#Button=3

 

If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")

If   CreateGadgetList(WindowID(#Main))

TextGadget(#Text,10,10,200,20,"")  

ButtonGadget(#Button,10,50,80,20,"Demo")

EndIf

 

hPoint=PurePoint("PP.pvp")

 

quitMain=0

Repeat

UsePurePoint(hPoint)

 

x=PurePointXX(#Button)      

y=PurePointYY(#Button)      ;<-- Return Vertical Position of PurePoint on Button

 

If x<0 Or y<0    

SetGadgetText(#Text,"Null")    

Else

SetGadgetText(#Text,"X="+Str(x)+"   Y="+Str(y))

EndIf

 

Select WaitWindowEvent()

Case #PB_Event_CloseWindow

quitMain=1

EndSelect

Until quitMain

 

FreePurePoint(hPoint)

EndIf

End