+ switch the win32/win64 keyboard unit to use enhanced key events (they are

  converted to legacy key events by the generic converter in keyboard.inc)

git-svn-id: branches/unicodekvm@40296 -

packages/rtl-console/src/win/keyboard.pp

@@ -15,6 +15,7 @@
  **********************************************************************}
 unit Keyboard;
 interface
+{$define FPC_USE_ENHANCED_KEY_EVENTS}
 {$ifdef DEBUG}
 uses
   windows;
@@ -1050,6 +1051,19 @@ begin
 end;
 
 Const
+{$ifdef FPC_USE_ENHANCED_KEY_EVENTS}
+  SysKeyboardDriver : TKeyboardDriver = (
+    InitDriver : @SysInitKeyBoard;
+    DoneDriver : @SysDoneKeyBoard;
+    GetKeyevent : Nil;
+    PollKeyEvent : Nil;
+    GetShiftState : @SysGetShiftState;
+    TranslateKeyEvent : @SysTranslateKeyEvent;
+    TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : @SysGetEnhancedKeyEvent;
+    PollEnhancedKeyEvent : @SysPollEnhancedKeyEvent;
+  );
+{$else FPC_USE_ENHANCED_KEY_EVENTS}
   SysKeyboardDriver : TKeyboardDriver = (
     InitDriver : @SysInitKeyBoard;
     DoneDriver : @SysDoneKeyBoard;
@@ -1061,6 +1075,7 @@ Const
     GetEnhancedKeyEvent : Nil;
     PollEnhancedKeyEvent : Nil;
   );
+{$endif FPC_USE_ENHANCED_KEY_EVENTS}
 
 
 begin