Bladeren bron

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

git-svn-id: branches/unicodekvm@40298 -
nickysn 7 jaren geleden
bovenliggende
commit
d681d51e38
1 gewijzigde bestanden met toevoegingen van 15 en 0 verwijderingen
  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 }