test.tbl

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

<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="10" range="0,0,1024,719" 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="Sheet1" bounds="64,73,249,182.121212121">
<text name="Text1" bounds="64,73,248,120" origin="156,96.5" pattern="1" fontname="宋体" fontsize="16" text="Text1"/>
<elliment name="水平刀闸1" type="水平刀闸" bounds="66.5,137.878787879,249,182.121212121" origin="83,160" color="0" isoff="True">
<line name="Line5" origin="67.5,153" visible="false" backcolor="$FF" pattern="1">
<points>
121.803030303,171.060606061,6
188.166666667,137.878787879,2
</points>
</line>
<shape name="Circle3" type="Circle" bounds="188.166666667,160,210.287878788,182.121212121" origin="66.5,151" backcolor="$FF"/>
<line name="Line6" origin="66.5,151" backcolor="$FF" pattern="1">
<points>
121.803030303,171.060606061,6
188.166666667,171.060606061,2
</points>
</line>
<shape name="Circle4" type="Circle" bounds="99.681818182,160,121.803030303,182.121212121" origin="66.5,151" backcolor="$FF"/>
<line name="L1" origin="66.5,151" linkmode="2">
<points>
99.681818182,171.060606061,6
66.5,171.060606061,2
</points>
</line>
<line name="L2" origin="66.5,151" linkmode="2">
<points>
210.287878788,171.060606061,6
249,171.060606061,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>
</elliment>
</sheet>
</vg>