linewidth.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" gridsize="22" activesheetIndex="1" range="0,0,137,132" borderstyle="1" scrollbars="0" backcolor="$FFFFFF">
<page name="page" bounds="0,0,210,296" visible="false"/>
<sheet name="MenuItem">
<rect name="Rect1" bounds="0,0,132,16" origin="77,15.5" linetype="0" backcolor="$80000004" pattern="1"/>
<line name="Line2" origin="70,8.5">
<points>
10,8,6
122,8,2
</points>
</line>
<programe>
property Caption read GetCaption write SetCaption
property Focused read GetFocused write SetFocused editor Bool
private function GetCaption()
return CStr( Line2.LineWidth )
end function
private function GetFocused()
return Rect1.BackColor = $8000000D
end function
public function HideSubMenu()
end function
private function OnClick(Sender)
ActiveSheet.HandleCommand( Line2.LineWidth )
end function
public function OnKeyDown(Sender,Key)
if ( Key = 13 ) then
  Parent.HandleCommand( Id )
else if Key = 27 then
  Close( 0 )
else if Key = 38 then
  i=0
  prior = 0
  last = 0
  t = 0
  while i &lt; Parent.UnitCount
    d = Parent.Units[i]
    if d.Type = Type then
      if d = this then
        prior = t
      else
        t = d
      end if
      last = d
    end if
    i = i + 1
  wend
  if prior &lt;&gt; 0 then
    prior.Focused = true
  else
    last.Focused = true
  end if
else if Key = 40 then
  i=0
  first = 0
  next = 0
  t = 0
  while i &lt; Parent.UnitCount
    d = Parent.Units[i]
    if d.Type = Type then
      if d = this then
        t = d
      else if t &lt;&gt; 0 then
        next = d
        t = 0
      end if
      if first = 0 then
        first = d
      end if
    end if
    i = i + 1
  wend
  if next &lt;&gt; 0 then
    next.Focused = true
  else
    first.Focused = true
  end if
end if
end function
private function OnMouseEnter(Sender)
Focused = true
end function
private function OnMouseExit(Sender)
Focused = false
end function
private function OnResize(Sender)
Height = Rect1.Height
Rect1.SetBounds( Left, Top, Width, Rect1.Height )
Line2.Width = Rect1.Width - 20
end function
private function SetCaption(AValue)
if AValue = &quot;0&quot; then
  Line2.LineType = 0
  d = Line2.AddLabel()
  d.FontSize = 12
  d.Text = &quot;鍗曠嚎鏉