shapes.tbl

来自「cShap控制云台运动」· TBL 代码 · 共 33 行

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" gridsize="10" range="0,0,800,553" backcolor="$FFFFFF">
<page name="Page" bounds="0,0,827,1169" visible="false"/>
<sheet name="roundrect">
<line name="Line1" origin="88,56" pattern="1">
<points>
40,0,6
140,0,2
162.09139,0,4
180,14.326888,4
180,32,4
180,64,2
180,81.673112,4
162.09139,96,4
140,96,4
40,96,2
17.90861,96,4
0,81.673112,4
0,64,4
0,32,2
0,14.326888,4
17.90861,0,4
40,0,4
</points>
<programe>
published function OnNodeChange(Sender)
Corner=Sender.Points[Sender.PointCount-1].x - Left
end function
</programe>
</line>
<programe>
property BackColor read FBackColor write SetBackColor name 鑳屾櫙棰滆壊 editor Color
property Corner read FCorner write SetCorner name 鍦嗚