From 1a1f8efec82814516af4ced4275568b8143dd20d Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 16 Nov 2004 12:21:51 +0000
Subject: [PATCH] fix copy/paste error in key handler.

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

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index e74ab2a470..7037e19a01 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1199,7 +1199,7 @@ Begin
     begin
       // if key not yet processed, let windows process it
       WinProcess := LMKey.CharCode <> VK_UNKNOWN;
-      WParam := LMChar.CharCode;
+      WParam := LMKey.CharCode;
     end;
     
   else
@@ -1455,6 +1455,9 @@ end;
 
 {
   $Log$
+  Revision 1.163  2004/11/16 12:21:51  vincents
+  fix copy/paste error in key handler.
+
   Revision 1.162  2004/11/15 15:52:48  vincents
   fix crash when dropping down a owner drawn combobox