propedit.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,2000,2000" borderstyle="0" scrollbars="0" backcolor="$FFFFFF">
<page name="Page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="Sheet1" bounds="0,-7,748,725" cursheet="0" FrontColor="0">
<listbox name="ListBox1" bounds="1,0,248,38" origin="86,62" combo="0" itemheight="18" ItemIndex="-1" ShowPropertyName="false">
<text name="Item1" bounds="2,0,230,18" origin="42.5,176.25" visible="false" linecolor="$8000000F" backcolor="$80000005" border="$1000100" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="4"/>
<text name="Item2" bounds="2,18,230,36" origin="42.5,176.25" visible="false" linecolor="$8000000F" backcolor="$80000005" border="$1000100" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="4"/>
<rect name="Rect1" bounds="1,0,231,38" origin="181,148" alpha="60" linetype="0" linecolor="$80000006"/>
<VScrollBar name="VScrollBar1" bounds="231,0,248,38" origin="296.5,72" Enable="true" Max="0" Page="1" Pos="0">
<rect name="Line1" bounds="231,0,248,22" origin="279,28" 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="231,0,248,0" origin="279,34" 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="231,0,247,16" origin="239,27" protect="32">
<line name="Line5" origin="239,8" linecolor="$80000016">
<points>
231,16,6
231,0,2
247,0,2
</points>
</line>
<line name="Line6" origin="239,8" linecolor="$80000015">
<points>
231,16,6
247,16,2
247,0,2
</points>
</line>
<line name="Line7" origin="240,9" linecolor="$80000014">
<points>
232,15.111111,6
232,0.888889,2
246,0.888889,2
</points>
</line>
<line name="Line8" origin="240,9" linecolor="$80000010">
<points>
232,15.111111,6
246,15.111111,2
246,0.888889,2
</points>
</line>
<rect name="Rect2" bounds="233,1.777778,245,14.222222" origin="239,9" 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="231,22,247,38" origin="239,131" protect="32" Enable="true">
<line name="Line5" origin="239,30.5" linecolor="$80000016">
<points>
231,38,6
231,22,2
247,22,2
</points>
</line>
<line name="Line6" origin="239,30.5" linecolor="$80000015">
<points>
231,38,6
247,38,2
247,22,2
</points>
</line>
<line name="Line7" origin="240,31.5" linecolor="$80000014">
<points>
232,37.111111,6
232,22.888889,2
246,22.888889,2
</points>
</line>
<line name="Line8" origin="240,31.5" linecolor="$80000010">
<points>
232,37.111111,6
246,37.111111,2
246,22.888889,2
</points>
</line>
<rect name="Rect2" bounds="233,23.777778,245,36.222222" origin="239,31.5" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="239,33.5" linecolor="$80000012" backcolor="$80000012" pattern="1">
<points>
239,31.777778,6
242,29.111111,2
236,29.111111,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="231,0,247,16" origin="239,17" protect="32" Enable="true">
<line name="Line5" origin="239,8.5" linecolor="$80000016">
<points>
231,16,6
231,0,2
247,0,2
</points>
</line>
<line name="Line6" origin="239,8.5" linecolor="$80000015">
<points>
231,16,6
247,16,2
247,0,2
</points>
</line>
<line name="Line7" origin="240,9.5" linecolor="$80000014">
<points>
232,15.111111,6
232,0.888889,2
246,0.888889,2
</points>
</line>
<line name="Line8" origin="240,9.5" linecolor="$80000010">
<points>
232,15.111111,6
246,15.111111,2
246,0.888889,2
</points>
</line>
<rect name="Rect2" bounds="233,1.777778,245,14.222222" origin="239,9.5" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="239,8.5" linecolor="$80000012" backcolor="$80000012" pattern="1">
<points>
239,7.111111,6
242,9.777778,2
236,9.777778,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
  while i &lt; ar.Count
    e = Parent.UnitByName( &apos;G&apos; + ar[i] )
    if e = 0 then
      e = Parent.UnitByName( &apos;V&apos; + ar[i] )
    end if
    if e &lt;&gt; 0 then
      e.Visible = false
    end if
    i = i + 1
  wend
  i = 0
  j=VScrollBar1.Pos
  while i &lt; Group1.UnitCount
    d = Group1.Units[i]
    if i + j &lt; ar.Count then
      d.Visible = true
      if FShowPropertyName then
        d.Text = ar[i+j]
      else
        d.Text = cp[i+j]
      end if
      e = Parent.UnitByName( &apos;G&apos; + ar[i+j] )
      if e = 0 then
        e = Parent.UnitByName( &apos;V&apos; + ar[i+j] )
        d.FontColor = $80000008
      else
        d.FontColor = $FF
      end if
      if e &lt;&gt; 0 then
        e.SetBounds( Parent.Line3.Left + 1, d.Top + 1, Rect1.Left + Rect1.Width - Parent.Line3.Left - 2, d.Height - 2 )
        e.Visible = true
      end if
    else
      d.Visible = false
      d.Text = &quot;&quot;
    end if
    i = i + 1
  wend
  n = FItemIndex
  FItemIndex = -2
  ItemIndex = n
  UpdateWindow()
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