[ Skill ] 键位不够用之 Toolbar

https://www.cnblogs.com/yeungchie/

• code

act1 = hiCreateAction(
	?name		'act1
	?iconText	"Act1"
	?callback	"println("Act 1")"
)

cob1 = hiCreateToolbarComboBox(
	?name		'cob1
	?items		list("T1" "T2" "T3")
	?value		"T1"
)

tpin1 = hiCreateToolbarTypein(
	?name		'tpin1
	?value		"MET1"
	?width		
)

tbar = hiCreateToolbar(
	?name	'tbar
	?title	"Test bar"
	?items	list(act1 cob1 tpin1)
)

hiPlaceToolbar(win() tbar 'top)

• show
  

• more

deManageToolbar(d_win d_toolbar [hiGetAppType(d_win)])     ; 添加到 UpdateWindowMenu 中
deUnmanageToolbar(d_win s_toolbar  [hiGetAppType(d_win)])  ; 取消添加到 UpdateWindowMenu 中
hiShowToolbar(d_toolbar)                                   ; 显示 toolbar , 效果为在 UpdateWindowMenu 点击开启这个 toolbar
hiHideToolbar(d_toolbar [g_detach])                        ; 隐藏 toolbar , g_detach 可选 (默认或 nil 时隐藏 , t 时删除)
hiAddToolbarItem
hiAddToolbarItems
hiInsertToolbarItem
hiInsertToolbarItems
hiDeleteToolbarItem
hiDeleteToolbarItems