paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Make AUTF8Char a var parameter in function LCLSendUTF8KeyPress. Issue #40211, patch by Alexey Torgashin.

Browse Source
This commit is contained in:
Juha 2023-04-16 17:50:30 +03:00
parent cacdbc65f4
commit fa8f6ffae0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lclmessageglue.pas
View File

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