colormenu.tbl

来自「一个不错的做图软件」· TBL 代码 · 共 1,676 行 · 第 1/5 页

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" activesheetIndex="3" range="0,0,150,242" borderstyle="1" scrollbars="0" backcolor="$8000000F" paperbounds="0,0,793.700787,1122.141732" papervisible="false">
<sheet name="Panel">
<rect name="rect1" origin="63,86" bounds="0,0,149,241" linecolor="$8000000A" backcolor="$8000000F" pattern="1"/>
</sheet>
<sheet name="Custom">
<borderA name="borderA1" lib="border.tbl" origin="89,71" bounds="1,23,148,241"/>
<SpeedButton name="SpeedButton1" origin="20,226" bounds="10,216,84,236" Enable="true">
<Framea name="Framea1" origin="98,264" bounds="10,216,84,236" visible="false">
<line name="Line1" origin="98,264" linecolor="$80000014" points="10,236,6 10,216,2 84,216,2"/>
<line name="Line2" origin="98,264" linecolor="$80000010" points="10,236,6 84,236,2 84,216,2"/>
</Framea>
<Borderb name="BorderB1" origin="98,264" bounds="10,216,84,236" visible="false">
<line name="Line1" origin="98,264" linecolor="$80000010" points="10,236,6 10,216,2 84,216,2"/>
<line name="Line2" origin="98,264" linecolor="$80000014" points="10,236,6 84,236,2 84,216,2"/>
</Borderb>
<line name="Line1" origin="74,240" selectmode="0" linetype="0" backcolor="$C0C0C0" points="10,216,6 10,236,2 84,236,2 84,216,3"/>
<text name="text1" origin="14,226" bounds="19,216,75,236" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" borderinterval="4" text="鍏跺畠棰滆壊"/>
<programe>
<!--
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
Return Enabled
end function
private function Initialize(Sender)
end function
private function OnLButtonDown(Sender,X,Y)
BorderB1.Visible = true
Line1.MoveBy( 1, 1 )
Text1.MoveBy( 1, 1 )
end function
private function OnLButtonUp(Sender,X,Y)
BorderB1.Visible = false
Line1.MoveBy( -1, -1 )
Text1.MoveBy( -1, -1 )
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
BorderB1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left, Top, Width, Height )
Text1.SetBounds( Left, Top, Width, Height )
end function
property picture read getpicture write setpicture editor Picture
private function SetEnable(Avalue)
if Enabled <> AValue then
  Enabled=Avalue
  if Enabled then
    alpha=100
  else
    alpha=20
  end if
end if
end function
-->
</programe>
</SpeedButton>
<buttonX name="buttonX88" origin="131,203" bounds="120,192,140,212" Color="16777215">
<rect name="Rect1" origin="206,238" bounds="123,195,137,209" linecolor="$808080" pattern="1"/>
<Framea name="Framea1" origin="208,240" bounds="120,192,140,212" visible="false">
<line name="Line1" origin="208,240" linecolor="$80000014" points="120,212,6 120,192,2 140,192,2"/>
<line name="Line2" origin="208,240" linecolor="$80000010" points="120,212,6 140,212,2 140,192,2"/>
</Framea>
<Borderb name="BorderB1" origin="208,240" bounds="120,192,140,212" visible="false">
<line name="Line1" origin="208,240" linecolor="$80000010" points="120,212,6 120,192,2 140,192,2"/>
<line name="Line2" origin="208,240" linecolor="$80000014" points="120,212,6 140,212,2 140,192,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
end function
private function SetColor(AValue)
Rect1.BackColor = AValue
end function
-->
</programe>
</buttonX>
<buttonX name="buttonX87" origin="109,203" bounds="98,192,118,212" Color="14737632">
<rect name="Rect1" origin="184,238" bounds="101,195,115,209" linecolor="$808080" backcolor="$E0E0E0" pattern="1"/>
<Framea name="Framea1" origin="186,240" bounds="98,192,118,212" visible="false">
<line name="Line1" origin="186,240" linecolor="$80000014" points="98,212,6 98,192,2 118,192,2"/>
<line name="Line2" origin="186,240" linecolor="$80000010" points="98,212,6 118,212,2 118,192,2"/>
</Framea>
<Borderb name="BorderB1" origin="186,240" bounds="98,192,118,212" visible="false">
<line name="Line1" origin="186,240" linecolor="$80000010" points="98,212,6 98,192,2 118,192,2"/>
<line name="Line2" origin="186,240" linecolor="$80000014" points="98,212,6 118,212,2 118,192,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
end function
private function SetColor(AValue)
Rect1.BackColor = AValue
end function
-->
</programe>
</buttonX>
<buttonX name="buttonX86" origin="87,203" bounds="76,192,96,212" Color="12632256">
<rect name="Rect1" origin="162,238" bounds="79,195,93,209" linecolor="$808080" backcolor="$C0C0C0" pattern="1"/>
<Framea name="Framea1" origin="164,240" bounds="76,192,96,212" visible="false">
<line name="Line1" origin="164,240" linecolor="$80000014" points="76,212,6 76,192,2 96,192,2"/>
<line name="Line2" origin="164,240" linecolor="$80000010" points="76,212,6 96,212,2 96,192,2"/>
</Framea>
<Borderb name="BorderB1" origin="164,240" bounds="76,192,96,212" visible="false">
<line name="Line1" origin="164,240" linecolor="$80000010" points="76,212,6 76,192,2 96,192,2"/>
<line name="Line2" origin="164,240" linecolor="$80000014" points="76,212,6 96,212,2 96,192,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
end function
private function SetColor(AValue)
Rect1.BackColor = AValue
end function
-->
</programe>
</buttonX>
<buttonX name="buttonX85" origin="65,203" bounds="54,192,74,212" Color="10526880">
<rect name="Rect1" origin="140,238" bounds="57,195,71,209" linecolor="$808080" backcolor="$A0A0A0" pattern="1"/>
<Framea name="Framea1" origin="142,240" bounds="54,192,74,212" visible="false">
<line name="Line1" origin="142,240" linecolor="$80000014" points="54,212,6 54,192,2 74,192,2"/>
<line name="Line2" origin="142,240" linecolor="$80000010" points="54,212,6 74,212,2 74,192,2"/>
</Framea>
<Borderb name="BorderB1" origin="142,240" bounds="54,192,74,212" visible="false">
<line name="Line1" origin="142,240" linecolor="$80000010" points="54,212,6 54,192,2 74,192,2"/>
<line name="Line2" origin="142,240" linecolor="$80000014" points="54,212,6 74,212,2 74,192,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
end function
private function SetColor(AValue)
Rect1.BackColor = AValue
end function
-->
</programe>
</buttonX>
<buttonX name="buttonX84" origin="43,203" bounds="32,192,52,212" Color="8421504">
<rect name="Rect1" origin="118,238" bounds="35,195,49,209" linecolor="$808080" backcolor="$808080" pattern="1"/>
<Framea name="Framea1" origin="120,240" bounds="32,192,52,212" visible="false">
<line name="Line1" origin="120,240" linecolor="$80000014" points="32,212,6 32,192,2 52,192,2"/>
<line name="Line2" origin="120,240" linecolor="$80000010" points="32,212,6 52,212,2 52,192,2"/>
</Framea>
<Borderb name="BorderB1" origin="120,240" bounds="32,192,52,212" visible="false">
<line name="Line1" origin="120,240" linecolor="$80000010" points="32,212,6 32,192,2 52,192,2"/>
<line name="Line2" origin="120,240" linecolor="$80000014" points="32,212,6 52,212,2 52,192,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
end function
private function SetColor(AValue)
Rect1.BackColor = AValue
end function
-->
</programe>
</buttonX>
<buttonX name="buttonX83" origin="21,203" bounds="10,192,30,212" Color="0">
<rect name="Rect1" origin="96,238" bounds="13,195,27,209" linecolor="$808080" backcolor="$0" pattern="1"/>
<Framea name="Framea1" origin="98,240" bounds="10,192,30,212" visible="false">
<line name="Line1" origin="98,240" linecolor="$80000014" points="10,212,6 10,192,2 30,192,2"/>
<line name="Line2" origin="98,240" linecolor="$80000010" points="10,212,6 30,212,2 30,192,2"/>
</Framea>
<Borderb name="BorderB1" origin="98,240" bounds="10,192,30,212" visible="false">
<line name="Line1" origin="98,240" linecolor="$80000010" points="10,212,6 10,192,2 30,192,2"/>
<line name="Line2" origin="98,240" linecolor="$80000014" points="10,212,6 30,212,2 30,192,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true
end function
private function OnMouseExit(Sender)
Framea1.Visible = false
end function
private function OnResize(Sender)
Framea1.SetBounds( Left, Top, Width, Height )
BorderB1.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
end function
private function SetColor(AValue)
Rect1.BackColor = AValue
end function
-->
</programe>
</buttonX>
<buttonX name="buttonX82" origin="131,181" bounds="120,170,140,190" Color="16769279">
<rect name="Rect1" origin="206,216" bounds="123,173,137,187" linecolor="$808080" backcolor="$FFE0FF" pattern="1"/>
<Framea name="Framea1" origin="208,218" bounds="120,170,140,190" visible="false">
<line name="Line1" origin="208,218" linecolor="$80000014" points="120,190,6 120,170,2 140,170,2"/>
<line name="Line2" origin="208,218" linecolor="$80000010" points="120,190,6 140,190,2 140,170,2"/>
</Framea>
<Borderb name="BorderB1" origin="208,218" bounds="120,170,140,190" visible="false">
<line name="Line1" origin="208,218" linecolor="$80000010" points="120,190,6 120,170,2 140,170,2"/>
<line name="Line2" origin="208,218" linecolor="$80000014" points="120,190,6 140,190,2 140,170,2"/>
</Borderb>
<programe>
<!--
property Color read GetColor write SetColor editor Color
private function GetColor()
return Rect1.BackColor
end function
private function OnLButtonDown(Sender,X,Y)
Framea1.Visible = false
BorderB1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Framea1.Visible = true
BorderB1.Visible = false
end function
private function OnMouseEnter(Sender)
Framea1.Visible = true