From 3fc488b817b51a191e3c3024a709a3fcbfffc9c5 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Wed, 24 Aug 2005 21:10:27 +0000
Subject: [PATCH] prevent ignoring wrong character (bug #1113)

git-svn-id: trunk@7563 -
---
 lcl/interfaces/win32/win32callback.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 4eeb27d9ca..040271b7a0 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1510,6 +1510,10 @@ Begin
       and (WindowInfo <> @DefaultWindowInfo) 
       and (PLMsg^.Result <> 0) then
     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 }