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

prevent ignoring wrong character (bug #1113)

Browse Source 
git-svn-id: trunk@7563 -
This commit is contained in:
micha 2005-08-24 21:10:27 +00:00
parent 18a6999481
commit 3fc488b817
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1510,6 +1510,10 @@ Begin
and (WindowInfo <> @DefaultWindowInfo) and (WindowInfo <> @DefaultWindowInfo)
and (PLMsg^.Result <> 0) then and (PLMsg^.Result <> 0) then
WindowInfo^.ignoreNextChar := true; WindowInfo^.ignoreNextChar := true;
// stop ignoring if KEYUP has come by (not all keys generate CHAR)
if ((Msg = WM_KEYUP) or (Msg = WM_SYSKEYUP))
and (WindowInfo <> @DefaultWindowInfo) then
WindowInfo^.ignoreNextChar := false;
{ LMMouseEvent and LMInsertText have no Result field } { LMMouseEvent and LMInsertText have no Result field }