Преглед изворни кода

* second part of patch by James Richters from bug #32558 - changes in RemapScanCodes in order to comply to the respective Windows API definitions

git-svn-id: trunk@37674 -
Tomas Hajny пре 7 година
родитељ
комит
9002d22168
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/rtl-console/src/win/crt.pp

+ 1 - 1
packages/rtl-console/src/win/crt.pp

@@ -296,7 +296,7 @@ var
    DoingNumChars: Boolean;
    DoingNumChars: Boolean;
    DoingNumCode: Byte;
    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
   { Several remappings of scancodes are necessary to comply with what
     we get with MSDOS. Special Windows keys, as Alt-Tab, Ctrl-Esc etc.
     we get with MSDOS. Special Windows keys, as Alt-Tab, Ctrl-Esc etc.
     are excluded }
     are excluded }