فهرست منبع

+ 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
   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 }