10-19-2006, 07:52 AM
Currently macros cannot be added to the File menu. Maybe in the future. What about using an alternative menu, triggered eg using mouse middle button?
Menu QM menu File2
Trigger: #Mh1 /QM /FF_QM_menu_File2
Filter function FF_QM_menu_File2
Menu QM menu File2
Trigger: #Mh1 /QM /FF_QM_menu_File2
out item :str s; out "id=%i" g_qm_menu_iid; if(g_qm_menu_iid) s.getmacro(g_qm_menu_iid 1); out sFilter function FF_QM_menu_File2
;/
function# iid FILTER&f
def TVM_HITTEST (TV_FIRST + 17)
type TVHITTESTINFO POINT'pt flags hItem
type TVITEM mask hItem state stateMask $pszText cchTextMax iImage iSelectedImage cChildren lParam
if(GetWinId(f.hwnd2)!=2202) ret
int+ g_qm_menu_iid
TVHITTESTINFO ht
GetCursorPos &ht.pt; ScreenToClient f.hwnd2 &ht.pt
SendMessage f.hwnd2 TVM_HITTEST 0 &ht
if(ht.hItem)
,TVITEM ti.hItem=ht.hItem
,SendMessage f.hwnd2 TVM_GETITEM 0 &ti
,g_qm_menu_iid=ti.lParam
else g_qm_menu_iid=0
;out g_qm_menu_iid
ret iid