Browse Source

+ added the NilEnhancedKeyEvent const (equivalent to the value 0 of TKeyEvent)

git-svn-id: branches/unicodekvm@40260 -
nickysn 6 years ago
parent
commit
1d2414a2b8
1 changed files with 10 additions and 1 deletions
  1. 10 1
      packages/rtl-console/src/inc/keybrdh.inc

+ 10 - 1
packages/rtl-console/src/inc/keybrdh.inc

@@ -62,8 +62,17 @@ type
     ShiftState, Flags: Byte;
     ShiftState, Flags: Byte;
   end;
   end;
 
 
-{ System independent function key codes }
 const
 const
+{ The Nil value for the enhanced key event }
+  NilEnhancedKeyEvent: TEnhancedKeyEvent = (
+    VirtualKeyCode: 0;
+    VirtualScanCode: 0;
+    UnicodeChar: #0;
+    AsciiChar: #0;
+    ShiftState: 0;
+    Flags: 0;
+  );
+{ System independent function key codes }
   kbdF1        = $FF01;
   kbdF1        = $FF01;
   kbdF2        = $FF02;
   kbdF2        = $FF02;
   kbdF3        = $FF03;
   kbdF3        = $FF03;