Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
are doing same in Firefox / EDGEALT + Cursor left
ALT + Cursor right
Maybe something like this (I haven't tested):
Code: Select all
EventProcessAllHookMessage( EventCreate( EventHandler() ), .T.)
#define XBUTTON1 0x0001
#define XBUTTON2 0x0002
FUNCTION EventHandler()
LOCAL nHWnd := EventHWND()
LOCAL nMsg := EventMSG()
LOCAL nWParam := EventWPARAM()
LOCAL nLParam := EventLPARAM()
SWITCH nMsg
CASE WM_XBUTTONDOWN // https://learn.microsoft.com/en-us/windows/win32/inputdev/wm-xbuttondown
cMessage := ''
IF HIWORD( nWParam ) = XBUTTON1
cMessage += "The first X button was clicked" + CRLF
ENDIF
IF HIWORD( nWParam ) = XBUTTON2
cMessage += "The second X button was clicked" + CRLF
ENDIF
IF LOWORD( nWParam ) = MK_XBUTTON1
cMessage += "The first X button is down" + CRLF
ENDIF
IF LOWORD( nWParam ) = MK_XBUTTON2
cMessage += "The second X button is down" + CRLF
ENDIF
MsgInfo ( cMessage )
EXIT
CASE WM_XBUTTONUP // https://learn.microsoft.com/en-us/windows/win32/inputdev/wm-xbuttonup
cMessage := ''
IF HIWORD( nWParam ) = XBUTTON1
cMessage += "The first X button was clicked" + CRLF
ENDIF
IF HIWORD( nWParam ) = XBUTTON2
cMessage += "The second X button was clicked" + CRLF
ENDIF
IF LOWORD( nWParam ) = MK_XBUTTON1
cMessage += "The first X button is released" + CRLF
ENDIF
IF LOWORD( nWParam ) = MK_XBUTTON2
cMessage += "The second X button is released" + CRLF
ENDIF
MsgInfo ( cMessage )
EXIT
CASE WM_XBUTTONDBLCLK // https://learn.microsoft.com/en-us/windows/win32/inputdev/wm-xbuttondblclk
cMessage := ''
IF HIWORD( nWParam ) = XBUTTON1
cMessage += "The first X button was clicked" + CRLF
ENDIF
IF HIWORD( nWParam ) = XBUTTON2
cMessage += "The second X button was clicked" + CRLF
ENDIF
IF LOWORD( nWParam ) = MK_XBUTTON1
cMessage += "The first X button was double-clicked" + CRLF
ENDIF
IF LOWORD( nWParam ) = MK_XBUTTON2
cMessage += "The second X button was double-clicked" + CRLF
ENDIF
MsgInfo ( cMessage )
EXIT
ENDSWITCH
RETURN NIL