16 lines
638 B
Plaintext
16 lines
638 B
Plaintext
mx = xtra("Msg").new()
|
|
|
|
-- send message WM_LBUTTONDOWN to a specific window identified by HWND hwnd
|
|
WM_LBUTTONDOWN = 513
|
|
MK_LBUTTON = 1
|
|
lParam = 65536*y + x
|
|
mx.send_msg (hwnd, WM_LBUTTONDOWN, MK_LBUTTON, lParam)
|
|
|
|
-- listen for WM_COPYDATA and WM_MOUSEWHEEL messages sent to current application
|
|
-- window, notify Lingo callback function 'msgReceived' when such messages occur.
|
|
-- This callback function will receive hwnd, message, wParam and lParam as arguments
|
|
-- (and for WM_COPYDATA messages also the data that was sent as ByteArray).
|
|
WM_COPYDATA = 74
|
|
WM_MOUSEWHEEL = 522
|
|
mx.msg_listen([WM_COPYDATA, WM_MOUSEWHEEL], VOID, #msgReceived)
|