|
@@ -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) }
|