其他元件.tbl

电气控制仿真软件

101,21,2
101,0,2
80,0,2
</points>
</line>
<line name="折线2" linecolor="$FFFFFF" backcolor="$C0C0C0" pattern="1">
<points>
81,19,6
81,1,2
98,1,2
</points>
</line>
<line name="折线3" linecolor="$808080">
<points>
81,19,6
99,1,2
</points>
</line>
<line name="折线5" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
82,20,6
100,20,2
100,2,2
</points>
</line>
<line name="折线6" linecolor="$FFFFFF">
<points>
82,20,6
100,2,2
</points>
</line>
<line name="折线1">
<points>
81,20,6
101,0,2
</points>
</line>
<programe>
Published Function OnDown(Sender)
文字1.Value = 文字1.Value - 1
End Function
Private Function OnLButtonDown(Sender,X,Y)
d=UnitAtCursor(0)
if d = 折线2 then
  d.LineColor = $808080
  折线3.LineColor = $C0C0C0
  OnUp( Sender )
else if d = 折线5 then
  d.LineColor = $FFFFFF
  折线6.LineColor = $808080
  OnDown( Sender )
end if
End Function
Private Function OnLButtonUp(Sender,X,Y)
折线2.LineColor = $FFFFFF
折线3.LineColor = $808080
折线5.LineColor = $808080
折线6.LineColor = $FFFFFF
End Function
Published Function OnUp(Sender)
文字1.Value = 文字1.Value + 1
End Function
</programe>
</elliment>
<text name="文字1" cursor="15" bounds="0,0,80,21" fontname="宋体" fontsize="16" readonly="false" textalign="26" text="0"/>
</sheet>
<sheet name="日期" bounds="0,0,120,20">
<text name="Text1" bounds="0,0,120,20" border="$0" fontname="宋体" fontsize="16"/>
<programe>
Private Function OnShow(Sender)
Text1.Text=Date()
End Function
</programe>
</sheet>
<sheet name="时间" bounds="0,0,78,22">
<text name="Text1" bounds="0,0,78,22" border="$0" fontname="宋体" fontsize="16"/>
<programe>
Private Function Initialize(Sender)
FTimer=CreateTimer(This,&quot;OnTimer&quot;,1000)
End Function
Private Function OnDestroy(Sender)
DestroyTimer( FTimer )
End Function
Private Function OnTimer(Sender)
Text1.Text=Time()
End Function
</programe>
</sheet>
<sheet name="颜色选择" bounds="0,0,120,120">
<shape name="Rect1" bounds="0,0,30,30" linetype="0" linewidth="2" backcolor="$0" pattern="1"/>
<shape name="Rect2" bounds="30,0,60,30" linetype="0" linewidth="2" backcolor="$80" pattern="1"/>
<shape name="Rect3" bounds="60,0,90,30" linetype="0" linewidth="2" backcolor="$8000" pattern="1"/>
<shape name="Rect4" bounds="90,0,120,30" linetype="0" linewidth="2" backcolor="$8080" pattern="1"/>
<shape name="Rect5" bounds="0,30,30,60" linetype="0" linewidth="2" backcolor="$800000" pattern="1"/>
<shape name="Rect6" bounds="30,30,60,60" linetype="0" linewidth="2" backcolor="$800080" pattern="1"/>
<shape name="Rect7" bounds="60,30,90,60" linetype="0" linewidth="2" backcolor="$808000" pattern="1"/>
<shape name="Rect8" bounds="90,30,120,60" linetype="0" linewidth="2" backcolor="$C0C0C0" pattern="1"/>
<shape name="Rect9" bounds="0,60,30,90" linetype="0" linewidth="2" backcolor="$808080" pattern="1"/>
<shape name="Rect10" bounds="30,60,60,90" linetype="0" linewidth="2" backcolor="$FF" pattern="1"/>
<shape name="Rect11" bounds="60,60,90,90" linetype="0" linewidth="2" backcolor="$FF00" pattern="1"/>
<shape name="Rect12" bounds="90,60,120,90" linetype="0" linewidth="2" backcolor="$FFFF" pattern="1"/>
<shape name="Rect13" bounds="0,90,30,120" linetype="0" linewidth="2" backcolor="$FF0000" pattern="1"/>
<shape name="Rect14" bounds="30,90,60,120" linetype="0" linewidth="2" backcolor="$FF00FF" pattern="1"/>
<shape name="Rect15" bounds="60,90,90,120" linetype="0" linewidth="2" backcolor="$FFFF00" pattern="1"/>
<shape name="Rect16" bounds="90,90,120,120" linetype="0" linewidth="2" pattern="1"/>
<shape name="Rect17" bounds="90,90,120,120" linewidth="3"/>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return Units[CurIndex].BackColor
End Function
Private Function Initialize(Sender)
CurIndex=0
End Function
Private Function OnClick(Sender)
d=UnitAtCursor(0)
Color = d.BackColor
End Function
Private Function OnResize(Sender)
i=0
x = 0
y = 0
w = int( Width / 4 )
h = int( Height / 4 )
while i &lt; 16
  d = Units[i]
  d.SetBounds( Left + x, Top + y, w, h )
  x = x + w
  i = i + 1
  if Mod( i, 4 ) = 0 then
    x = 0
    y = y + h
  end if
wend
x = Mod( CurIndex, 4 )
y = int( CurIndex / 4 )
i = y * 4 + x
Rect17.SetBounds( Units[i].Left, Units[i].Top, w, h )
End Function
Private Function SetColor(AColor)
i=0
while i &lt; 16
  d = Units[i]
  if AColor = d.BackColor then
    Rect17.SetBounds( d.left, d.top, d.Width, d.Height )
    CurIndex = i
    return
  end if
  i = i + 1
wend
CurIndex = 0
End Function
</programe>
</sheet>
<sheet name="标签图片" bounds="3,0,39,57" label="Text1">
<shape name="Image1" bounds="5,0,37,32" autosize="True" transparent="True" linetype="0">
<picture>
07TBitmap
424D42080000000000004200000028000000200000002000000001001000030000000008000000000000000000000000000000000000007C0000E00300001F00
0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000F75EF75EF75EF75EF75E00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75E0F000F000F000F000F00F75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F00EF3DEF3DEF3DEF3DEF3D0F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F000F000F000F000F000F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F000F000F000F000F000F000F000F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F000F000F000F000F000F000F000F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F000F000F00FF030F000F000F000F000F000F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F000F00FF030F000F000F000F000F000F000F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F00FF03EF01FF030F000F000F000F000F000F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F000F000F001F00FF031F00FF031F001F001F001F001F000F000F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E0F001F001F00FF03EF01FF031F001F001F001F001F001F001F001F000F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E1F001F001F00FF03EF01FF031F001F001F001F001F001F001F00F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7F1F001F00FF031F001F001F001F001F001F00FF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FFF7FFF7FF75EFF7FF75EFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FFF7FFF7FF75EFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FFF7FFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3DFF7FF75EFF7FF75EFF7FEF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EFF7FFF7FFF7FF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EFF7FFF7FFF7FF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EFF7FFF7FFF7FF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EFF7FF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000F75EFF7FF75EEF3DEF3D00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3DF75EF75EF75EF75EF75EF75EF75EEF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EF75EEF3DEF3DEF3DEF3DEF3DF75EF75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3DEF3DF75EF75EF75EF75EF75EEF3DEF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7F</picture>
</shape>
<text name="Text1" bounds="3,35,39,57" autosize="true" border="$0" fontname="宋体" fontsize="16" multiline="false" textalign="0" text="标签" calculate="false"/>
<programe>
Property Direction read GetDirection write SetDirection name 位置 editor FDirections
Private Function GetDirection()
return FDirection
End Function
Private Function Initialize(Sender)
FDirection=&quot;上下&quot;
FDirections=Array(2)
FDirections[0]=&quot;上下&quot;
FDirections[1]=&quot;左右&quot;
End Function
Published Function OnClick(Sender)
&apos;
End Function
Private Function OnLButtonDown(Sender,X,Y)
Image1.SetBounds( Image1.Left + 2, Image1.Top + 2, Image1.Width, Image1.Height )
Text1.SetBounds( Text1.Left + 2, Text1.Top + 2, Text1.Width, Text1.Height )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Image1.SetBounds( Image1.Left - 2, Image1.Top - 2, Image1.Width, Image1.Height )
Text1.SetBounds( Text1.Left - 2, Text1.Top - 2, Text1.Width, Text1.Height )
End Function
Private Function SetDirection(ADirection)
if ADirection=&quot;左右&quot; then
  FDirection=ADirection
  Text1.SetBounds( Image1.Left + Image1.Width + 4, Image1.Top + Image1.Height / 2 - Text1.Height / 2, Text1.Width, Text1.Height )
else
  FDirection=&quot;上下&quot;
  Text1.SetBounds( Image1.Left + Image1.Width / 2 - Text1.Width / 2, Image1.Top + Image1.Height + 4, Text1.Width, Text1.Height )
end if
Refresh()
End Function
</programe>
</sheet>
<sheet name="定时器" bounds="0,0,16,16" visible="false">