Browse Source

Exposes in interface ConvertToLegacyKeyEvent.

Margers 1 month ago
parent
commit
34b2fa27f5
1 changed files with 3 additions and 0 deletions
  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) }