Browse Source

+ introduced TEnhancedShiftState. Not used yet, but will eventually be used inside TEnhancedKeyEvent.

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

+ 15 - 0
packages/rtl-console/src/inc/keybrdh.inc

@@ -54,6 +54,21 @@ type
   dependent. System dependent constants may be defined to cover those, with
   dependent. System dependent constants may be defined to cover those, with
   possibily having the same name (but different value). }
   possibily having the same name (but different value). }
 
 
+  TEnhancedShiftState = set of (
+    essLeftShift,
+    essRightShift,
+    essLeftCtrl,
+    essRightCtrl,
+    essLeftAlt,
+    essRightAlt,
+    essCapsLockPressed,
+    essCapsLockOn,
+    essNumLockPressed,
+    essNumLockOn,
+    essScrollLockPressed,
+    essScrollLockOn
+  );
+
   TEnhancedKeyEvent = record
   TEnhancedKeyEvent = record
     VirtualKeyCode: Word;    { device-independent identifier of the key }
     VirtualKeyCode: Word;    { device-independent identifier of the key }
     VirtualScanCode: Word;   { device-dependent value, generated by the keyboard }
     VirtualScanCode: Word;   { device-dependent value, generated by the keyboard }