Toolbar User Options

[Gintaras]

Difficult to add a checkbox directly on a toolbar. This example instead uses another button to show two options as a popup menu.

Toolbar Toolbar79

Code:

Copy      Help

;/siz0 28 49 /ssiz0 28 28 /set0 0x40D 0xFCFF
Macro :mac "Macro54926478"
Options :sub.Options * $qm$\controls.ico


#sub Options m
MenuPopup m
m.AddItems("1 Option x[]2 Option y")

int x y
rget x "x" "\Macro54926478"
if(x) m.CheckItems("1")
rget y "y" "\Macro54926478"
if(y) m.CheckItems("2")

sel m.Show
,case 1 rset !x "x" "\Macro54926478"
,case 2 rset !y "y" "\Macro54926478"

Macro Macro54926478

Code:

Copy      Help

int x y
rget x "x" "\Macro54926478"
rget y "y" "\Macro54926478"
out F"x={x} y={y}"