From 34b2fa27f509d210668625dfb9b25d36ac7f6c34 Mon Sep 17 00:00:00 2001 From: Margers Date: Mon, 30 Jun 2025 06:23:26 +0000 Subject: [PATCH] Exposes in interface ConvertToLegacyKeyEvent. --- packages/rtl-console/src/inc/keybrdh.inc | 3 +++ 1 file changed, 3 insertions(+) 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) }