TRACKMOUSEVENT uses <struct> now
parent
7e6f6e6a44
commit
065db08680
|
@ -503,14 +503,15 @@ SYMBOL: nc-buttons
|
|||
] if ;
|
||||
|
||||
: make-TRACKMOUSEEVENT ( hWnd -- alien )
|
||||
"TRACKMOUSEEVENT" <c-object> [ set-TRACKMOUSEEVENT-hwndTrack ] keep
|
||||
"TRACKMOUSEEVENT" heap-size over set-TRACKMOUSEEVENT-cbSize ;
|
||||
TRACKMOUSEEVENT <struct>
|
||||
swap >>hwndTrack
|
||||
TRACKMOUSEEVENT heap-size >>cbSize ;
|
||||
|
||||
: handle-wm-mousemove ( hWnd uMsg wParam lParam -- )
|
||||
2nip
|
||||
over make-TRACKMOUSEEVENT
|
||||
TME_LEAVE over set-TRACKMOUSEEVENT-dwFlags
|
||||
0 over set-TRACKMOUSEEVENT-dwHoverTime
|
||||
TME_LEAVE >>dwFlags
|
||||
0 >>dwHoverTime
|
||||
TrackMouseEvent drop
|
||||
>lo-hi swap window move-hand fire-motion ;
|
||||
|
||||
|
|
|
@ -521,11 +521,11 @@ CONSTANT: TME_NONCLIENT 16
|
|||
CONSTANT: TME_QUERY HEX: 40000000
|
||||
CONSTANT: TME_CANCEL HEX: 80000000
|
||||
CONSTANT: HOVER_DEFAULT HEX: ffffffff
|
||||
C-STRUCT: TRACKMOUSEEVENT
|
||||
{ "DWORD" "cbSize" }
|
||||
{ "DWORD" "dwFlags" }
|
||||
{ "HWND" "hwndTrack" }
|
||||
{ "DWORD" "dwHoverTime" } ;
|
||||
STRUCT: TRACKMOUSEEVENT
|
||||
{ cbSize DWORD }
|
||||
{ dwFlags DWORD }
|
||||
{ hwndTrack HWND }
|
||||
{ dwHoverTime DWORD } ;
|
||||
TYPEDEF: TRACKMOUSEEVENT* LPTRACKMOUSEEVENT
|
||||
|
||||
CONSTANT: DBT_DEVICEARRIVAL HEX: 8000
|
||||
|
|
Loading…
Reference in New Issue