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

LCL: TWinControl.DoRemainingKeyUp argument should have TLMKeyUp type, not TLMKeyDown (most likely copy-paste error). All use cases of TWinControl.DoRemainingKeyUp (in WMSysKeyUp and WMKeyUp) are passing TLMKeyUp arguments. Note that both TLMKeyUp and TLMKeyDown are aliases to TLMKey. Patch by Don, issue #40001.

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-11-17 02:05:51 +03:00
parent a4af12ebaf
commit 202b5682ae
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -2192,7 +2192,7 @@ type
procedure DoExit; virtual;
function DoKeyDownBeforeInterface(var Message: TLMKey; IsRecurseCall: Boolean): Boolean;
function DoRemainingKeyDown(var Message: TLMKeyDown): Boolean;
function DoRemainingKeyUp(var Message: TLMKeyDown): Boolean;
function DoRemainingKeyUp(var Message: TLMKeyUp): Boolean;
function DoKeyPress(var Message: TLMKey): Boolean;
function DoUTF8KeyPress(var UTF8Key: TUTF8Char): Boolean; virtual;
function DoKeyUpBeforeInterface(var Message: TLMKey): Boolean;

2
lcl/include/wincontrol.inc
View File

@ -5956,7 +5956,7 @@ begin
end;
end;
function TWinControl.DoRemainingKeyUp(var Message: TLMKeyDown): Boolean;
function TWinControl.DoRemainingKeyUp(var Message: TLMKeyUp): Boolean;
var
ShiftState: TShiftState;
begin