?? test.~tbl
字號:
<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="8" zoom="200,100" range="0,0,1024,721" caption="設備監控" backcolor="$0" 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="頁1" bounds="17,10,254,190.5">
<elliment name="刀閘垂直25" cursor="7" bounds="27,10,61,49" onoff="True">
<text name="Text1" bounds="27,23,49,37" linewidth="2" linecolor="$FFFF" backcolor="$C0C0C0" border="$0" fontname="Arial" fontsize="10" fontcolor="$FFFF" textalign="26" text="492"/>
<line name="Line1" visible="false" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,25,6
61,34,2
</points>
</line>
<line name="Line2" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,10,6
55,19,2
</points>
</line>
<line name="Line3" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,40,6
55,49,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="52,19,58,25" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<shape name="Circle2" type="Circle" bounds="52,34,58,40" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<line name="Line4" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,25,6
55,34,2
</points>
</line>
<shape name="Rect1" bounds="27,10,61,49" origin="48.25,32" linetype="0" pattern="254"/>
<programe>
Private Function GetOnOff()
return Line4.Visible
End Function
Published Function OnClick(Sender)
Sender.OnOff = not Sender.OnOff
End Function
Property OnOff read GetOnOff write SetOnOff
Private Function SetOnOff(AOnOff)
Line4.Visible = AOnOff
Line1.Visible = not AOnOff
End Function
</programe>
</elliment>
<elliment name="刀閘垂直1" cursor="7" bounds="18,100,61,139" onoff="True">
<text name="Text1" bounds="18,113,49,127" linewidth="2" linecolor="$FFFF" backcolor="$C0C0C0" border="$0" fontname="Arial" fontsize="10" fontcolor="$FFFF" textalign="26" text="492-1"/>
<line name="Line1" visible="false" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,115,6
61,124,2
</points>
</line>
<line name="Line2" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,100,6
55,109,2
</points>
</line>
<line name="Line3" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,130,6
55,139,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="52,109,58,115" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<shape name="Circle2" type="Circle" bounds="52,124,58,130" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<line name="Line4" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,115,6
55,124,2
</points>
</line>
<shape name="Rect1" bounds="18,100,61,139" origin="42,124" linetype="0" pattern="254"/>
<programe>
Private Function GetOnOff()
return Line4.Visible
End Function
Published Function OnClick(Sender)
Sender.OnOff = not Sender.OnOff
End Function
Property OnOff read GetOnOff write SetOnOff
Private Function SetOnOff(AOnOff)
Line4.Visible = AOnOff
Line1.Visible = not AOnOff
End Function
</programe>
</elliment>
<text name="文字1" bounds="17,147,254,190.5" frontcolor="$808000" pattern="245" fontname="宋體" fontsize="8" fontcolor="$FF" textalign="0" text="說明:
這里演示電流在運動。
每個刀閘都可以手動開合。
在線路通的情況下，紅色小球不斷運動表示這里有電流通過。"/>
<line name="折線3" linecolor="$FF" endarrow="1">
<points>
39,50,6
39,91,2
</points>
</line>
<line name="折線4" origin="4,-0.5" linecolor="$FF" endarrow="1">
<points>
90,54.5,6
120,54.5,2
</points>
</line>
<elliment name="刀閘垂直2" cursor="7" bounds="118,105,161,144" origin="-18,1" onoff="True">
<text name="Text1" bounds="118,118,149,132" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$C0C0C0" border="$0" fontname="Arial" fontsize="10" fontcolor="$FFFF" textalign="26" text="492-2"/>
<line name="Line1" origin="-18,1" visible="false" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,120,6
161,129,2
</points>
</line>
<line name="Line2" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,105,6
155,114,2
</points>
</line>
<line name="Line3" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,135,6
155,144,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="152,114,158,120" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<shape name="Circle2" type="Circle" bounds="152,129,158,135" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<line name="Line4" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,120,6
155,129,2
</points>
</line>
<shape name="Rect1" bounds="118,105,161,144" origin="158,133" linetype="0" pattern="254"/>
<programe>
Private Function GetOnOff()
return Line4.Visible
End Function
Published Function OnClick(Sender)
Sender.OnOff = not Sender.OnOff
End Function
Property OnOff read GetOnOff write SetOnOff
Private Function SetOnOff(AOnOff)
Line4.Visible = AOnOff
Line1.Visible = not AOnOff
End Function
</programe>
</elliment>
<elliment name="定時器2" bounds="158,46.5,174,62.5" origin="-34,-49.5" visible="false" enable="True" interval="40">
<shape name="Image1" bounds="158,46.5,174,62.5" origin="-34,-49.5" autosize="True" transparent="True" linetype="0">
<picture>
07TBitmap
424D42020000000000004200000028000000100000001000000001001000030000000002000000000000000000000000000000000000007C0000E00300001F00
0000FF7F000000000040FF7F00000000000000000000FF7F004000000000FF7FFF7FFF7FFF7F0040000000000000007C0000007C0000000000000040FF7FFF7F
FF7FFF7FFF7F00000000007CF75EFF7F0000FF7FF75E007C00000000FF7FFF7FFF7FFF7FEF3D0000007CF75E0000FF7FFF7FFF7F0000F75E007C0000EF3DFF7F
FF7FFF7F0000007C007CFF7FFF7F0000FF7FFF7FFF7FFF7F007C007C0000FF7FFF7FFF7F0000007C0000FF7FFF7FFF7F0000FF7FFF7F00000000007C0000FF7F
FF7FFF7F0000007C007CFF7FFF7FFF7F0000FF7FFF7FFF7F007C007C0000FF7FFF7FFF7FEF3D0000007CF75E0000FF7F0000FF7F0000F75E007C0000EF3DFF7F
FF7FFF7FFF7F00000000007CF75EFF7F0000FF7FF75E007C00000000FF7FFF7FFF7F00000000000000000000007C007C007C007C007C00000000000000000000
FF7F0000F75EF75EEF3D0000000000000000000000000000F75EEF3DEF3D0000FF7F0000F75EF75EF75EF75EEF3DEF3D0000EF3DF75EF75EF75EF75EEF3D0000
FF7FFF7F0000EF3DF75EF75E0000EF3D0000EF3D0000F75EF75EEF3D0000FF7FFF7FFF7FFF7FEF3D00000000FF7FFF7F0000FF7FFF7F00000000EF3DFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7F</picture>
</shape>
<programe>
Property Enable read GetEnable write SetEnable editor Bool
Private Function GetEnable()
return FEnable
End Function
Private Function GetInterval()
return FInterval
End Function
Private Function Initialize(Sender)
FInterval=1000
Timer=0
FEnable = false
End Function
Property Interval read GetInterval write SetInterval
Private Function OnDestroy(Sender)
if Timer <> 0 then
DestroyTimer( Timer )
Timer = 0
end if
End Function
Published Function OnTimer(Sender)
折線2.FlowAnim=(刀閘垂直2.OnOff and 刀閘垂直25.OnOff)折線1.FlowAnim=(刀閘垂直1.OnOff and 刀閘垂直25.OnOff)if 折線1.FlowAnim then 折線1.Flow()end ifif 折線2.FlowAnim then 折線2.Flow()end if
End Function
Private Function SetEnable(AEnable)
FEnable = AEnable
if not IsDesign() then
if Timer <> 0 then
DestroyTimer( Timer )
Timer = 0
end if
if AEnable then
Timer = CreateTimer( This, "OnTimer", FInterval )
end if
end if
End Function
Private Function SetInterval(AInterval)
if AInterval <> FInterval and AInterval >= 1 then
FInterval = AInterval
if Timer<>0 then
DestroyTimer( Timer )
Timer = CreateTimer( This, "OnTimer", FInterval )
end if
end if
End Function
</programe>
</elliment>
<elliment name="折線2" bounds="55,73,155,107" origin="195,74" flowanim="True">
<line name="Line1" origin="271,65" linetype="3" linewidth="2" linecolor="$FFFF" linkmode="2">
<points>
55,73,6
155,73,2
155,107,2
</points>
</line>
<line name="Line2" origin="-61,73" visible="false" linetype="2" linewidth="2" linecolor="$FFFF">
<points>
55,73,6
55,73,2
</points>
</line>
<programe>
Public Function Flow()
Line1.Points[0].x = Line1.Points[0].x + 1if Line2.Visible then Line2.Points[0].x = Line2.Points[0].x + 1 if Line2.Points[0].x - Line2.Points[1].x >= 6 then Line2.Visible = false Line1.Points[0].x = Left end ifelse if Line1.Points[0].x - Left > 6 then Line2.Visible = true Line2.Points[0].x = Line1.Points[0].x - 6end ifLine1.Refresh()Line2.Refresh()
End Function
</programe>
</elliment>
<elliment name="折線1" bounds="55,48,55,102" origin="195,49" flowanim="True">
<line name="Line1" origin="271,40" linetype="3" linewidth="2" linecolor="$FFFF" linkmode="2">
<points>
55,48,6
55,102,2
</points>
</line>
<line name="Line2" origin="-61,48" visible="false" linetype="2" linewidth="2" linecolor="$FFFF">
<points>
55,48,6
55,48,2
</points>
</line>
<programe>
Public Function Flow()
Line1.Points[0].y = Line1.Points[0].y + 1if Line2.Visible then Line2.Points[0].y = Line2.Points[0].y + 1 if Line2.Points[0].y - Line2.Points[1].y >= 6 then Line2.Visible = false Line1.Points[0].y = Top end ifelse if Line1.Points[0].y - Top > 6 then Line2.Visible = true Line2.Points[0].y = Line1.Points[0].y - 6end ifLine1.Refresh()Line2.Refresh()
End Function
</programe>
</elliment>
</sheet>
</vg>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -