<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" scrollbars="0" papervisible="false">
<sheet name="sheet1" visible="false">
<text name="text1" origin="146,66" bounds="8,24,168,76" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="
鼠标在图形上面移动时执行。
"/>
<text name="text2" origin="10,18" bounds="8,8,89,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="OnMouseMove"/>
<text name="text3" origin="322,136" bounds="8,92,228,156" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="
private function OnMouseMove(Sender)
end function

参数Sender是图形自身。"/>
<text name="text4" origin="28,84" bounds="8,76,51,92" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="语法："/>
<circle name="circle1" origin="56,208" bounds="8,160,120,272" pattern="1">
<text name="text1" origin="64,216" bounds="24.40202,176.40202,103.59798,255.59798" border="0" fontname="宋体" fontsize="12" text="在此移动鼠标"/>
<programe>
<!--
published function OnMouseMove(Sender,X,Y)
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
r = sqrt( sqr( X - ox ) + sqr( Y - oy ) )
circle2.SetBounds( ox - r, oy - r, 2 * r, 2 * r )
end function
-->
</programe>
</circle>
<circle name="circle2" origin="64,216" bounds="32,184,96,248" linecolor="$FF0000"/>
</sheet>
</vg>
