小工具整理
This commit is contained in:
@@ -0,0 +1,42 @@
|
||||
if testtest != undefined do (try(destroydialog testtest)catch())
|
||||
|
||||
|
||||
rcMenu myrcMenu
|
||||
(
|
||||
|
||||
menuItem item1 "item1"
|
||||
menuItem item2 "item2" checked:true
|
||||
|
||||
separator line1
|
||||
|
||||
submenu "submenu"
|
||||
(
|
||||
menuItem subitem1 "subitem1"
|
||||
menuItem subitem2 "subitem2"
|
||||
menuItem subitem3 "subitem3"
|
||||
)
|
||||
|
||||
menuItem item3 "item3"
|
||||
menuItem item4 "item4"
|
||||
|
||||
menuItem item5 "item5"
|
||||
|
||||
on item1 picked do item1.checked=true
|
||||
on item2 picked do item2.checked=true
|
||||
on item3 picked do item3.checked=true
|
||||
|
||||
|
||||
on subitem1 picked do subitem1.checked=true
|
||||
|
||||
on myrcMenu open do print "open myremenu"
|
||||
)
|
||||
|
||||
|
||||
rollout testtest "test" width:400 height:300
|
||||
(
|
||||
button btn1 "rcmenu" width:80 height:80
|
||||
|
||||
on btn1 rightclick do popUpMenu myrcMenu align:#align_topleft
|
||||
|
||||
)
|
||||
CreateDialog testtest
|
||||
Reference in New Issue
Block a user