+ added GetEnhancedKeyEvent and PollEnhancedKeyEvent to TKeyboardDriver

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

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

@@ -620,6 +620,8 @@ const
 //    TranslateKeyEvent : @SysTranslateKeyEvent;
     TranslateKeyEvent : Nil;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 

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

@@ -68,6 +68,8 @@ Const
     GetShiftState : @SysGetShiftState;
     TranslateKeyEvent : Nil;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 begin

packages/rtl-console/src/inc/keybrdh.inc

@@ -143,6 +143,8 @@ Type
     GetShiftState : Function : Byte;
     TranslateKeyEvent : Function (KeyEvent: TKeyEvent): TKeyEvent;
     TranslateKeyEventUniCode : Function (KeyEvent: TKeyEvent): TKeyEvent;
+    GetEnhancedKeyEvent : Function : TEnhancedKeyEvent;
+    PollEnhancedKeyEvent : Function : TEnhancedKeyEvent;
   end;
 
 procedure InitKeyboard;

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

@@ -86,6 +86,8 @@ Const
     GetShiftState : @SysGetShiftState;
     TranslateKeyEvent : Nil;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 begin

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

@@ -83,6 +83,8 @@ Const
       GetShiftState : @SysGetShiftState;
       TranslateKeyEvent : Nil;
       TranslateKeyEventUnicode : Nil;
+      GetEnhancedKeyEvent : Nil;
+      PollEnhancedKeyEvent : Nil;
     );
 
 begin

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

@@ -125,6 +125,8 @@ Const
       GetShiftState : @SysGetShiftState;
       TranslateKeyEvent : nil;  //@SysTranslateKeyEvent;
       TranslateKeyEventUnicode : Nil;
+      GetEnhancedKeyEvent : Nil;
+      PollEnhancedKeyEvent : Nil;
     );
 
 begin

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

@@ -120,6 +120,8 @@ Const
     GetShiftState : @SysGetShiftState;
     TranslateKeyEvent : Nil;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 

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

@@ -1748,6 +1748,8 @@ const
     GetShiftState : @SysGetShiftState;
     TranslateKeyEvent : Nil;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 begin

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

@@ -876,6 +876,8 @@ Const
     GetShiftState : @SysGetShiftState;
     TranslateKeyEvent : @SysTranslateKeyEvent;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 

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

@@ -392,6 +392,8 @@ Const
     GetShiftState : @SysGetShiftState;
     TranslateKeyEvent : Nil;
     TranslateKeyEventUnicode : Nil;
+    GetEnhancedKeyEvent : Nil;
+    PollEnhancedKeyEvent : Nil;
   );
 
 begin