git-svn-id: trunk@37674 -
@@ -296,7 +296,7 @@ var
DoingNumChars: Boolean;
DoingNumCode: Byte;
-Function RemapScanCode (ScanCode: byte; CtrlKeyState: byte; keycode:longint): byte;
+Function RemapScanCode (ScanCode: word; CtrlKeyState: dword; keycode:word): byte;
{ Several remappings of scancodes are necessary to comply with what
we get with MSDOS. Special Windows keys, as Alt-Tab, Ctrl-Esc etc.
are excluded }