diff --git a/packages/rtl-console/src/inc/keybrdh.inc b/packages/rtl-console/src/inc/keybrdh.inc index dc0a4c71e3..cd1e46b4d3 100644 --- a/packages/rtl-console/src/inc/keybrdh.inc +++ b/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) }