paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:20:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert fa8f6ffae0. It broke some existing code.

Browse Source
This commit is contained in:
Juha 2023-04-22 18:07:19 +03:00
parent b4eaa9e4ef
commit 3ffa6fe2a1
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; var AUTF8Char: TUTF8Char; IsSysKey: Boolean): PtrInt;
function LCLSendUTF8KeyPress(const Target: TWinControl; 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; var AUTF8Char: TUTF8Char;
function LCLSendUTF8KeyPress(const Target: TWinControl; AUTF8Char: TUTF8Char;
IsSysKey: Boolean): PtrInt;
begin
{if not IsControlKey then}