📄 按钮库.tbl

📁 电气控制仿真软件
💻 TBL
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
8,72,2
</points>
</line>
<line name="Line3" origin="36,44" linecolor="$80000010">
<points>
56,24,6
16,24,2
16,64,2
</points>
<programe>
Published Function OnNodeChange(Sender)
Sender.Points[0].x = 2 * Left + Width - Sender.Points[2].xSender.Points[0].y = 2 * Top + Height - Sender.Points[2].ySender.Points[1].x = Sender.Points[2].xSender.Points[1].y = Sender.Points[0].yLine4.Points[0].x = Sender.Points[2].xLine4.Points[0].y = Sender.Points[2].yLine4.Points[1].x = Sender.Points[0].xLine4.Points[1].y = Sender.Points[2].yLine4.Points[2].x = Sender.Points[0].xLine4.Points[2].y = Sender.Points[0].yLine4.Refresh()
End Function
</programe>
</line>
<line name="Line4" origin="36,44" linecolor="$80000014">
<points>
16,64,6
56,64,2
56,24,2
</points>
</line>
</sheet>
<sheet name="按钮Q" bounds="14,10,34,20">
<line name="Line1" origin="30,18" backcolor="$8000000F" pattern="1">
<points>
24,10,6
14,20,2
34,20,3
</points>
</line>
<line name="Line2" origin="22,18" linecolor="$80000014">
<points>
24,10,6
14,20,2
</points>
</line>
<line name="Line3" origin="30,18" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1">
<points>
24,10,6
14,20,2
34,20,3
</points>
</line>
<programe>
Private Function OnLButtonDown(Sender,X,Y)
Line3.Visible = true
End Function
Private Function OnLButtonUp(Sender,X,Y)
Line3.Visible = false
End Function
</programe>
</sheet>
<sheet name="按钮R" bounds="14,10,34,20">
<line name="Line1" origin="30,12" linecolor="$80000014" backcolor="$8000000F" pattern="1">
<points>
24,20,6
14,10,2
34,10,3
</points>
</line>
<line name="Line2" origin="22,12">
<points>
24,20,6
34,10,2
</points>
</line>
<line name="Line3" origin="30,12" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1">
<points>
24,20,6
14,10,2
34,10,3
</points>
</line>
<programe>
Private Function OnLButtonDown(Sender,X,Y)
Line3.Visible = true
End Function
Private Function OnLButtonUp(Sender,X,Y)
Line3.Visible = false
End Function
</programe>
</sheet>
<sheet name="按钮S" bounds="3,7,68,31" label="Text1">
<shape name="Rect1" bounds="3,7,27,31" origin="15,18" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="-16,-24" linetype="0" backcolor="$0" pattern="1">
<points>
6.9,16.8,6
13,23,2
23,13,2
23,17,2
13,27,2
7,21,2
</points>
</line>
<line name="Line1" origin="16,19" linecolor="$80000010">
<points>
26,8,6
4,8,2
4,30,2
</points>
</line>
<line name="Line2" origin="16,19" linecolor="$80000014">
<points>
4,30,6
26,30,2
26,8,2
</points>
</line>
<text name="Text1" bounds="32,8,68,30" origin="32,8" autosize="true" border="$0" fontname="宋体" fontsize="16" textalign="0" text="选择"/>
<programe>
Property Checked read GetChecked write SetChecked editor Bool
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>
</sheet>
<sheet name="按钮T" bounds="3,7,68,31" label="Text1">
<shape name="Rect1" bounds="3,7,27,31" origin="15,18" backcolor="$8000000F" pattern="1"/>
<line name="Line1" origin="16,19" linecolor="$80000010">
<points>
26,8,6
4,8,2
4,30,2
</points>
</line>
<line name="Line2" origin="16,19" linecolor="$80000014">
<points>
4,30,6
26,30,2
26,8,2
</points>
</line>
<text name="Text1" bounds="32,8,68,30" origin="32,8" autosize="true" border="$0" fontname="宋体" fontsize="16" textalign="0" text="选择"/>
<shape name="Circle1" type="Circle" bounds="8,12,22,26" origin="15,19" pattern="241"/>
<programe>
Property Checked read GetChecked write SetChecked editor Bool
Private Function GetChecked()
return Circle1.Visible
End Function
Private Function OnLButtonDown(Sender,X,Y)
Circle1.Visible = not Circle1.Visible
End Function
Private Function SetChecked(AValue)
Circle1.Visible = AValue
End Function
</programe>
</sheet>
<sheet name="按钮U" bounds="6,6,32,32">
<shape name="Rect1" bounds="6,6,32,32" origin="18,17" backcolor="$8000000F" pattern="1"/>
<line name="Line2" origin="20,19.1" linecolor="$80000014" backcolor="$80000005" pattern="1">
<points>
8,30.1,6
30,30.1,2
30,8,2
8,8,3
</points>
</line>
<line name="Line1" origin="20,19" linecolor="$80000010">
<points>
30,8,6
8,8,2
8,30,2
</points>
</line>
<programe>
Private Function OnLButtonDown(Sender,X,Y)
if Line2.BackColor = $8000000D then	Line2.BackColor = $80000005else	Line2.BackColor = $8000000Dend if
End Function
</programe>
</sheet>
<sheet name="按钮V" bounds="24,30,203,128">
<shape name="Rect1" bounds="25,30,203,128" origin="114,79" backcolor="$8000000F" pattern="1"/>
<elliment name="边框A1" type="边框A" bounds="25,30,203,128" origin="113,78">
<line name="Line1" origin="113,78" linecolor="$80000014">
<points>
25,128,6
25,30,2
203,30,2
</points>
</line>
<line name="Line2" origin="113,78" linecolor="$80000010">
<points>
25,128,6
203,128,2
203,30,2
</points>
</line>
</elliment>
<elliment name="边框B1" type="边框B" bounds="24,31,200,127" origin="112,79" visible="false">
<line name="Line1" origin="112,79" linecolor="$80000010">
<points>
24,127,6
24,31,2
200,31,2
</points>
</line>
<line name="Line2" origin="112,79" linecolor="$80000014">
<points>
24,127,6
200,127,2
200,31,2
</points>
</line>
</elliment>
<programe>
Private Function OnLButtonDown(Sender,X,Y)
边框B1.Visible = true
End Function
Private Function OnLButtonUp(Sender,X,Y)
边框B1.Visible = false
End Function
Private Function OnResize(Sender)
边框A1.SetBounds( Left, Top, Width, Height )边框B1.SetBounds( Left, Top, Width, Height )Rect1.SetBounds( Left, Top, Width, Height )
End Function
</programe>
</sheet>
<sheet name="按钮W" bounds="0,0,178,98" label="Text1">
<elliment name="边框A1" type="边框A" bounds="0,0,178,98" origin="88,48" visible="false">
<line name="Line1" origin="88,48" linecolor="$80000014">
<points>
0,98,6
0,0,2
178,0,2
</points>
</line>
<line name="Line2" origin="88,48" linecolor="$80000010">
<points>
0,98,6
178,98,2
178,0,2
</points>
</line>
</elliment>
<text name="Text1" bounds="11,12,163,85" origin="87,48.5" linecolor="$80000010" fontname="宋体" fontsize="12" text="无填充色"/>
<elliment name="边框B1" type="边框B" bounds="0,0,176,96" origin="88,48" visible="false">
<line name="Line1" origin="88,48" linecolor="$80000010">
<points>
0,96,6
0,0,2
176,0,2
</points>
</line>
<line name="Line2" origin="88,48" linecolor="$80000014">
<points>
0,96,6
176,96,2
176,0,2
</points>
</line>
</elliment>
<programe>
Private Function OnLButtonDown(Sender,X,Y)
边框A1.Visible = false边框B1.Visible = true
End Function
Private Function OnLButtonUp(Sender,X,Y)
边框A1.Visible = true边框B1.Visible = false
End Function
Private Function OnMouseEnter(Sender)
边框A1.Visible = true
End Function
Private Function OnMouseExit(Sender)
边框A1.Visible = false
End Function
Private Function OnResize(Sender)
边框A1.SetBounds( Left, Top, Width, Height )边框B1.SetBounds( Left, Top, Width, Height )Text1.SetBounds( Left + 4, Top + 4, Width - 8, Height - 8 )
End Function
</programe>
</sheet>
<sheet name="按钮X" bounds="0,0,18,18" label="Rect1">
<shape name="Rect1" bounds="0,0,18,18" origin="88,48" linetype="0" backcolor="$FF00" pattern="1"/>
<elliment name="边框A1" type="边框A" bounds="0,0,18,18" origin="88,48" visible="false">
<line name="Line1" origin="88,48" linecolor="$80000014">
<points>
0,18,6
0,0,2
18,0,2
</points>
</line>
<line name="Line2" origin="88,48" linecolor="$80000010">
<points>
0,18,6
18,18,2
18,0,2
</points>
</line>
</elliment>
<elliment name="边框B1" type="边框B" bounds="0,0,18,18" origin="88,48" visible="false">
<line name="Line1" origin="88,48" linecolor="$80000010">
<points>
0,18,6
0,0,2
18,0,2
</points>
</line>
<line name="Line2" origin="88,48" linecolor="$80000014">
<points>
0,18,6
18,18,2
18,0,2
</points>
</line>
</elliment>
<programe>
Private Function OnLButtonDown(Sender,X,Y)
边框A1.Visible = false边框B1.Visible = true
End Function
Private Function OnLButtonUp(Sender,X,Y)
边框A1.Visible = true边框B1.Visible = false
End Function
Private Function OnMouseEnter(Sender)
边框A1.Visible = true
End Function
Private Function OnMouseExit(Sender)
边框A1.Visible = false
End Function
Private Function OnResize(Sender)
边框A1.SetBounds( Left, Top, Width, Height )边框B1.SetBounds( Left, Top, Width, Height )Rect1.SetBounds( Left + 3, Top + 3, Width - 6, Height - 6 )
End Function
</programe>
</sheet>
<sheet name="按钮Y" bounds="0,0,16,18">
<line name="Line7" origin="9,9" linecolor="$80000014">
<points>
1,17,6
1,1,2
15,1,2
</points>
</line>
<line name="Line8" origin="9,9" linecolor="$80000010">
<points>
1,17,6
15,17,2
15,1,2
</points>
</line>
<shape name="Rect2" bounds="2,2,14,16" origin="8,9" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line5" origin="8,8" linecolor="$80000016">
<points>
0,18,6
0,0,2
16,0,2
</points>
</line>
<line name="Line6" origin="8,8" linecolor="$80000015">
<points>
0,18,6
16,18,2
16,0,2
</points>
</line>
<shape name="Rect1" bounds="0,0,16,18" origin="4,8" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="8,11" backcolor="$0" pattern="1">
<points>
8,11,6
11,8,2
5,8,3
</points>
</line>
<programe>
Published Function OnClick(Sender)
&apos;元件右下角p=Point(Left+Width,Top+Height)&apos;视图坐标变换ViewToClient( p )&apos;窗口坐标变换到屏幕坐标ClientToScreen( p )&apos;下面弹出一个窗口。&apos;doc=Create( Handle, &quot;文件名.tbl&quot;, false, false )&apos;ret = doc.Popup( p.x, p.y )&apos;if ret = 1 then&apos;  当执行了Close( 1 )返回的时候&apos;end if&apos;doc.Free()
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
End Function
</programe>
</sheet>
</vg>
上一页 1 23
💿 文件大小 6325 K
👤 上传用户 zhouliang15
📂 所属分类实用工具
🏷️ 相关标签

#电气控制 #仿真软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -