codeview.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" bordericons="0" borderstyle="1" scrollbars="0" paperbounds="0,0,793.700787,1122.141732" papervisible="false">
<sheet name="sheet1" bounds="0,0,273,200">
<ListBox name="ListBox1" origin="128,88" bounds="1,1,273,21" Enable="true" Focused="false" ItemIndex="-1">
<rect name="rect1" origin="92,10" bounds="1,1,272,19" linecolor="$8000000A" pattern="1"/>
<VScrollBar name="VScrollBar1" origin="264.5,73" bounds="256,1,273,19" visible="false" Enable="true" Max="0" Page="1" Pos="0">
<rect name="Line1" origin="304,29" bounds="256,1,273,10.5" 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="304,35" bounds="256,1,273,1" 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="264,28" bounds="256,1,272,17" visible="false" protect="32">
<line name="Line5" origin="264,9" linecolor="$80000016" points="256,17,6 256,1,2 272,1,2"/>
<line name="Line6" origin="264,9" linecolor="$80000015" points="256,17,6 272,17,2 272,1,2"/>
<line name="Line7" origin="265,10" linecolor="$80000014" points="257,16.111111,6 257,1.888889,2 271,1.888889,2"/>
<line name="Line8" origin="265,10" linecolor="$80000010" points="257,16.111111,6 271,16.111111,2 271,1.888889,2"/>
<rect name="Rect2" origin="264,10" bounds="258,2.777778,270,15.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="264,132" bounds="256,10.5,272,19" protect="32" Enable="true">
<line name="Line5" origin="264,19" linecolor="$80000016" points="256,19,6 256,10.5,2 272,10.5,2"/>
<line name="Line6" origin="264,19" linecolor="$80000015" points="256,19,6 272,19,2 272,10.5,2"/>
<line name="Line7" origin="265,20" linecolor="$80000014" points="257,18.527778,6 257,10.972222,2 271,10.972222,2"/>
<line name="Line8" origin="265,20" linecolor="$80000010" points="257,18.527778,6 271,18.527778,2 271,10.972222,2"/>
<rect name="Rect2" origin="264,20" bounds="258,11.444444,270,18.055556" 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"/>
<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="264,18" bounds="256,1,272,9.5" protect="32" Enable="true">
<line name="Line5" origin="264,9.5" linecolor="$80000016" points="256,9.5,6 256,1,2 272,1,2"/>
<line name="Line6" origin="264,9.5" linecolor="$80000015" points="256,9.5,6 272,9.5,2 272,1,2"/>
<line name="Line7" origin="265,10.5" linecolor="$80000014" points="257,9.027778,6 257,1.472222,2 271,1.472222,2"/>
<line name="Line8" origin="265,10.5" linecolor="$80000010" points="257,9.027778,6 271,9.027778,2 271,1.472222,2"/>
<rect name="Rect2" origin="264,10.5" bounds="258,1.944444,270,8.555556" 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"/>
<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
      OnDrawItem( 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
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="148.5,94.75" bounds="1,1,256,21" visible="false" Enable="true" Focused="false" Selected="false" Value="">
<rect name="Rect2" origin="85.5,-34.5" bounds="1,1,256,21" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" origin="9,9" bounds="5,3,21,19" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="rect3" origin="89,25" bounds="25,1,256,19" linetype="0" linewidth="0" backcolor="$80000005" pattern="1">
<text name="text1" origin="140.5,10" bounds="25,1,256,19" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" textalign="4"/>
</rect>
<programe>
<!--
property Enable read GetEnable write SetEnable editor Bool
property Focused read FFocused write SetFocused editor bool
private function GetEnable()
return Enabled
end function
private function GetValue()
return Rect3.Text1.Text
end function
private function Initialize(Sender)
FSelected = false
FFocused = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+2,16,16 )
if Right-Rect1.Right-4 >= 0 then
  Rect3.SetBounds( Rect1.Right+4,Top,Right-Rect1.Right-4,Rect3.Height)
  Rect3.Visible = true
else
  Rect3.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetEnable(AValue)
Enabled = AValue
if Enabled then
  Rect3.Text1.FontColor = $80000008
else
  Rect3.Text1.FontColor = $80000011
end if
end function
private function SetFocused(AValue)
FFocused = AValue
if FFocused then
  Rect3.LineType = 15
else
  Rect3.LineType = 0
end if
end function
private function SetSelected(AValue)
FSelected = AValue
if FSelected then
  Rect3.BackColor = $8000000D
  Rect3.Text1.FontColor = $8000000E