Change "follow owner" toolbar property

[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+