sheetman.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,385,249" caption="椤甸潰" bordericons="1" borderstyle="1" scrollbars="0" backcolor="$8000000F" paperbounds="0,0,793.700787,1122.141732" papervisible="false">
<sheet name="sheet1" bounds="12,12,320,135">
<KeyManager name="KeyManager1" lib="controls.tbl" origin="204,60" bounds="192,48,216,72" visible="false" protect="12" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<ListBox name="ListBox1" origin="112,10" bounds="0,0,384,248" Enable="true" Focused="false" itemheight="25" ItemIndex="-1" Items="">
<rect name="rect1" origin="64,24" bounds="0,0,384,248" linecolor="$8000000A" pattern="1"/>
<VScrollBar name="VScrollBar1" origin="-1,-1" bounds="367,1,384,247" visible="false" Enable="true" Max="0" Page="1" Pos="0">
<rect name="Line1" origin="415,29" bounds="367,17,384,231" linetype="0" backcolor="$80000000" frontcolor="$80000014" pattern="8">
<programe>
<!--
published function OnLButtonDown(Sender,X,Y)
if Y > 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
SetTimer( FTimerInterval )
end function
published function OnLButtonUp(Sender,X,Y)
Line2.Visible = false
SetTimer( 0 )
end function
-->
</programe>
</rect>
<rect name="Line2" origin="415,35" bounds="367,17,384,17" visible="false" linetype="0" backcolor="$80000010" pattern="1">
<programe>
<!--
published function OnLButtonDown(Sender,X,Y)
SetTimer( 100 )
if Y > Element3.Top then
	Sender.Id = FPage
else
	Sender.Id = -FPage
end if
Sender.Tag=Y
end function
published function OnLButtonUp(Sender,X,Y)
SetTimer( 0 )
end function
-->
</programe>
</rect>
<element name="Element3" origin="375,28" bounds="367,17,383,33" protect="32">
<line name="Line5" origin="375,25" linecolor="$80000016" points="367,33,6 367,17,2 383,17,2"/>
<line name="Line6" origin="375,25" linecolor="$80000015" points="367,33,6 383,33,2 383,17,2"/>
<line name="Line7" origin="376,26" linecolor="$80000014" points="368,32.111111,6 368,17.888889,2 382,17.888889,2"/>
<line name="Line8" origin="376,26" linecolor="$80000010" points="368,32.111111,6 382,32.111111,2 382,17.888889,2"/>
<rect name="Rect2" origin="375,26" bounds="369,18.777778,381,31.222222" 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 > 0 then
  SetPos( ( Y - Sender.Tag - Line1.Top ) / ( Line1.Height - Sender.Height ) * FMax )
end if
end function
-->
</programe>
</element>
<element name="Element1" origin="375,132" bounds="367,231,383,247" protect="32" Enable="true">
<line name="Line5" origin="375,239.5" linecolor="$80000016" points="367,247,6 367,231,2 383,231,2"/>
<line name="Line6" origin="375,239.5" linecolor="$80000015" points="367,247,6 383,247,2 383,231,2"/>
<line name="Line7" origin="376,240.5" linecolor="$80000014" points="368,246.111111,6 368,231.888889,2 382,231.888889,2"/>
<line name="Line8" origin="376,240.5" linecolor="$80000010" points="368,246.111111,6 382,246.111111,2 382,231.888889,2"/>
<rect name="Rect2" origin="375,240.5" bounds="369,232.777778,381,245.222222" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="375,242.5" linecolor="$80000012" backcolor="$80000012" pattern="1" points="375,240.777778,6 378,238.111111,2 372,238.111111,3"/>
<programe>
<!--
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
return Enabled
end function
private function Initialize(Sender)
FTimerInterval = 300
end function
published function OnClick(Sender)
SetPos( FPos + 1 )
end function
private function OnLButtonDown(Sender,X,Y)
Line7.LineColor = $80000010
Line8.LineColor = $80000014
FTimerInterval = 300
SetTimer( FTimerInterval )
end function
private function OnLButtonUp(Sender,X,Y)
Line7.LineColor = $80000014
Line8.LineColor = $80000010
SetTimer( 0 )
end function
private function OnTimer(Sender)
OnClick( Sender )
if FTimerInterval = 300 then
	FTimerInterval = 100
	SetTimer( 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" origin="375,18" bounds="367,1,383,17" protect="32" Enable="true">
<line name="Line5" origin="375,9.5" linecolor="$80000016" points="367,17,6 367,1,2 383,1,2"/>
<line name="Line6" origin="375,9.5" linecolor="$80000015" points="367,17,6 383,17,2 383,1,2"/>
<line name="Line7" origin="376,10.5" linecolor="$80000014" points="368,16.111111,6 368,1.888889,2 382,1.888889,2"/>
<line name="Line8" origin="376,10.5" linecolor="$80000010" points="368,16.111111,6 382,16.111111,2 382,1.888889,2"/>
<rect name="Rect2" origin="375,10.5" bounds="369,2.777778,381,15.222222" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="375,9.5" linecolor="$80000012" backcolor="$80000012" pattern="1" points="375,8.111111,6 378,10.777778,2 372,10.777778,3"/>
<programe>
<!--
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
return Enabled
end function
private function Initialize(Sender)
FTimerInterval = 300
end function
published function OnClick(Sender)
SetPos( FPos - 1 )
end function
private function OnLButtonDown(Sender,X,Y)
Line7.LineColor = $80000010
Line8.LineColor = $80000014
FTimerInterval = 300
SetTimer( FTimerInterval )
end function
private function OnLButtonUp(Sender,X,Y)
Line7.LineColor = $80000014
Line8.LineColor = $80000010
SetTimer( 0 )
end function
private function OnTimer(Sender)
OnClick( Sender )
if FTimerInterval = 300 then
	FTimerInterval = 100
	SetTimer( 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
FTimerInterval = 300
end function
property Max read FMax write SetMax
published function OnChange(Sender)
if IsLoaded() then
  i=0
  j=VScrollBar1.Pos
  while i < UnitCount - 2
    AUnit = Units[i+2]
    if i + j < ar.Count then
      AUnit.Visible = true
      AUnit.Value = ar[i + j]
    else
      AUnit.Visible = false
    end if
    AUnit.Selected = ( i + j = FItemIndex )
    if AUnit.Selected and FFocused then
      AUnit.Focused = true
    else
      AUnit.Focused = false
    end if
    i = i + 1
  wend
end if
end function
published function OnClick(Sender)
'
end function
private function OnResize(Sender)
if Height <= 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 >= 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 > 0 then
  if p.y < Element3.Top + Element3.Height then
    stop = true
  end if
else
  if p.y > Element3.Top then
    stop = true
  end if
end if
if stop then
  SetTimer( 0 )
  Line2.Visible = false
else if FTimerInterval = 300 then
  FTimerInterval = 100
  SetTimer( FTimerInterval )
end if
end function
property Page read FPage write SetPage
property Pos read FPos write SetPos
private function SetEnable(AValue)
Element1.Enable = AValue
Element2.Enable = AValue
Enabled = AValue
end function
private function SetMax(AValue)
n = int( AValue )
if ( n < 0 ) then
  n = 0
end if
FMax = n
SetPage( FPage )
SetPos( FPos )
end function
private function SetPage(AValue)
FPage = int( AValue )
if( FPage > FMax )then
	FPage = FMax
end if
if FPage < 1 then
  FPage = 1
end if
end function
private function SetPos(AValue)
n=int( AValue )
if n < 0 then
	n = 0
end if
if n > FMax then
	n = FMax
end if
Element3.Visible = (Line1.Height > Element3.Height)
m = Element3.Top
if FMax <> 0 then
  Element3.Top = Line1.Top + ( Line1.Height - Element3.Height ) * n / FMax
else
  Element3.Top = Line1.Top
end if
if Line1.Tag > m then
  Line2.SetBounds( Line1.Left, Element3.Top + Element3.Height, Line1.Width, Element1.Top - Element3.Top - Element3.Height )
else
  Line2.SetBounds( Line1.Left, Line1.Top, Line1.Width, Element3.Top - Line1.Top )
end if
if FPos <> n then
	FPos = n
  OnChange( this )
end if
end function
-->
</programe>
</VScrollBar>
<Item name="Item1" origin="98,20" bounds="2,2,382,27" visible="false" Enable="true" Focused="false" Selected="false" Value="0">
<rect name="rect1" origin="76,13" bounds="2,2,382,27" linetype="0" linewidth="0" backcolor="$80000005" pattern="1"/>
<text name="text1" origin="12,14" bounds="24,4,357,24" linecolor="$80000005" backcolor="$80000005" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" readonly="false" textalign="4" borderinterval="0"/>
<borderI name="borderI3" origin="97,59" bounds="8,10,16,18" visible="false" hint="鎸囧畾涓哄綋鍓嶆椿鍔ㄥ浘灞