wined3d: Get rid of the swapchain destroy callback.
[wine] / dlls / user32 / input.c
1 /*
2  * USER Input processing
3  *
4  * Copyright 1993 Bob Amstadt
5  * Copyright 1996 Albrecht Kleine
6  * Copyright 1997 David Faure
7  * Copyright 1998 Morten Welinder
8  * Copyright 1998 Ulrich Weigand
9  *
10  * This library is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU Lesser General Public
12  * License as published by the Free Software Foundation; either
13  * version 2.1 of the License, or (at your option) any later version.
14  *
15  * This library is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18  * Lesser General Public License for more details.
19  *
20  * You should have received a copy of the GNU Lesser General Public
21  * License along with this library; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23  */
24
25 #include "config.h"
26 #include "wine/port.h"
27
28 #include <stdlib.h>
29 #include <string.h>
30 #include <stdarg.h>
31 #include <stdio.h>
32 #include <ctype.h>
33 #include <assert.h>
34
35 #define NONAMELESSUNION
36 #define NONAMELESSSTRUCT
37 #include "ntstatus.h"
38 #define WIN32_NO_STATUS
39 #include "windef.h"
40 #include "winbase.h"
41 #include "wingdi.h"
42 #include "winuser.h"
43 #include "winnls.h"
44 #include "winternl.h"
45 #include "winerror.h"
46 #include "win.h"
47 #include "user_private.h"
48 #include "wine/server.h"
49 #include "wine/debug.h"
50 #include "wine/unicode.h"
51
52 WINE_DEFAULT_DEBUG_CHANNEL(win);
53 WINE_DECLARE_DEBUG_CHANNEL(keyboard);
54
55
56 /***********************************************************************
57  *           get_key_state
58  */
59 static WORD get_key_state(void)
60 {
61     WORD ret = 0;
62
63     if (GetSystemMetrics( SM_SWAPBUTTON ))
64     {
65         if (GetAsyncKeyState(VK_RBUTTON) & 0x80) ret |= MK_LBUTTON;
66         if (GetAsyncKeyState(VK_LBUTTON) & 0x80) ret |= MK_RBUTTON;
67     }
68     else
69     {
70         if (GetAsyncKeyState(VK_LBUTTON) & 0x80) ret |= MK_LBUTTON;
71         if (GetAsyncKeyState(VK_RBUTTON) & 0x80) ret |= MK_RBUTTON;
72     }
73     if (GetAsyncKeyState(VK_MBUTTON) & 0x80)  ret |= MK_MBUTTON;
74     if (GetAsyncKeyState(VK_SHIFT) & 0x80)    ret |= MK_SHIFT;
75     if (GetAsyncKeyState(VK_CONTROL) & 0x80)  ret |= MK_CONTROL;
76     if (GetAsyncKeyState(VK_XBUTTON1) & 0x80) ret |= MK_XBUTTON1;
77     if (GetAsyncKeyState(VK_XBUTTON2) & 0x80) ret |= MK_XBUTTON2;
78     return ret;
79 }
80
81
82 /**********************************************************************
83  *              set_capture_window
84  */
85 BOOL set_capture_window( HWND hwnd, UINT gui_flags, HWND *prev_ret )
86 {
87     HWND previous = 0;
88     UINT flags = 0;
89     BOOL ret;
90
91     if (gui_flags & GUI_INMENUMODE) flags |= CAPTURE_MENU;
92     if (gui_flags & GUI_INMOVESIZE) flags |= CAPTURE_MOVESIZE;
93
94     SERVER_START_REQ( set_capture_window )
95     {
96         req->handle = wine_server_user_handle( hwnd );
97         req->flags  = flags;
98         if ((ret = !wine_server_call_err( req )))
99         {
100             previous = wine_server_ptr_handle( reply->previous );
101             hwnd = wine_server_ptr_handle( reply->full_handle );
102         }
103     }
104     SERVER_END_REQ;
105
106     if (ret)
107     {
108         USER_Driver->pSetCapture( hwnd, gui_flags );
109
110         if (previous && previous != hwnd)
111             SendMessageW( previous, WM_CAPTURECHANGED, 0, (LPARAM)hwnd );
112
113         if (prev_ret) *prev_ret = previous;
114     }
115     return ret;
116 }
117
118
119 /***********************************************************************
120  *              __wine_send_input  (USER32.@)
121  *
122  * Internal SendInput function to allow the graphics driver to inject real events.
123  */
124 BOOL CDECL __wine_send_input( HWND hwnd, const INPUT *input )
125 {
126     NTSTATUS status = send_hardware_message( hwnd, input, 0 );
127     if (status) SetLastError( RtlNtStatusToDosError(status) );
128     return !status;
129 }
130
131
132 /***********************************************************************
133  *              update_mouse_coords
134  *
135  * Helper for SendInput.
136  */
137 static void update_mouse_coords( INPUT *input )
138 {
139     if (!(input->u.mi.dwFlags & MOUSEEVENTF_MOVE)) return;
140
141     if (input->u.mi.dwFlags & MOUSEEVENTF_ABSOLUTE)
142     {
143         input->u.mi.dx = (input->u.mi.dx * GetSystemMetrics( SM_CXSCREEN )) >> 16;
144         input->u.mi.dy = (input->u.mi.dy * GetSystemMetrics( SM_CYSCREEN )) >> 16;
145     }
146     else
147     {
148         int accel[3];
149
150         /* dx and dy can be negative numbers for relative movements */
151         SystemParametersInfoW(SPI_GETMOUSE, 0, accel, 0);
152
153         if (!accel[2]) return;
154
155         if (abs(input->u.mi.dx) > accel[0])
156         {
157             input->u.mi.dx *= 2;
158             if ((abs(input->u.mi.dx) > accel[1]) && (accel[2] == 2)) input->u.mi.dx *= 2;
159         }
160         if (abs(input->u.mi.dy) > accel[0])
161         {
162             input->u.mi.dy *= 2;
163             if ((abs(input->u.mi.dy) > accel[1]) && (accel[2] == 2)) input->u.mi.dy *= 2;
164         }
165     }
166 }
167
168 /***********************************************************************
169  *              SendInput  (USER32.@)
170  */
171 UINT WINAPI SendInput( UINT count, LPINPUT inputs, int size )
172 {
173     UINT i;
174     NTSTATUS status;
175
176     for (i = 0; i < count; i++)
177     {
178         if (inputs[i].type == INPUT_MOUSE)
179         {
180             /* we need to update the coordinates to what the server expects */
181             INPUT input = inputs[i];
182             update_mouse_coords( &input );
183             if (!(status = send_hardware_message( 0, &input, SEND_HWMSG_INJECTED )))
184             {
185                 if ((input.u.mi.dwFlags & MOUSEEVENTF_MOVE) &&
186                     ((input.u.mi.dwFlags & MOUSEEVENTF_ABSOLUTE) || input.u.mi.dx || input.u.mi.dy))
187                 {
188                     /* we have to actually move the cursor */
189                     POINT pt;
190                     GetCursorPos( &pt );
191                     if (!(input.u.mi.dwFlags & MOUSEEVENTF_ABSOLUTE) ||
192                         pt.x != input.u.mi.dx  || pt.y != input.u.mi.dy)
193                         USER_Driver->pSetCursorPos( pt.x, pt.y );
194                 }
195             }
196         }
197         else status = send_hardware_message( 0, &inputs[i], SEND_HWMSG_INJECTED );
198
199         if (status)
200         {
201             SetLastError( RtlNtStatusToDosError(status) );
202             break;
203         }
204     }
205
206     return i;
207 }
208
209
210 /***********************************************************************
211  *              keybd_event (USER32.@)
212  */
213 void WINAPI keybd_event( BYTE bVk, BYTE bScan,
214                          DWORD dwFlags, ULONG_PTR dwExtraInfo )
215 {
216     INPUT input;
217
218     input.type = INPUT_KEYBOARD;
219     input.u.ki.wVk = bVk;
220     input.u.ki.wScan = bScan;
221     input.u.ki.dwFlags = dwFlags;
222     input.u.ki.time = 0;
223     input.u.ki.dwExtraInfo = dwExtraInfo;
224     SendInput( 1, &input, sizeof(input) );
225 }
226
227
228 /***********************************************************************
229  *              mouse_event (USER32.@)
230  */
231 void WINAPI mouse_event( DWORD dwFlags, DWORD dx, DWORD dy,
232                          DWORD dwData, ULONG_PTR dwExtraInfo )
233 {
234     INPUT input;
235
236     input.type = INPUT_MOUSE;
237     input.u.mi.dx = dx;
238     input.u.mi.dy = dy;
239     input.u.mi.mouseData = dwData;
240     input.u.mi.dwFlags = dwFlags;
241     input.u.mi.time = 0;
242     input.u.mi.dwExtraInfo = dwExtraInfo;
243     SendInput( 1, &input, sizeof(input) );
244 }
245
246
247 /***********************************************************************
248  *              GetCursorPos (USER32.@)
249  */
250 BOOL WINAPI DECLSPEC_HOTPATCH GetCursorPos( POINT *pt )
251 {
252     BOOL ret;
253     DWORD last_change;
254
255     if (!pt) return FALSE;
256
257     SERVER_START_REQ( set_cursor )
258     {
259         if ((ret = !wine_server_call( req )))
260         {
261             pt->x = reply->new_x;
262             pt->y = reply->new_y;
263             last_change = reply->last_change;
264         }
265     }
266     SERVER_END_REQ;
267
268     /* query new position from graphics driver if we haven't updated recently */
269     if (ret && GetTickCount() - last_change > 100) ret = USER_Driver->pGetCursorPos( pt );
270     return ret;
271 }
272
273
274 /***********************************************************************
275  *              GetCursorInfo (USER32.@)
276  */
277 BOOL WINAPI GetCursorInfo( PCURSORINFO pci )
278 {
279     BOOL ret;
280
281     if (!pci) return 0;
282
283     SERVER_START_REQ( get_thread_input )
284     {
285         req->tid = 0;
286         if ((ret = !wine_server_call( req )))
287         {
288             pci->hCursor = wine_server_ptr_handle( reply->cursor );
289             pci->flags = (reply->show_count >= 0) ? CURSOR_SHOWING : 0;
290         }
291     }
292     SERVER_END_REQ;
293     GetCursorPos(&pci->ptScreenPos);
294     return ret;
295 }
296
297
298 /***********************************************************************
299  *              SetCursorPos (USER32.@)
300  */
301 BOOL WINAPI DECLSPEC_HOTPATCH SetCursorPos( INT x, INT y )
302 {
303     BOOL ret;
304
305     SERVER_START_REQ( set_cursor )
306     {
307         req->flags = SET_CURSOR_POS;
308         req->x     = x;
309         req->y     = y;
310         if ((ret = !wine_server_call( req )))
311         {
312             x = reply->new_x;
313             y = reply->new_y;
314         }
315     }
316     SERVER_END_REQ;
317     if (ret) USER_Driver->pSetCursorPos( x, y );
318     return ret;
319 }
320
321
322 /**********************************************************************
323  *              SetCapture (USER32.@)
324  */
325 HWND WINAPI DECLSPEC_HOTPATCH SetCapture( HWND hwnd )
326 {
327     HWND previous = 0;
328
329     set_capture_window( hwnd, 0, &previous );
330     return previous;
331 }
332
333
334 /**********************************************************************
335  *              ReleaseCapture (USER32.@)
336  */
337 BOOL WINAPI DECLSPEC_HOTPATCH ReleaseCapture(void)
338 {
339     BOOL ret = set_capture_window( 0, 0, NULL );
340
341     /* Somebody may have missed some mouse movements */
342     if (ret) mouse_event( MOUSEEVENTF_MOVE, 0, 0, 0, 0 );
343
344     return ret;
345 }
346
347
348 /**********************************************************************
349  *              GetCapture (USER32.@)
350  */
351 HWND WINAPI GetCapture(void)
352 {
353     HWND ret = 0;
354
355     SERVER_START_REQ( get_thread_input )
356     {
357         req->tid = GetCurrentThreadId();
358         if (!wine_server_call_err( req )) ret = wine_server_ptr_handle( reply->capture );
359     }
360     SERVER_END_REQ;
361     return ret;
362 }
363
364
365 /**********************************************************************
366  *              GetAsyncKeyState (USER32.@)
367  *
368  *      Determine if a key is or was pressed.  retval has high-order
369  * bit set to 1 if currently pressed, low-order bit set to 1 if key has
370  * been pressed.
371  */
372 SHORT WINAPI DECLSPEC_HOTPATCH GetAsyncKeyState( INT key )
373 {
374     SHORT ret;
375
376     if (key < 0 || key >= 256) return 0;
377
378     if ((ret = USER_Driver->pGetAsyncKeyState( key )) == -1)
379     {
380         ret = 0;
381         SERVER_START_REQ( get_key_state )
382         {
383             req->tid = 0;
384             req->key = key;
385             if (!wine_server_call( req ))
386             {
387                 if (reply->state & 0x40) ret |= 0x0001;
388                 if (reply->state & 0x80) ret |= 0x8000;
389             }
390         }
391         SERVER_END_REQ;
392     }
393     return ret;
394 }
395
396
397 /***********************************************************************
398  *              GetQueueStatus (USER32.@)
399  */
400 DWORD WINAPI GetQueueStatus( UINT flags )
401 {
402     DWORD ret = 0;
403
404     if (flags & ~(QS_ALLINPUT | QS_ALLPOSTMESSAGE | QS_SMRESULT))
405     {
406         SetLastError( ERROR_INVALID_FLAGS );
407         return 0;
408     }
409
410     /* check for pending X events */
411     USER_Driver->pMsgWaitForMultipleObjectsEx( 0, NULL, 0, flags, 0 );
412
413     SERVER_START_REQ( get_queue_status )
414     {
415         req->clear = 1;
416         wine_server_call( req );
417         ret = MAKELONG( reply->changed_bits & flags, reply->wake_bits & flags );
418     }
419     SERVER_END_REQ;
420     return ret;
421 }
422
423
424 /***********************************************************************
425  *              GetInputState   (USER32.@)
426  */
427 BOOL WINAPI GetInputState(void)
428 {
429     DWORD ret = 0;
430
431     /* check for pending X events */
432     USER_Driver->pMsgWaitForMultipleObjectsEx( 0, NULL, 0, QS_INPUT, 0 );
433
434     SERVER_START_REQ( get_queue_status )
435     {
436         req->clear = 0;
437         wine_server_call( req );
438         ret = reply->wake_bits & (QS_KEY | QS_MOUSEBUTTON);
439     }
440     SERVER_END_REQ;
441     return ret;
442 }
443
444
445 /******************************************************************
446  *              GetLastInputInfo (USER32.@)
447  */
448 BOOL WINAPI GetLastInputInfo(PLASTINPUTINFO plii)
449 {
450     BOOL ret;
451
452     TRACE("%p\n", plii);
453
454     if (plii->cbSize != sizeof (*plii) )
455     {
456         SetLastError(ERROR_INVALID_PARAMETER);
457         return FALSE;
458     }
459
460     SERVER_START_REQ( get_last_input_time )
461     {
462         ret = !wine_server_call_err( req );
463         if (ret)
464             plii->dwTime = reply->time;
465     }
466     SERVER_END_REQ;
467     return ret;
468 }
469
470
471 /******************************************************************
472 *               GetRawInputDeviceList (USER32.@)
473 */
474 UINT WINAPI GetRawInputDeviceList(PRAWINPUTDEVICELIST pRawInputDeviceList, PUINT puiNumDevices, UINT cbSize)
475 {
476     FIXME("(pRawInputDeviceList=%p, puiNumDevices=%p, cbSize=%d) stub!\n", pRawInputDeviceList, puiNumDevices, cbSize);
477
478     if(pRawInputDeviceList)
479         memset(pRawInputDeviceList, 0, sizeof *pRawInputDeviceList);
480     *puiNumDevices = 0;
481     return 0;
482 }
483
484
485 /******************************************************************
486 *               RegisterRawInputDevices (USER32.@)
487 */
488 BOOL WINAPI DECLSPEC_HOTPATCH RegisterRawInputDevices(PRAWINPUTDEVICE pRawInputDevices, UINT uiNumDevices, UINT cbSize)
489 {
490     FIXME("(pRawInputDevices=%p, uiNumDevices=%d, cbSize=%d) stub!\n", pRawInputDevices, uiNumDevices, cbSize);
491
492     return TRUE;
493 }
494
495
496 /******************************************************************
497 *               GetRawInputData (USER32.@)
498 */
499 UINT WINAPI GetRawInputData(HRAWINPUT hRawInput, UINT uiCommand, LPVOID pData, PUINT pcbSize, UINT cbSizeHeader)
500 {
501     FIXME("(hRawInput=%p, uiCommand=%d, pData=%p, pcbSize=%p, cbSizeHeader=%d) stub!\n",
502             hRawInput, uiCommand, pData, pcbSize, cbSizeHeader);
503
504     return 0;
505 }
506
507
508 /******************************************************************
509 *               GetRawInputBuffer (USER32.@)
510 */
511 UINT WINAPI DECLSPEC_HOTPATCH GetRawInputBuffer(PRAWINPUT pData, PUINT pcbSize, UINT cbSizeHeader)
512 {
513     FIXME("(pData=%p, pcbSize=%p, cbSizeHeader=%d) stub!\n", pData, pcbSize, cbSizeHeader);
514
515     return 0;
516 }
517
518
519 /******************************************************************
520 *               GetRawInputDeviceInfoA (USER32.@)
521 */
522 UINT WINAPI GetRawInputDeviceInfoA(HANDLE hDevice, UINT uiCommand, LPVOID pData, PUINT pcbSize)
523 {
524     FIXME("(hDevice=%p, uiCommand=%d, pData=%p, pcbSize=%p) stub!\n", hDevice, uiCommand, pData, pcbSize);
525
526     return 0;
527 }
528
529
530 /******************************************************************
531 *               GetRawInputDeviceInfoW (USER32.@)
532 */
533 UINT WINAPI GetRawInputDeviceInfoW(HANDLE hDevice, UINT uiCommand, LPVOID pData, PUINT pcbSize)
534 {
535     FIXME("(hDevice=%p, uiCommand=%d, pData=%p, pcbSize=%p) stub!\n", hDevice, uiCommand, pData, pcbSize);
536
537     return 0;
538 }
539
540
541 /******************************************************************
542 *               GetRegisteredRawInputDevices (USER32.@)
543 */
544 UINT WINAPI GetRegisteredRawInputDevices(PRAWINPUTDEVICE pRawInputDevices, PUINT puiNumDevices, UINT cbSize)
545 {
546     FIXME("(pRawInputDevices=%p, puiNumDevices=%p, cbSize=%d) stub!\n", pRawInputDevices, puiNumDevices, cbSize);
547
548     return 0;
549 }
550
551
552 /******************************************************************
553 *               DefRawInputProc (USER32.@)
554 */
555 LRESULT WINAPI DefRawInputProc(PRAWINPUT *paRawInput, INT nInput, UINT cbSizeHeader)
556 {
557     FIXME("(paRawInput=%p, nInput=%d, cbSizeHeader=%d) stub!\n", *paRawInput, nInput, cbSizeHeader);
558
559     return 0;
560 }
561
562
563 /**********************************************************************
564  *              AttachThreadInput (USER32.@)
565  *
566  * Attaches the input processing mechanism of one thread to that of
567  * another thread.
568  */
569 BOOL WINAPI AttachThreadInput( DWORD from, DWORD to, BOOL attach )
570 {
571     BOOL ret;
572
573     SERVER_START_REQ( attach_thread_input )
574     {
575         req->tid_from = from;
576         req->tid_to   = to;
577         req->attach   = attach;
578         ret = !wine_server_call_err( req );
579     }
580     SERVER_END_REQ;
581     return ret;
582 }
583
584
585 /**********************************************************************
586  *              GetKeyState (USER32.@)
587  *
588  * An application calls the GetKeyState function in response to a
589  * keyboard-input message.  This function retrieves the state of the key
590  * at the time the input message was generated.
591  */
592 SHORT WINAPI DECLSPEC_HOTPATCH GetKeyState(INT vkey)
593 {
594     SHORT retval = 0;
595
596     SERVER_START_REQ( get_key_state )
597     {
598         req->tid = GetCurrentThreadId();
599         req->key = vkey;
600         if (!wine_server_call( req )) retval = (signed char)reply->state;
601     }
602     SERVER_END_REQ;
603     TRACE("key (0x%x) -> %x\n", vkey, retval);
604     return retval;
605 }
606
607
608 /**********************************************************************
609  *              GetKeyboardState (USER32.@)
610  */
611 BOOL WINAPI DECLSPEC_HOTPATCH GetKeyboardState( LPBYTE state )
612 {
613     BOOL ret;
614
615     TRACE("(%p)\n", state);
616
617     memset( state, 0, 256 );
618     SERVER_START_REQ( get_key_state )
619     {
620         req->tid = GetCurrentThreadId();
621         req->key = -1;
622         wine_server_set_reply( req, state, 256 );
623         ret = !wine_server_call_err( req );
624     }
625     SERVER_END_REQ;
626     return ret;
627 }
628
629
630 /**********************************************************************
631  *              SetKeyboardState (USER32.@)
632  */
633 BOOL WINAPI SetKeyboardState( LPBYTE state )
634 {
635     BOOL ret;
636
637     SERVER_START_REQ( set_key_state )
638     {
639         req->tid = GetCurrentThreadId();
640         wine_server_add_data( req, state, 256 );
641         ret = !wine_server_call_err( req );
642     }
643     SERVER_END_REQ;
644     return ret;
645 }
646
647
648 /**********************************************************************
649  *              VkKeyScanA (USER32.@)
650  *
651  * VkKeyScan translates an ANSI character to a virtual-key and shift code
652  * for the current keyboard.
653  * high-order byte yields :
654  *      0       Unshifted
655  *      1       Shift
656  *      2       Ctrl
657  *      3-5     Shift-key combinations that are not used for characters
658  *      6       Ctrl-Alt
659  *      7       Ctrl-Alt-Shift
660  *      I.e. :  Shift = 1, Ctrl = 2, Alt = 4.
661  * FIXME : works ok except for dead chars :
662  * VkKeyScan '^'(0x5e, 94) ... got keycode 00 ... returning 00
663  * VkKeyScan '`'(0x60, 96) ... got keycode 00 ... returning 00
664  */
665 SHORT WINAPI VkKeyScanA(CHAR cChar)
666 {
667     WCHAR wChar;
668
669     if (IsDBCSLeadByte(cChar)) return -1;
670
671     MultiByteToWideChar(CP_ACP, 0, &cChar, 1, &wChar, 1);
672     return VkKeyScanW(wChar);
673 }
674
675 /******************************************************************************
676  *              VkKeyScanW (USER32.@)
677  */
678 SHORT WINAPI VkKeyScanW(WCHAR cChar)
679 {
680     return VkKeyScanExW(cChar, GetKeyboardLayout(0));
681 }
682
683 /**********************************************************************
684  *              VkKeyScanExA (USER32.@)
685  */
686 WORD WINAPI VkKeyScanExA(CHAR cChar, HKL dwhkl)
687 {
688     WCHAR wChar;
689
690     if (IsDBCSLeadByte(cChar)) return -1;
691
692     MultiByteToWideChar(CP_ACP, 0, &cChar, 1, &wChar, 1);
693     return VkKeyScanExW(wChar, dwhkl);
694 }
695
696 /******************************************************************************
697  *              VkKeyScanExW (USER32.@)
698  */
699 WORD WINAPI VkKeyScanExW(WCHAR cChar, HKL dwhkl)
700 {
701     return USER_Driver->pVkKeyScanEx(cChar, dwhkl);
702 }
703
704 /**********************************************************************
705  *              OemKeyScan (USER32.@)
706  */
707 DWORD WINAPI OemKeyScan(WORD wOemChar)
708 {
709     return wOemChar;
710 }
711
712 /******************************************************************************
713  *              GetKeyboardType (USER32.@)
714  */
715 INT WINAPI GetKeyboardType(INT nTypeFlag)
716 {
717     TRACE_(keyboard)("(%d)\n", nTypeFlag);
718     switch(nTypeFlag)
719     {
720     case 0:      /* Keyboard type */
721         return 4;    /* AT-101 */
722     case 1:      /* Keyboard Subtype */
723         return 0;    /* There are no defined subtypes */
724     case 2:      /* Number of F-keys */
725         return 12;   /* We're doing an 101 for now, so return 12 F-keys */
726     default:
727         WARN_(keyboard)("Unknown type\n");
728         return 0;    /* The book says 0 here, so 0 */
729     }
730 }
731
732 /******************************************************************************
733  *              MapVirtualKeyA (USER32.@)
734  */
735 UINT WINAPI MapVirtualKeyA(UINT code, UINT maptype)
736 {
737     return MapVirtualKeyExA( code, maptype, GetKeyboardLayout(0) );
738 }
739
740 /******************************************************************************
741  *              MapVirtualKeyW (USER32.@)
742  */
743 UINT WINAPI MapVirtualKeyW(UINT code, UINT maptype)
744 {
745     return MapVirtualKeyExW(code, maptype, GetKeyboardLayout(0));
746 }
747
748 /******************************************************************************
749  *              MapVirtualKeyExA (USER32.@)
750  */
751 UINT WINAPI MapVirtualKeyExA(UINT code, UINT maptype, HKL hkl)
752 {
753     UINT ret;
754
755     ret = MapVirtualKeyExW( code, maptype, hkl );
756     if (maptype == MAPVK_VK_TO_CHAR)
757     {
758         BYTE ch = 0;
759         WCHAR wch = ret;
760
761         WideCharToMultiByte( CP_ACP, 0, &wch, 1, (LPSTR)&ch, 1, NULL, NULL );
762         ret = ch;
763     }
764     return ret;
765 }
766
767 /******************************************************************************
768  *              MapVirtualKeyExW (USER32.@)
769  */
770 UINT WINAPI MapVirtualKeyExW(UINT code, UINT maptype, HKL hkl)
771 {
772     TRACE_(keyboard)("(%X, %d, %p)\n", code, maptype, hkl);
773
774     return USER_Driver->pMapVirtualKeyEx(code, maptype, hkl);
775 }
776
777 /****************************************************************************
778  *              GetKBCodePage (USER32.@)
779  */
780 UINT WINAPI GetKBCodePage(void)
781 {
782     return GetOEMCP();
783 }
784
785 /***********************************************************************
786  *              GetKeyboardLayout (USER32.@)
787  *
788  *        - device handle for keyboard layout defaulted to
789  *          the language id. This is the way Windows default works.
790  *        - the thread identifier is also ignored.
791  */
792 HKL WINAPI GetKeyboardLayout(DWORD thread_id)
793 {
794     return USER_Driver->pGetKeyboardLayout(thread_id);
795 }
796
797 /****************************************************************************
798  *              GetKeyboardLayoutNameA (USER32.@)
799  */
800 BOOL WINAPI GetKeyboardLayoutNameA(LPSTR pszKLID)
801 {
802     WCHAR buf[KL_NAMELENGTH];
803
804     if (GetKeyboardLayoutNameW(buf))
805         return WideCharToMultiByte( CP_ACP, 0, buf, -1, pszKLID, KL_NAMELENGTH, NULL, NULL ) != 0;
806     return FALSE;
807 }
808
809 /****************************************************************************
810  *              GetKeyboardLayoutNameW (USER32.@)
811  */
812 BOOL WINAPI GetKeyboardLayoutNameW(LPWSTR pwszKLID)
813 {
814     return USER_Driver->pGetKeyboardLayoutName(pwszKLID);
815 }
816
817 /****************************************************************************
818  *              GetKeyNameTextA (USER32.@)
819  */
820 INT WINAPI GetKeyNameTextA(LONG lParam, LPSTR lpBuffer, INT nSize)
821 {
822     WCHAR buf[256];
823     INT ret;
824
825     if (!GetKeyNameTextW(lParam, buf, 256))
826     {
827         lpBuffer[0] = 0;
828         return 0;
829     }
830     ret = WideCharToMultiByte(CP_ACP, 0, buf, -1, lpBuffer, nSize, NULL, NULL);
831     if (!ret && nSize)
832     {
833         ret = nSize - 1;
834         lpBuffer[ret] = 0;
835     }
836     return ret;
837 }
838
839 /****************************************************************************
840  *              GetKeyNameTextW (USER32.@)
841  */
842 INT WINAPI GetKeyNameTextW(LONG lParam, LPWSTR lpBuffer, INT nSize)
843 {
844     return USER_Driver->pGetKeyNameText( lParam, lpBuffer, nSize );
845 }
846
847 /****************************************************************************
848  *              ToUnicode (USER32.@)
849  */
850 INT WINAPI ToUnicode(UINT virtKey, UINT scanCode, const BYTE *lpKeyState,
851                      LPWSTR lpwStr, int size, UINT flags)
852 {
853     return ToUnicodeEx(virtKey, scanCode, lpKeyState, lpwStr, size, flags, GetKeyboardLayout(0));
854 }
855
856 /****************************************************************************
857  *              ToUnicodeEx (USER32.@)
858  */
859 INT WINAPI ToUnicodeEx(UINT virtKey, UINT scanCode, const BYTE *lpKeyState,
860                        LPWSTR lpwStr, int size, UINT flags, HKL hkl)
861 {
862     return USER_Driver->pToUnicodeEx(virtKey, scanCode, lpKeyState, lpwStr, size, flags, hkl);
863 }
864
865 /****************************************************************************
866  *              ToAscii (USER32.@)
867  */
868 INT WINAPI ToAscii( UINT virtKey, UINT scanCode, const BYTE *lpKeyState,
869                     LPWORD lpChar, UINT flags )
870 {
871     return ToAsciiEx(virtKey, scanCode, lpKeyState, lpChar, flags, GetKeyboardLayout(0));
872 }
873
874 /****************************************************************************
875  *              ToAsciiEx (USER32.@)
876  */
877 INT WINAPI ToAsciiEx( UINT virtKey, UINT scanCode, const BYTE *lpKeyState,
878                       LPWORD lpChar, UINT flags, HKL dwhkl )
879 {
880     WCHAR uni_chars[2];
881     INT ret, n_ret;
882
883     ret = ToUnicodeEx(virtKey, scanCode, lpKeyState, uni_chars, 2, flags, dwhkl);
884     if (ret < 0) n_ret = 1; /* FIXME: make ToUnicode return 2 for dead chars */
885     else n_ret = ret;
886     WideCharToMultiByte(CP_ACP, 0, uni_chars, n_ret, (LPSTR)lpChar, 2, NULL, NULL);
887     return ret;
888 }
889
890 /**********************************************************************
891  *              ActivateKeyboardLayout (USER32.@)
892  */
893 HKL WINAPI ActivateKeyboardLayout(HKL hLayout, UINT flags)
894 {
895     TRACE_(keyboard)("(%p, %d)\n", hLayout, flags);
896
897     return USER_Driver->pActivateKeyboardLayout(hLayout, flags);
898 }
899
900 /**********************************************************************
901  *              BlockInput (USER32.@)
902  */
903 BOOL WINAPI BlockInput(BOOL fBlockIt)
904 {
905     FIXME_(keyboard)("(%d): stub\n", fBlockIt);
906     SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
907
908     return FALSE;
909 }
910
911 /***********************************************************************
912  *              GetKeyboardLayoutList (USER32.@)
913  *
914  * Return number of values available if either input parm is
915  *  0, per MS documentation.
916  */
917 UINT WINAPI GetKeyboardLayoutList(INT nBuff, HKL *layouts)
918 {
919     HKEY hKeyKeyboard;
920     DWORD rc;
921     INT count = 0;
922     ULONG_PTR baselayout;
923     LANGID langid;
924     static const WCHAR szKeyboardReg[] = {'S','y','s','t','e','m','\\','C','u','r','r','e','n','t','C','o','n','t','r','o','l','S','e','t','\\','C','o','n','t','r','o','l','\\','K','e','y','b','o','a','r','d',' ','L','a','y','o','u','t','s',0};
925
926     TRACE_(keyboard)("(%d,%p)\n",nBuff,layouts);
927
928     baselayout = GetUserDefaultLCID();
929     langid = PRIMARYLANGID(LANGIDFROMLCID(baselayout));
930     if (langid == LANG_CHINESE || langid == LANG_JAPANESE || langid == LANG_KOREAN)
931         baselayout |= 0xe001 << 16; /* IME */
932     else
933         baselayout |= baselayout << 16;
934
935     /* Enumerate the Registry */
936     rc = RegOpenKeyW(HKEY_LOCAL_MACHINE,szKeyboardReg,&hKeyKeyboard);
937     if (rc == ERROR_SUCCESS)
938     {
939         do {
940             WCHAR szKeyName[9];
941             HKL layout;
942             rc = RegEnumKeyW(hKeyKeyboard, count, szKeyName, 9);
943             if (rc == ERROR_SUCCESS)
944             {
945                 layout = (HKL)strtoulW(szKeyName,NULL,16);
946                 if (baselayout != 0 && layout == (HKL)baselayout)
947                     baselayout = 0; /* found in the registry do not add again */
948                 if (nBuff && layouts)
949                 {
950                     if (count >= nBuff ) break;
951                     layouts[count] = layout;
952                 }
953                 count ++;
954             }
955         } while (rc == ERROR_SUCCESS);
956         RegCloseKey(hKeyKeyboard);
957     }
958
959     /* make sure our base layout is on the list */
960     if (baselayout != 0)
961     {
962         if (nBuff && layouts)
963         {
964             if (count < nBuff)
965             {
966                 layouts[count] = (HKL)baselayout;
967                 count++;
968             }
969         }
970         else
971             count++;
972     }
973
974     return count;
975 }
976
977
978 /***********************************************************************
979  *              RegisterHotKey (USER32.@)
980  */
981 BOOL WINAPI RegisterHotKey(HWND hwnd,INT id,UINT modifiers,UINT vk)
982 {
983     static int once;
984     if (!once++) FIXME_(keyboard)("(%p,%d,0x%08x,%X): stub\n",hwnd,id,modifiers,vk);
985     return TRUE;
986 }
987
988 /***********************************************************************
989  *              UnregisterHotKey (USER32.@)
990  */
991 BOOL WINAPI UnregisterHotKey(HWND hwnd,INT id)
992 {
993     static int once;
994     if (!once++) FIXME_(keyboard)("(%p,%d): stub\n",hwnd,id);
995     return TRUE;
996 }
997
998 /***********************************************************************
999  *              LoadKeyboardLayoutW (USER32.@)
1000  */
1001 HKL WINAPI LoadKeyboardLayoutW(LPCWSTR pwszKLID, UINT Flags)
1002 {
1003     TRACE_(keyboard)("(%s, %d)\n", debugstr_w(pwszKLID), Flags);
1004
1005     return USER_Driver->pLoadKeyboardLayout(pwszKLID, Flags);
1006 }
1007
1008 /***********************************************************************
1009  *              LoadKeyboardLayoutA (USER32.@)
1010  */
1011 HKL WINAPI LoadKeyboardLayoutA(LPCSTR pwszKLID, UINT Flags)
1012 {
1013     HKL ret;
1014     UNICODE_STRING pwszKLIDW;
1015
1016     if (pwszKLID) RtlCreateUnicodeStringFromAsciiz(&pwszKLIDW, pwszKLID);
1017     else pwszKLIDW.Buffer = NULL;
1018
1019     ret = LoadKeyboardLayoutW(pwszKLIDW.Buffer, Flags);
1020     RtlFreeUnicodeString(&pwszKLIDW);
1021     return ret;
1022 }
1023
1024
1025 /***********************************************************************
1026  *              UnloadKeyboardLayout (USER32.@)
1027  */
1028 BOOL WINAPI UnloadKeyboardLayout(HKL hkl)
1029 {
1030     TRACE_(keyboard)("(%p)\n", hkl);
1031
1032     return USER_Driver->pUnloadKeyboardLayout(hkl);
1033 }
1034
1035 typedef struct __TRACKINGLIST {
1036     TRACKMOUSEEVENT tme;
1037     POINT pos; /* center of hover rectangle */
1038 } _TRACKINGLIST;
1039
1040 /* FIXME: move tracking stuff into a per thread data */
1041 static _TRACKINGLIST tracking_info;
1042 static UINT_PTR timer;
1043
1044 static void check_mouse_leave(HWND hwnd, int hittest)
1045 {
1046     if (tracking_info.tme.hwndTrack != hwnd)
1047     {
1048         if (tracking_info.tme.dwFlags & TME_NONCLIENT)
1049             PostMessageW(tracking_info.tme.hwndTrack, WM_NCMOUSELEAVE, 0, 0);
1050         else
1051             PostMessageW(tracking_info.tme.hwndTrack, WM_MOUSELEAVE, 0, 0);
1052
1053         /* remove the TME_LEAVE flag */
1054         tracking_info.tme.dwFlags &= ~TME_LEAVE;
1055     }
1056     else
1057     {
1058         if (hittest == HTCLIENT)
1059         {
1060             if (tracking_info.tme.dwFlags & TME_NONCLIENT)
1061             {
1062                 PostMessageW(tracking_info.tme.hwndTrack, WM_NCMOUSELEAVE, 0, 0);
1063                 /* remove the TME_LEAVE flag */
1064                 tracking_info.tme.dwFlags &= ~TME_LEAVE;
1065             }
1066         }
1067         else
1068         {
1069             if (!(tracking_info.tme.dwFlags & TME_NONCLIENT))
1070             {
1071                 PostMessageW(tracking_info.tme.hwndTrack, WM_MOUSELEAVE, 0, 0);
1072                 /* remove the TME_LEAVE flag */
1073                 tracking_info.tme.dwFlags &= ~TME_LEAVE;
1074             }
1075         }
1076     }
1077 }
1078
1079 static void CALLBACK TrackMouseEventProc(HWND hwnd, UINT uMsg, UINT_PTR idEvent,
1080                                          DWORD dwTime)
1081 {
1082     POINT pos;
1083     INT hoverwidth = 0, hoverheight = 0, hittest;
1084
1085     TRACE("hwnd %p, msg %04x, id %04lx, time %u\n", hwnd, uMsg, idEvent, dwTime);
1086
1087     GetCursorPos(&pos);
1088     hwnd = WINPOS_WindowFromPoint(hwnd, pos, &hittest);
1089
1090     TRACE("point %s hwnd %p hittest %d\n", wine_dbgstr_point(&pos), hwnd, hittest);
1091
1092     SystemParametersInfoW(SPI_GETMOUSEHOVERWIDTH, 0, &hoverwidth, 0);
1093     SystemParametersInfoW(SPI_GETMOUSEHOVERHEIGHT, 0, &hoverheight, 0);
1094
1095     TRACE("tracked pos %s, current pos %s, hover width %d, hover height %d\n",
1096            wine_dbgstr_point(&tracking_info.pos), wine_dbgstr_point(&pos),
1097            hoverwidth, hoverheight);
1098
1099     /* see if this tracking event is looking for TME_LEAVE and that the */
1100     /* mouse has left the window */
1101     if (tracking_info.tme.dwFlags & TME_LEAVE)
1102     {
1103         check_mouse_leave(hwnd, hittest);
1104     }
1105
1106     if (tracking_info.tme.hwndTrack != hwnd)
1107     {
1108         /* mouse is gone, stop tracking mouse hover */
1109         tracking_info.tme.dwFlags &= ~TME_HOVER;
1110     }
1111
1112     /* see if we are tracking hovering for this hwnd */
1113     if (tracking_info.tme.dwFlags & TME_HOVER)
1114     {
1115         /* has the cursor moved outside the rectangle centered around pos? */
1116         if ((abs(pos.x - tracking_info.pos.x) > (hoverwidth / 2)) ||
1117             (abs(pos.y - tracking_info.pos.y) > (hoverheight / 2)))
1118         {
1119             /* record this new position as the current position */
1120             tracking_info.pos = pos;
1121         }
1122         else
1123         {
1124             if (hittest == HTCLIENT)
1125             {
1126                 ScreenToClient(hwnd, &pos);
1127                 TRACE("client cursor pos %s\n", wine_dbgstr_point(&pos));
1128
1129                 PostMessageW(tracking_info.tme.hwndTrack, WM_MOUSEHOVER,
1130                              get_key_state(), MAKELPARAM( pos.x, pos.y ));
1131             }
1132             else
1133             {
1134                 if (tracking_info.tme.dwFlags & TME_NONCLIENT)
1135                     PostMessageW(tracking_info.tme.hwndTrack, WM_NCMOUSEHOVER,
1136                                  hittest, MAKELPARAM( pos.x, pos.y ));
1137             }
1138
1139             /* stop tracking mouse hover */
1140             tracking_info.tme.dwFlags &= ~TME_HOVER;
1141         }
1142     }
1143
1144     /* stop the timer if the tracking list is empty */
1145     if (!(tracking_info.tme.dwFlags & (TME_HOVER | TME_LEAVE)))
1146     {
1147         KillSystemTimer(tracking_info.tme.hwndTrack, timer);
1148         timer = 0;
1149         tracking_info.tme.hwndTrack = 0;
1150         tracking_info.tme.dwFlags = 0;
1151         tracking_info.tme.dwHoverTime = 0;
1152     }
1153 }
1154
1155
1156 /***********************************************************************
1157  * TrackMouseEvent [USER32]
1158  *
1159  * Requests notification of mouse events
1160  *
1161  * During mouse tracking WM_MOUSEHOVER or WM_MOUSELEAVE events are posted
1162  * to the hwnd specified in the ptme structure.  After the event message
1163  * is posted to the hwnd, the entry in the queue is removed.
1164  *
1165  * If the current hwnd isn't ptme->hwndTrack the TME_HOVER flag is completely
1166  * ignored. The TME_LEAVE flag results in a WM_MOUSELEAVE message being posted
1167  * immediately and the TME_LEAVE flag being ignored.
1168  *
1169  * PARAMS
1170  *     ptme [I,O] pointer to TRACKMOUSEEVENT information structure.
1171  *
1172  * RETURNS
1173  *     Success: non-zero
1174  *     Failure: zero
1175  *
1176  */
1177
1178 BOOL WINAPI
1179 TrackMouseEvent (TRACKMOUSEEVENT *ptme)
1180 {
1181     HWND hwnd;
1182     POINT pos;
1183     DWORD hover_time;
1184     INT hittest;
1185
1186     TRACE("%x, %x, %p, %u\n", ptme->cbSize, ptme->dwFlags, ptme->hwndTrack, ptme->dwHoverTime);
1187
1188     if (ptme->cbSize != sizeof(TRACKMOUSEEVENT)) {
1189         WARN("wrong TRACKMOUSEEVENT size from app\n");
1190         SetLastError(ERROR_INVALID_PARAMETER);
1191         return FALSE;
1192     }
1193
1194     /* fill the TRACKMOUSEEVENT struct with the current tracking for the given hwnd */
1195     if (ptme->dwFlags & TME_QUERY )
1196     {
1197         *ptme = tracking_info.tme;
1198         /* set cbSize in the case it's not initialized yet */
1199         ptme->cbSize = sizeof(TRACKMOUSEEVENT);
1200
1201         return TRUE; /* return here, TME_QUERY is retrieving information */
1202     }
1203
1204     if (!IsWindow(ptme->hwndTrack))
1205     {
1206         SetLastError(ERROR_INVALID_WINDOW_HANDLE);
1207         return FALSE;
1208     }
1209
1210     hover_time = (ptme->dwFlags & TME_HOVER) ? ptme->dwHoverTime : HOVER_DEFAULT;
1211
1212     /* if HOVER_DEFAULT was specified replace this with the system's current value.
1213      * TME_LEAVE doesn't need to specify hover time so use default */
1214     if (hover_time == HOVER_DEFAULT || hover_time == 0)
1215         SystemParametersInfoW(SPI_GETMOUSEHOVERTIME, 0, &hover_time, 0);
1216
1217     GetCursorPos(&pos);
1218     hwnd = WINPOS_WindowFromPoint(ptme->hwndTrack, pos, &hittest);
1219     TRACE("point %s hwnd %p hittest %d\n", wine_dbgstr_point(&pos), hwnd, hittest);
1220
1221     if (ptme->dwFlags & ~(TME_CANCEL | TME_HOVER | TME_LEAVE | TME_NONCLIENT))
1222         FIXME("Unknown flag(s) %08x\n", ptme->dwFlags & ~(TME_CANCEL | TME_HOVER | TME_LEAVE | TME_NONCLIENT));
1223
1224     if (ptme->dwFlags & TME_CANCEL)
1225     {
1226         if (tracking_info.tme.hwndTrack == ptme->hwndTrack)
1227         {
1228             tracking_info.tme.dwFlags &= ~(ptme->dwFlags & ~TME_CANCEL);
1229
1230             /* if we aren't tracking on hover or leave remove this entry */
1231             if (!(tracking_info.tme.dwFlags & (TME_HOVER | TME_LEAVE)))
1232             {
1233                 KillSystemTimer(tracking_info.tme.hwndTrack, timer);
1234                 timer = 0;
1235                 tracking_info.tme.hwndTrack = 0;
1236                 tracking_info.tme.dwFlags = 0;
1237                 tracking_info.tme.dwHoverTime = 0;
1238             }
1239         }
1240     } else {
1241         /* In our implementation it's possible that another window will receive a
1242          * WM_MOUSEMOVE and call TrackMouseEvent before TrackMouseEventProc is
1243          * called. In such a situation post the WM_MOUSELEAVE now */
1244         if (tracking_info.tme.dwFlags & TME_LEAVE && tracking_info.tme.hwndTrack != NULL)
1245             check_mouse_leave(hwnd, hittest);
1246
1247         if (timer)
1248         {
1249             KillSystemTimer(tracking_info.tme.hwndTrack, timer);
1250             timer = 0;
1251             tracking_info.tme.hwndTrack = 0;
1252             tracking_info.tme.dwFlags = 0;
1253             tracking_info.tme.dwHoverTime = 0;
1254         }
1255
1256         if (ptme->hwndTrack == hwnd)
1257         {
1258             /* Adding new mouse event to the tracking list */
1259             tracking_info.tme = *ptme;
1260             tracking_info.tme.dwHoverTime = hover_time;
1261
1262             /* Initialize HoverInfo variables even if not hover tracking */
1263             tracking_info.pos = pos;
1264
1265             timer = SetSystemTimer(tracking_info.tme.hwndTrack, (UINT_PTR)&tracking_info.tme, hover_time, TrackMouseEventProc);
1266         }
1267     }
1268
1269     return TRUE;
1270 }
1271
1272 /***********************************************************************
1273  * GetMouseMovePointsEx [USER32]
1274  *
1275  * RETURNS
1276  *     Success: count of point set in the buffer
1277  *     Failure: -1
1278  */
1279 int WINAPI GetMouseMovePointsEx(UINT size, LPMOUSEMOVEPOINT ptin, LPMOUSEMOVEPOINT ptout, int count, DWORD res) {
1280
1281     if((size != sizeof(MOUSEMOVEPOINT)) || (count < 0) || (count > 64)) {
1282         SetLastError(ERROR_INVALID_PARAMETER);
1283         return -1;
1284     }
1285
1286     if(!ptin || (!ptout && count)) {
1287         SetLastError(ERROR_NOACCESS);
1288         return -1;
1289     }
1290
1291     FIXME("(%d %p %p %d %d) stub\n", size, ptin, ptout, count, res);
1292
1293     SetLastError(ERROR_POINT_NOT_FOUND);
1294     return -1;
1295 }