alpha.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,161,17" borderstyle="1" scrollbars="0" backcolor="$FFFFFF">
<page name="page" bounds="0,0,210,296" visible="false"/>
<sheet name="sheet1" Combo="0">
<rect name="rect1" bounds="0,0,160,16" origin="80,4" backcolor="$C0C0C0" frontcolor="$FFFFFF" pattern="242"/>
<rect name="rect2" cursor="8" bounds="104,1,112,16" origin="108,9" linetype="0" frontcolor="$808080" pattern="243">
<programe>
published function OnLButtonDown(Sender,X,Y)
Sender.Tag = 1
end function
published function OnLButtonUp(Sender,X,Y)
Sender.Tag = 0
end function
published function OnMouseMove(Sender,X,Y)
if Sender.Tag = 1 then
  if X - Rect2.Width / 2 &lt; 0 then
    Rect2.MoveTo( Rect1.Left, Rect1.Top + 1 )
  else if X + Rect2.Width / 2 &gt; Rect1.Right then
    Rect2.MoveTo( Rect1.Right - Rect2.Width, Rect1.Top + 1 )
  else
    Rect2.MoveTo( X - Rect2.Width / 2, Rect1.Top + 1 )
  end if
  Combo.Text = Str( ( Rect2.Left - Rect1.Left ) * 100 / ( Rect1.Width - Rect2.Width ), 0 )
  Combo.Parent.OnValueChanged( Combo.Parent )
  UpdateWindow()
end if
end function
</programe>
</rect>
<programe>
private function Initialize(Sender)
FOldValue = &quot;&quot;
end function
private function OnKeyDown(Sender,Key)
if Key = 13 then
  Close( 1 )
else
  Combo.Text = FOldValue
  Close( 0 )
end if
end function
private function OnLButtonDown(Sender,X,Y)
Rect2.Tag = 1
Rect2.OnMouseMove( Rect2, X, Y )
end function
private function OnRButtonDown(Sender,X,Y)
Combo.Text = FOldValue
Close( 0 )
end function
private function OnShow(Sender)
FOldValue = Combo.Text
n = Val( FOldValue )
Rect2.Left = n * ( Rect1.Width - Rect2.Width ) / 100 + Rect1.Left
end function
</programe>
</sheet>
</vg>