xy
Nelson Zink
zink at newmex.com
Wed Jan 23 16:38:01 EST 2002
Erik,
> any MC analogues for the xy handler?
on xy
set cursor to cross
set the numberformat to "0.##"
--set the height of msg for three lines
put the mouseloc into temp
repeat until the mouseclick
put "Loc: "&the mouseloc&" Horz: "&the mouseH&" Vert: "&the mouseV
into temp2
put the mouseH-item 1 of temp into XD
put the mouseV-item 2 of temp into YD
put "Xdist: "&XD&" YDist: "&YD&" Angle:
"&90-(round(atan2(abs(XD),abs(YD))*180/pi)) into line 2 of temp2
put (XD^2 + YD^2)^.5 into temp3
put "XYDist: "&temp3 &" pixels, "&(temp3 /72)& " inches" into line 3 of
temp2
put temp2
end repeat
end xy
Here's one that does a little more. I don't know how to set the message box
height so it will automatically display the three lines. If you do, stick
that line in.
Nelson
More information about the metacard
mailing list