From c4a65fbb5f145657e49d06020b49a1ad127caf9f Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Mon, 22 Aug 2005 15:27:32 +0000
Subject: [PATCH] fix typo, check appropriate message, lmkey for keys

git-svn-id: trunk@7544 -
---
 lcl/interfaces/win32/win32callback.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index a9e1172cf0..02c5990bba 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1417,7 +1417,7 @@ Begin
     CN_KEYDOWN, CN_KEYUP, CN_SYSKEYDOWN, CN_SYSKEYUP:
     begin
       // if key not yet processed, let windows process it
-      WinProcess := (LMKey.CharCode <> VK_UNKNOWN) and (LMChar.Result = 0);
+      WinProcess := (LMKey.CharCode <> VK_UNKNOWN) and (LMKey.Result = 0);
       WParam := LMKey.CharCode;
     end;