From fa8f6ffae0776e860c6cdc1a8285266dbb6c82d4 Mon Sep 17 00:00:00 2001 From: Juha Date: Sun, 16 Apr 2023 17:50:30 +0300 Subject: [PATCH] LCL: Make AUTF8Char a var parameter in function LCLSendUTF8KeyPress. Issue #40211, patch by Alexey Torgashin. --- lcl/lclmessageglue.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/lclmessageglue.pas b/lcl/lclmessageglue.pas index 254f86f9b4..56a50bcdbb 100644 --- a/lcl/lclmessageglue.pas +++ b/lcl/lclmessageglue.pas @@ -66,7 +66,7 @@ function LCLSendEraseBackgroundMsg(const Target: TWinControl;const DC: HDC): Pt function LCLSendKeyDownEvent(const Target: TControl; var CharCode: Word; KeyData: PtrInt; BeforeEvent, IsSysKey: Boolean): PtrInt; function LCLSendKeyUpEvent(const Target: TControl; var CharCode: Word; KeyData: PtrInt; BeforeEvent, IsSysKey: Boolean): PtrInt; function LCLSendCharEvent(const Target: TControl; var CharCode: Word; KeyData: PtrInt; BeforeEvent, IsSysKey, ANotifyUserInput: Boolean): PtrInt; -function LCLSendUTF8KeyPress(const Target: TWinControl; AUTF8Char: TUTF8Char; IsSysKey: Boolean): PtrInt; +function LCLSendUTF8KeyPress(const Target: TWinControl; var AUTF8Char: TUTF8Char; IsSysKey: Boolean): PtrInt; function LCLSendTimerMsg(const Target: TControl; TimerID: WParam; TimerProc: LParam): PtrInt; function LCLSendExitMsg(const Target: TControl): PtrInt; function LCLSendCloseQueryMsg(const Target: TControl): PtrInt; @@ -900,7 +900,7 @@ begin if ANotifyUserInput then NotifyApplicationUserInput(Target, Mess.Msg); end; -function LCLSendUTF8KeyPress(const Target: TWinControl; AUTF8Char: TUTF8Char; +function LCLSendUTF8KeyPress(const Target: TWinControl; var AUTF8Char: TUTF8Char; IsSysKey: Boolean): PtrInt; begin {if not IsControlKey then}