其他元件.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="4" zoom="400,100" activesheetindex="30" range="0,0,1024,721" caption="其他元件" borderstyle="1" backcolor="$8000000F" frontcolor="$0" pattern="1">
<hint name="提示2" bounds="0,0,0,0">
<line name="Line1" origin="38,15" linetype="0" backcolor="$FF" pattern="1">
<points>
14,15,6
14,72,2
17.116667,70,2
17.116667,17,2
197.883333,17,2
201,15,2
14,15,2
</points>
</line>
<line name="Line2" origin="38,15" linetype="0" backcolor="$0" pattern="1">
<points>
201,72,6
201,15,2
197.883333,17,2
197.883333,70,2
17.116667,70,2
14,72,2
201,72,2
</points>
</line>
<text name="Text1" bounds="17.116667,17,197.883333,70" origin="38,15" backcolor="$80" pattern="1" border="$0" fontname="宋体" fontsize="16" fontcolor="$FFFF" text="确定"/>
</hint>
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="页号" bounds="0,-1,180,21">
<text name="Text1" bounds="0,-1,180,21" border="$0" fontname="宋体" fontsize="16"/>
<programe>
Private Function OnShow(Sender)
Text1.Text=&quot;第&quot; + Str( ActiveSheetIndex + 1, 0 ) + &quot;页 / 共&quot; + Str( SheetCount, 0 ) + &quot;页&quot; 
End Function
</programe>
</sheet>
<sheet name="声音" bounds="0,0,65,25">
<text name="Text1" bounds="0,0,65,25" visible="false" fontname="宋体" fontsize="16" text="声音"/>
<programe>
Property FileName read GetFileName write SetFileName
Private Function GetFileName()
return FFileName
End Function
Private Function Initialize(Sender)
extern void=PlaySound(string,int,int) in winmm.dll name PlaySoundA
FFileName=&quot;&quot;
End Function
Public Function Play()
PlaySound( FFileName, 0, $20001 )
End Function
Private Function SetFileName(AFileName)
FFileName=AFileName
End Function
Public Function Stop()
PlaySound( 0, 0, 0 )
End Function
</programe>
</sheet>
<sheet name="子窗口" bounds="0,0,330,210">
<shape name="Rect1" bounds="0,0,330,210" visible="false"/>
<programe>
Property Doc read GetDoc visible false 
Private Function GetDoc()
return Control
End Function
Private Function Initialize(Sender)
Control=0
End Function
Public Function LoadFile(AFileName)
if Control &lt;&gt; 0 then
	Control.Free()
end if
Control = Create( Owner.Handle, AFileName, true, false )
Control.BorderStyle = 1
OnResize( This )
Control.Show()
End Function
Private Function OnDestroy(Sender)
if Control &lt;&gt; 0 then
	Control.Free()
end if
End Function
Private Function OnHide(Sender)
if Control &lt;&gt; 0 then
	Control.Hide()
end if
End Function
Private Function OnMove(Sender)
OnResize( Sender )
End Function
Private Function OnResize(Sender)
p1=Point(Left,Top)
p2=Point(Left+Width,Top+Height)
ViewToClient( p1 )
ViewToClient( p2 )
Rect1.SetBounds( Left, Top, Width, Height )
if Control &lt;&gt; 0 then
	extern void = MoveWindow( int, int, int, int, int, bool ) in User32.dll
	MoveWindow( Control.Handle, p1.x, p1.y, p2.x - p1.x, p2.y - p1.y, true )
end if
End Function
Private Function OnShow(Sender)
if Control &lt;&gt; 0 then
	Control.Show()
end if
End Function
</programe>
</sheet>
<sheet name="横向滚动图形" bounds="0,0,160,20">
<text name="Text1" bounds="0,0,160,20" visible="false" border="$0" fontname="宋体" fontsize="16" text="Hello"/>
<programe>
Property Direction read FDirection write SetDirection name 运动方向 editor Directions
Private Function Initialize(Sender)
FTimer=0
x=0
FInterval=50
FDirection=&quot;正向&quot;
Directions=Array(2)
Directions[0]=&quot;正向&quot;
Directions[1]=&quot;反向&quot;
End Function
Property Interval read FInterval write SetInterval
Private Function OnDestroy(Sender)
if( FTimer &lt;&gt; 0 )then
  DestroyTimer( FTimer )
  FTimer = 0
end if
End Function
Private Function OnPaint(Sender,DC)
if not IsDesign() then
  extern int = SelectObject( int, int ) in Gdi32.dll
  extern void = DeleteObject( int ) in Gdi32.dll
  extern void = SelectClipRgn( int, int ) in Gdi32.dll
  rgn=CreateRegion()
  SelectClipRgn( dc, rgn )
  Text1.Left = Left - x
  Text1.PaintTo( DC )
  Text1.Left = Left + Width - x
  Text1.PaintTo( DC )
  SelectClipRgn( dc, 0 )
  DeleteObject( rgn )
  Text1.Left = Left
end if
End Function
Private Function OnResize(Sender)
Units[0].SetBounds( Left, Top, Width, Height )
End Function
Private Function OnTimer(Sender)
if FDirection = &quot;反向&quot; then
  x=x+5
  if x &gt;= Width then
    x = 0
  end if
else if FDirection = &quot;正向&quot; then
  x=x-5
  if x &lt;= 0 then
    x = Width
  end if
end if
Refresh()
End Function
Private Function SetDirection(ADirection)
FDirection=ADirection
End Function
Private Function SetInterval(AInterval)
OnDestroy( This )
FInterval = AInterval
if not IsDesign() then
  FTimer=CreateTimer( this, &quot;OnTimer&quot;, FInterval )
end if
End Function
</programe>
</sheet>
<sheet name="纵向滚动图形" bounds="0,0,106,75">
<text name="Text1" bounds="0,0,106,75" visible="false" border="$0" fontname="宋体" fontsize="16" text="Hello"/>
<programe>
Property Direction read FDirection write SetDirection name 运动方向 editor Directions
Private Function Initialize(Sender)
FTimer=0
y=0
FInterval=50
FDirection=&quot;正向&quot;
Directions=Array(2)
Directions[0]=&quot;正向&quot;
Directions[1]=&quot;反向&quot;
End Function
Property Interval read FInterval write SetInterval
Private Function OnDestroy(Sender)
if( FTimer &lt;&gt; 0 )then
  DestroyTimer( FTimer )
  FTimer = 0
end if
End Function
Private Function OnPaint(Sender,DC)
if not IsDesign() then
  extern int = SelectObject( int, int ) in Gdi32.dll
  extern void = DeleteObject( int ) in Gdi32.dll
  extern void = SelectClipRgn( int, int ) in Gdi32.dll
  rgn=CreateRegion()
  SelectClipRgn( dc, rgn )
  Text1.Top = Top - y
  Text1.PaintTo( DC )
  Text1.Top = Top + Height - y
  Text1.PaintTo( DC )
  SelectClipRgn( dc, 0 )
  DeleteObject( rgn )
  Text1.Top = Top
end if
End Function
Private Function OnResize(Sender)
Units[0].SetBounds( Left, Top, Width, Height )
End Function
Private Function OnTimer(Sender)
if FDirection=&quot;反向&quot; then
  y=y+5
  if y &gt;= Height then
    y = 0
  end if
else
  y=y-5
  if y &lt;= 0 then
    y = Height
  end if
end if
Refresh()
End Function
Private Function SetDirection(ADirection)
FDirection=ADirection
End Function