test1.tbl

来自「电气控制仿真软件」· TBL 代码 · 共 92 行

<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="10" zoom="200,100" range="0,0,1024,721" backcolor="$FFFFFF" frontcolor="$0" pattern="1">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="刀闸" bounds="0,5,33,13">
<line name="Line5" origin="1,2" visible="false" backcolor="$FF" pattern="1">
<points>
10,11,6
22,5,2
</points>
</line>
<shape name="Circle3" type="Circle" bounds="22,9,26,13" backcolor="$FF"/>
<line name="Line6" backcolor="$FF" pattern="1">
<points>
10,11,6
22,11,2
</points>
</line>
<shape name="Circle4" type="Circle" bounds="6,9,10,13" backcolor="$FF"/>
<line name="L1" linkmode="2">
<points>
6,11,6
0,11,2
</points>
</line>
<line name="L2" linkmode="2">
<points>
26,11,6
33,11,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return L1.LineColor
End Function
Private Function GetIsoff()
return Line6.Visible
End Function
Property Isoff read GetIsoff write SetIsoff name 开合 editor Bool
Private Function SetColor(AColor)
Circle4.LineColor = AColor
Circle3.LineColor = AColor
Line5.LineColor = AColor
Line6.LineColor = AColor
L2.LineColor = AColor
L1.LineColor = AColor
End Function
Private Function SetIsoff(AIsoff)
Line6.Visible = AIsoff
Line5.Visible = not AIsoff
End Function
</programe>
</sheet>
<sheet name="变压器" bounds="5,2,36,43">
<shape name="Circle4" type="Circle" bounds="5,11,19,25"/>
<shape name="Circle5" type="Circle" bounds="5,20,19,34"/>
<shape name="Circle1" type="Circle" bounds="13,16,27,30"/>
<line name="L1" linkmode="2">
<points>
12,11,6
12,2,2
</points>
</line>
<line name="L3" linkmode="2">
<points>
12,34,6
12,43,2
</points>
</line>
<line name="L2" linkmode="2">
<points>
27,22,6
36,22,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor name 颜色 editor Color
Private Function GetColor()
return L1.LineColor
End Function
Private Function SetColor(AColor)
circle1.LineColor=Acolor
circle4.LineColor=Acolor
circle5.LineColor=Acolor
L1.LineColor=Acolor
L2.LineColor=Acolor
L3.LineColor=Acolor
End Function
</programe>
</sheet>
</vg>