Change "follow owner" toolbar property

[canderoc]

How to change the "follow owner" toolbar property without resetting the toolbar? I want to make a button that will detach the toolbar from the window.

[Gintaras]

Macro
Trigger F12     

Code:

Copy      Help

spe
int w1=win("TOOLBAR" "QM_toolbar") ;;change this

;need to show menu, or men would not work
POINT p; xm p
rig 4 4 w1; err ret
clo wait(10 WV win("" "#32768" "qm"))
mou p.x p.y

men 32831 w1 ;;Follow Owner

[Gintaras]

this version clicks only first time, to get popup menu handle
Macro
Trigger F12     

Code:

Copy      Help

spe
int w1=win("TOOLBAR" "QM_toolbar") ;;change this

int+ g_tb_follow_toggle; g_tb_follow_toggle^1 ;;just for example, to toggle between follow and not each time you run this macro

if(!CheckQmTbItem(w1 32831 g_tb_follow_toggle)) ret
men 32831 w1 ;;Follow Owner

Function CheckQmTbItem

Code:

Copy      Help

;/
function! hwndTb menuItemId check

int+ __tb_hmenu
if(!__tb_hmenu)
,POINT p; xm p
,rig 4 4 hwndTb
,int w2=wait(10 WV win("" "#32768" "qm"))
,__tb_hmenu=SendMessage(w2 MN_GETHMENU 0 0)
,clo w2
,mou p.x p.y
ret CheckMenuItem(__tb_hmenu menuItemId iif(check MF_CHECKED 0))>=0
err+