hmi.tbl

来自「一个不错的做图软件」· TBL 代码 · 共 48 行

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" papervisible="false">
<sheet name="sheet1" visible="false">
<鎻愮ず淇℃伅 name="鎻愮ず淇℃伅5" origin="151,79" bounds="48,48,335,110" Caption="popup menu and modal dialog">
<roundrect name="roundrect2" origin="156,84" bounds="56,56,335,110" alpha="80" Corner="10" xcorner="25" ycorner="25" linecolor="$80000015" backcolor="$808080" pattern="1"/>
<roundrect name="roundrect1" origin="148,76" bounds="48,48,327,102" Corner="10" xcorner="25" ycorner="25" frontcolor="$C0C0C0" pattern="245"/>
<text name="text1" origin="68,74" bounds="64,64,311,86" alpha="80" autosize="true" border="0" fontname="瀹嬩綋" fontsize="18" textalign="1" text="popup menu and modal dialog"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function SetCaption(AValue)
Text1.Text = AValue
Text1.MoveTo( left + 16, top + 16 )
roundrect1.SetBounds( left, top, Text1.Width + 32, Text1.Height + 32 )
roundrect2.SetBounds( left + 8, top + 8, roundrect1.Width, roundrect1.Height )
refresh()
end function
-->
</programe>
</鎻愮ず淇℃伅>
<button name="button1" origin="101,171" bounds="72,160,200,200" Caption="Popup Menu" Default="false" Enable="true" Focused="false">
<rect name="rect3" origin="101.5,169.5" bounds="73,161,200,200" visible="false" linetype="0" linewidth="0" backcolor="$97E5" frontcolor="$CFF0FF" pattern="244"/>
<text name="text1" origin="78.7,172.3" bounds="73,161,200,200" backcolor="$E7D7D6" frontcolor="$FDFDFD" pattern="244" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000012" borderinterval="0" text="Popup Menu"/>
<rect name="Rect2" origin="103,172" bounds="74,162,198,198" linetype="0" linewidth="0"/>
<line name="line1" origin="72,160" linecolor="$743C00" endcap="1" points="74,160,6 198,160,2 200,162,2 200,198,2 198,200,2 74,200,2 72,198,2 72,162,2 74,160,3"/>
<programe>
<!--
property Caption read FCaption write SetCaption
property Default read FDefault write FDefault editor Bool
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 Initialize(Sender)
FFocused=false
FCaption='Button'
FDefault = false
end function
published function OnClick(Sender)
doc = Create( Handle, "popupmenu1.tbl", true, false )
p = Point( 0, 0 )
GetCursorPos( p )
n = doc.Popup( p.x, p.y )
'鑿滃崟杩斿洖鍊