瀏覽代碼

Exposes in interface ConvertToLegacyKeyEvent.

Margers 3 月之前
父節點
當前提交
34b2fa27f5
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      packages/rtl-console/src/inc/keybrdh.inc

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

@@ -297,6 +297,9 @@ function PollEnhancedKeyEvent: TEnhancedKeyEvent;
 { Checks if a keyevent is available, and returns it if one is found. If no
   event is pending, it returns 0 }
 
+function ConvertToLegacyKeyEvent(const KeyEvent: TEnhancedKeyEvent): TKeyEvent;
+{ Converts to legacy key event as it is returned by GetKeyEvent or PollKeyEvent }
+
 function ConvertEnhancedToLegacyShiftState(const ShiftState: TEnhancedShiftState): Byte;
 { Converts an enhanced shift state (as in TEnhancedKeyEvent.ShiftState) to a
   legacy shift state (as returned by GetShiftState or GetKeyEventShiftState) }