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

lcl: win32: ignore keyup without keydown at program start. issue #30836

Browse Source 
git-svn-id: trunk@53324 -
This commit is contained in:
ondrej 2016-11-09 08:17:42 +00:00
parent e2c21deb0f
commit d725d7f542
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32callback.inc
View File

@ -1955,6 +1955,8 @@ begin
end; end;
IgnoreNextCharWindow := 0; IgnoreNextCharWindow := 0;
end; end;
if IgnoreKeyUp and (Msg = WM_KEYUP) then
Exit(1);
case Msg of case Msg of
WM_NULL: WM_NULL:
@ -2155,6 +2157,7 @@ begin
DoMsgKeyDownUp(CN_KEYDOWN, Result); DoMsgKeyDownUp(CN_KEYDOWN, Result);
WindowInfo^.IMEComposed:=False; WindowInfo^.IMEComposed:=False;
IgnoreNextCharWindow := Window; IgnoreNextCharWindow := Window;
IgnoreKeyUp := False;
end; end;
WM_KEYUP: WM_KEYUP:
begin begin

1
lcl/interfaces/win32/win32int.pp
View File

@ -271,6 +271,7 @@ var
LastMouse: TLastMouseInfo; LastMouse: TLastMouseInfo;
ComboBoxHandleSizeWindow: HWND = 0; ComboBoxHandleSizeWindow: HWND = 0;
IgnoreNextCharWindow: HWND = 0; // ignore next WM_(SYS)CHAR message IgnoreNextCharWindow: HWND = 0; // ignore next WM_(SYS)CHAR message
IgnoreKeyUp: Boolean = True; // ignore KeyUp after application start; issue #30836
// set to true, if we are redirecting a WM_MOUSEWHEEL message, to prevent recursion // set to true, if we are redirecting a WM_MOUSEWHEEL message, to prevent recursion
InMouseWheelRedirection: boolean = false; InMouseWheelRedirection: boolean = false;
OnClipBoardRequest: TClipboardRequestEvent; OnClipBoardRequest: TClipboardRequestEvent;