Преглед изворни кода

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

git-svn-id: branches/unicodekvm@40298 -
nickysn пре 7 година
родитељ
комит
d681d51e38
1 измењених фајлова са 15 додато и 0 уклоњено
  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 }