buttons.tbl

一个不错的做图软件

private function GetChecked()
return Line3.Visible
end function
private function OnLButtonDown(Sender,X,Y)
Line3.Visible = not Line3.Visible
end function
private function SetChecked(AValue)
Line3.Visible = AValue
end function
-->
</programe>
</buttons>
<buttonf name="buttonF2" origin="300,181" bounds="240,156,360,206" Caption="ok">
<circle name="Circle1" origin="240,156" bounds="250,166,360,206" linetype="0" backcolor="$808080" pattern="8"/>
<circle name="Circle2" origin="240,156" bounds="240,156,350,196" pattern="1"/>
<text name="text1" origin="295.5,176.5" bounds="261,161,330,189" pattern="1" border="0" fontname="瀹嬩綋" fontsize="12" text="ok"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function OnLButtonDown(Sender,x,y)
Circle2.MoveBy( 10, 10 )
Text1.MoveBy( 10, 10 )
end function
private function OnLButtonUp(Sender,x,y)
Circle2.MoveBy( -10, -10 )
Text1.MoveBy( -10, -10 )
end function
private function OnResize(Sender)
end function
private function SetCaption(ACaption)
Text1.Text = ACaption
end function
-->
</programe>
</buttonf>
<buttona name="buttonA1" origin="51,87" bounds="20,61,82,113">
<rect name="Rect2" origin="50,86" bounds="20,61,82,113" backcolor="$0" pattern="1"/>
<line name="Line2" origin="21.71428,62.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1" points="81,62,6 76,67,2 26,107,2 21,112,2 81,112,2"/>
<line name="Line1" origin="21,52" linetype="0" backcolor="$80000014" pattern="1" linkmode="1" points="21,112,6 26,107,2 76,67,2 81,62,2 21,62,2"/>
<line name="Line4" origin="91,87" linetype="0" backcolor="$8000000F" pattern="1" points="22,111,6 80,111,2 80,63,2 22,63,3"/>
<rect name="Rect1" origin="36,71" bounds="21,62,81,112" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="41,105" backcolor="$0" pattern="1" points="51,77,6 61,87,2 56,87,2 56,97,2 46,97,2 46,87,2 41,87,3"/>
<programe>
<!--
private function Initialize(Sender)
end function
private function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
Line3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
end function
private function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
Line3.MoveTo( Line3.Left - 2, Line3.Top - 2 )
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line4.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4)
Rect1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line3.SetBounds( Left + ( Width - Line3.Width ) / 2, Top + ( Height - Line3.Height ) / 2, Line3.Width, Line3.Height)
end function
-->
</programe>
</buttona>
<buttonb name="buttonB1" origin="51,151" bounds="20,125,82,177">
<rect name="Rect2" origin="50,150" bounds="20,125,82,177" backcolor="$0" pattern="1"/>
<line name="Line2" origin="21.71428,126.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1" points="81,126,6 76,131,2 26,171,2 21,176,2 81,176,2"/>
<line name="Line1" origin="20.7,116" linetype="0" backcolor="$80000014" pattern="1" linkmode="1" points="21,176,6 26,171,2 76,131,2 81,126,2 21,126,2"/>