codeview.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,1024,768" bordericons="0" borderstyle="1" scrollbars="0" backcolor="$FFFFFF">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="sheet1" bounds="0,0,273,200">
<ListBox name="ListBox1" bounds="0,0,273,20" origin="128,88" Enable="true" Focused="false" itemheight="18" ItemIndex="-1">
<rect name="Element1" bounds="0,0,273,20" origin="8,4" linecolor="$80000010" pattern="1"/>
<element name="Item1" bounds="1,1,273,20" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,1,273,20" origin="85.5,-34.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,2,21,18" origin="9,9" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,1,273,19" origin="144,19" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="1"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
FSelected = AValue
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<rect name="rect1" bounds="1,1,272,19" origin="92,10" visible="false" linetype="15" linecolor="$FFFFFF"/>
<VScrollBar name="VScrollBar1" bounds="256,1,273,19" origin="264.5,73" visible="false" Enable="true" Max="0" Page="1" Pos="0">
<rect name="Line1" bounds="256,1,273,10.5" origin="304,29" linetype="0" backcolor="$80000000" frontcolor="$80000014" pattern="8">
<programe>
published function OnLButtonDown(Sender,X,Y)
if Y &gt; Element3.Top then
  Line2.SetBounds( Line1.Left, Element3.Top + Element3.Height, Line1.Width, Element1.Top - Element3.Top - Element3.Height )
  Line1.Tag = 1
else
  Line2.SetBounds( Line1.Left, Line1.Top, Line1.Width, Element3.Top - Line1.Top )
  Line1.Tag = -1
end if
Line2.Visible = true
SetPos( FPos + Line1.Tag * FPage )
FTimerInterval = 300
FTimer=CreateTimer( this, &quot;OnTimer&quot;, FTimerInterval )
end function
published function OnLButtonUp(Sender,X,Y)
Line2.Visible = false
OnDestroy( Sender )
end function
</programe>
</rect>
<rect name="Line2" bounds="256,1,273,1" origin="304,35" visible="false" linetype="0" backcolor="$80000010" pattern="1">
<programe>
published function OnLButtonDown(Sender,X,Y)
FTimer=CreateTimer(this,&quot;OnTimer&quot;,100)
if Y &gt; Element3.Top then
	Sender.Id = FPage
else
	Sender.Id = -FPage
end if
Sender.Tag=Y
end function
published function OnLButtonUp(Sender,X,Y)
if FTimer &lt;&gt; 0 then
	DestroyTimer(FTimer)
  FTimer = 0
end if
end function
</programe>
</rect>
<element name="Element3" bounds="256,1,272,17" origin="264,28" visible="false" protect="32">
<line name="Line5" origin="264,9" linecolor="$80000016">
<points>
256,17,6
256,1,2
272,1,2
</points>
</line>
<line name="Line6" origin="264,9" linecolor="$80000015">
<points>
256,17,6
272,17,2
272,1,2
</points>
</line>
<line name="Line7" origin="265,10" linecolor="$80000014">
<points>
257,16.111111,6
257,1.888889,2
271,1.888889,2
</points>
</line>
<line name="Line8" origin="265,10" linecolor="$80000010">
<points>
257,16.111111,6
271,16.111111,2
271,1.888889,2
</points>
</line>
<rect name="Rect2" bounds="258,2.777778,270,15.222222" origin="264,10" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<programe>
published function OnLButtonDown(Sender,X,Y)
Sender.Tag=Y-Sender.Top
end function
published function OnLButtonUp(Sender,X,Y)
Sender.Tag=0
end function
published function OnMouseMove(Sender,X,Y)
if Sender.Tag &gt; 0 then
  SetPos( ( Y - Sender.Tag - Line1.Top ) / ( Line1.Height - Sender.Height ) * FMax )
end if
end function
</programe>
</element>
<element name="Element1" bounds="256,10.5,272,19" origin="264,132" protect="32" Enable="true">
<line name="Line5" origin="264,19" linecolor="$80000016">
<points>
256,19,6
256,10.5,2
272,10.5,2
</points>
</line>
<line name="Line6" origin="264,19" linecolor="$80000015">
<points>
256,19,6
272,19,2
272,10.5,2
</points>
</line>
<line name="Line7" origin="265,20" linecolor="$80000014">
<points>
257,18.527778,6
257,10.972222,2
271,10.972222,2
</points>
</line>
<line name="Line8" origin="265,20" linecolor="$80000010">
<points>
257,18.527778,6
271,18.527778,2
271,10.972222,2
</points>
</line>
<rect name="Rect2" bounds="258,11.444444,270,18.055556" origin="264,20" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="264,22" linecolor="$80000012" backcolor="$80000012" pattern="1">
<points>
264,15.694444,6
267,14.277778,2
261,14.277778,3
</points>
</line>
<programe>
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
return Enabled
end function
private function Initialize(Sender)
FTimer=0
FTimerInterval = 300
end function
published function OnClick(Sender)
SetPos( FPos + 1 )
end function
private function OnDestroy(Sender)
if FTimer &lt;&gt; 0 then
  DestroyTimer( FTimer )
  FTimer = 0
end if
end function
private function OnLButtonDown(Sender,X,Y)
Line7.LineColor = $80000010
Line8.LineColor = $80000014
FTimerInterval = 300
FTimer=CreateTimer( Sender, &quot;OnTimer&quot;, FTimerInterval )
end function
private function OnLButtonUp(Sender,X,Y)
Line7.LineColor = $80000014
Line8.LineColor = $80000010
OnDestroy( Sender )
end function
private function OnTimer(Sender)
OnClick( Sender )
if FTimerInterval = 300 then
	OnDestroy( Sender )
	FTimerInterval = 100
	FTimer=CreateTimer( Sender, &quot;OnTimer&quot;, FTimerInterval )
end if
end function
private function SetEnable(AValue)
if AValue then
  Line9.BackColor = $80000012
  Line9.LineColor = $80000012
else
  Line9.BackColor = $80000011
  Line9.LineColor = $80000011
end if
Enabled = AValue
end function
</programe>
</element>
<element name="Element2" bounds="256,1,272,9.5" origin="264,18" protect="32" Enable="true">
<line name="Line5" origin="264,9.5" linecolor="$80000016">
<points>
256,9.5,6
256,1,2
272,1,2
</points>
</line>
<line name="Line6" origin="264,9.5" linecolor="$80000015">
<points>
256,9.5,6
272,9.5,2
272,1,2
</points>
</line>
<line name="Line7" origin="265,10.5" linecolor="$80000014">
<points>
257,9.027778,6
257,1.472222,2
271,1.472222,2
</points>
</line>
<line name="Line8" origin="265,10.5" linecolor="$80000010">
<points>
257,9.027778,6
271,9.027778,2
271,1.472222,2
</points>
</line>
<rect name="Rect2" bounds="258,1.944444,270,8.555556" origin="264,10.5" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="264,9.5" linecolor="$80000012" backcolor="$80000012" pattern="1">
<points>
264,4.777778,6
267,6.194444,2
261,6.194444,3
</points>
</line>
<programe>
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
return Enabled
end function
private function Initialize(Sender)
FTimer=0
FTimerInterval = 300
end function
published function OnClick(Sender)
SetPos( FPos - 1 )
end function
private function OnDestroy(Sender)
if FTimer &lt;&gt; 0 then
  DestroyTimer( FTimer )
  FTimer = 0
end if
end function
private function OnLButtonDown(Sender,X,Y)
Line7.LineColor = $80000010
Line8.LineColor = $80000014
FTimerInterval = 300
FTimer=CreateTimer( Sender, &quot;OnTimer&quot;, FTimerInterval )
end function
private function OnLButtonUp(Sender,X,Y)
Line7.LineColor = $80000014
Line8.LineColor = $80000010
OnDestroy( Sender )
end function
private function OnTimer(Sender)
OnClick( Sender )
if FTimerInterval = 300 then
	OnDestroy( Sender )
	FTimerInterval = 100
	FTimer=CreateTimer( Sender, &quot;OnTimer&quot;, FTimerInterval )
end if
end function
private function SetEnable(AValue)
if AValue then
  Line9.BackColor = $80000012
  Line9.LineColor = $80000012
else
  Line9.BackColor = $80000011
  Line9.LineColor = $80000011
end if
Enabled = AValue
end function
</programe>
</element>
<programe>
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
return Enabled
end function
private function Initialize(Sender)
FPos=0
FPage=10
FMax=100
FTimer=0
FTimerInterval = 300
end function
property Max read FMax write SetMax
published function OnChange(Sender)
if IsLoaded() then
  i=0
  j=VScrollBar1.Pos
  while i &lt; Group1.UnitCount
    AUnit = Group1.Units[i]
    if i + j &lt; ar.Count then
      AUnit.Visible = true
      AUnit.Units[1].BackColor = $FFFFFF
      AUnit.Units[1].Pattern = 1
      OnDrawItem( i + j )
    else
      AUnit.Visible = false
    end if
    AUnit.Selected = ( i + j = FItemIndex )
    i = i + 1
  wend
end if
end function
private function OnDestroy(Sender)
if FTimer &lt;&gt; 0 then
  DestroyTimer( FTimer )
  FTimer = 0
end if
end function
private function OnResize(Sender)
if Height &lt;= 32 then
  h = ( Height - 1 ) / 2
  Element1.SetBounds( Left, Top+Height-h, Element1.Width, h )
  Element2.SetBounds( Left, Top, Element2.Width, h )
else
  Element1.SetBounds( Left, Top + Height - 16, Element1.Width, 16 )
  Element2.SetBounds( Left, Top, Element2.Width, 16 )
end if
Element3.Visible = Height &gt;= 48
if Element3.Visible then
  Element3.Top = Element2.Top + Element2.Height
else
  Element3.Top = Element2.Top
end if
Line1.SetBounds( Left, Element3.Top, Line1.Width, Element1.Top - Element3.Top )
Line2.SetBounds( Line1.Left, Line1.Top, Line1.Width, Line1.Height )
SetPos( FPos )
end function
private function OnTimer(Sender)
SetPos( FPos + Line1.Tag * FPage )
p = Point( 0, 0 )
GetCursorPos( p )
ScreenToClient( p )
ClientToView( p )
stop = false
if Line1.Tag &gt; 0 then
  if p.y &lt; Element3.Top + Element3.Height then
    stop = true
  end if
else
  if p.y &gt; Element3.Top then
    stop = true
  end if
end if
if stop then
  OnDestroy( Sender )
  Line2.Visible = false
else if FTimerInterval = 300 then
  OnDestroy( Sender )
  FTimerInterval = 100
  FTimer = CreateTimer( Sender, &quot;OnTimer&quot;, FTimerInterval )