2jballi
OK, I changed the code in what seems to work and looks much less complex.
Try it, see if it works for you. I tested on above sample and it behaves normally.
Code:
Toolbar_onNotify(Wparam,Lparam,Msg,Hwnd) {
static MODULEID = 80609, oldNotify="*"
static NM_CLICK=-2, NM_RCLICK=-5, NM_LDOWN=-20, TBN_DROPDOWN=-710, TBN_HOTITEMCHANGE=-713, TBN_ENDDRAG=-702, TBN_BEGINADJUST=-703, TBN_GETBUTTONINFOA=-700, TBN_QUERYINSERT=-706, TBN_QUERYDELETE=-707, TBN_BEGINADJUST=-703, TBN_ENDADJUST=-704, TBN_RESET=-705, TBN_TOOLBARCHANGE=-708, TB_COMMANDTOINDEX=0x419
static cnt, cnta, cBTN, inDialog, LDOWN
; If s_LDOWNPos=0, the left mouse button has not been clicked. If s_LDOWNPos<>0, --jballi
; the left mouse button has been clicked and the variable contains the button position.
if ((NumGet(Lparam+4)) != MODULEID){
ifEqual, oldNotify, *, SetEnv, oldNotify, % Toolbar("OldNotify")
ifNotEqual, oldNotify,,return DllCall(oldNotify, "uint", Wparam, "uint", Lparam, "uint", Msg, "uint", Hwnd)
return
}
hw := NumGet(Lparam+0), code := NumGet(Lparam+8, 0, "Int"), handler := Toolbar(hw "Handler")
ifEqual, handler,, return
iItem := (code != TBN_HOTITEMCHANGE) ? NumGet(lparam+12) : NumGet(lparam+16)
SendMessage, TB_COMMANDTOINDEX,iItem,,,ahk_id %hw%
pos:=ErrorLevel+1
txt := Toolbar_GetButton( hw, pos, "c")
if (code=NM_LDOWN)
return LDOWN := Pos
if (code = NM_CLICK) {
IfEqual, pos, 4294967296, return
if (LDOWN) and !InStr(Toolbar_GetButton(hw,pos,"s"),"disabled")
LDOWN := 0, %handler%(hw, "click", txt, pos, iItem)
}
if (code=NM_RCLICK) {
ifEqual, pos, 4294967296, return 0
else return %handler%(hw,"rclick", txt, pos, iItem)
}
if (code = TBN_DROPDOWN)
return %handler%(hw, "menu", txt, pos, iItem)
if (code = TBN_HOTITEMCHANGE) {
IfEqual, pos, 4294967296, return
%handler%(hw, "hot", txt, pos, iItem)
return 0
}
;=================== CUSTOMIZATION NOTIFICATIONS ===========================
if (code = TBN_BEGINADJUST) {
cnta := NumGet( Toolbar(hw "aBTN") ) , cnt := Toolbar_getButtonArray(hw, cBTN), inDialog := true
if (cnt=0) && (cnta=0)
Msgbox Nothing to customize
return
}
if (code = TBN_GETBUTTONINFOA) {
if (iItem = cnt + cnta) ;iItem is position, not identifier. Win keeps sending incresing numbers until we say "no more" (return 0)
return 0
TBB := lparam + 16 ;The OS buffer where to put button structure
o := (iItem < cnt) ? cBTN + 20*iItem : Toolbar( hw "aBTN") + 20*(iItem-cnt) + 4
Toolbar_memcpy( TBB, o, 20) ;copy the compiled item into notification struct
return 1
}
;Return at least one TRUE in QueryInsert to show the dialog, if the dialog is openinig. When the dialog is open, QueryInsert affects btn addition. QueryDelete affects deletion.
if (code = TBN_QUERYINSERT) or (code = TBN_QUERYDELETE) {
if (cnta="" or cnta=0) AND (cnt=0)
return FALSE
return TRUE
}
if (code=TBN_ENDADJUST) {
Toolbar_onEndAdjust(hw, cBTN, cnt), inDialog := false
return %handler%(hw, "adjust", "", "", "")
}
;This will fire when user is dragging buttons around with adjustable style
if (code = TBN_TOOLBARCHANGE) and !inDialog
return %handler%(hw, "change", "", "", "")
}
I simply monitored only LDOWN i LUP, if they are unmatched, no click event is fired.
Login
Register
FAQ
Search
