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
   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
     VirtualKeyCode: Word;    { device-independent identifier of the key }
     VirtualScanCode: Word;   { device-dependent value, generated by the keyboard }