X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/e27ef2c6aab3a2a8051314bd37bb3b2386775f36..3745aa61ef489e4b143b5c753a006d0613a0297f:/wcore.pas?ds=inline

diff --git a/wcore.pas b/wcore.pas
index d15e803..8b402b5 100755
--- a/wcore.pas
+++ b/wcore.pas
@@ -1,8 +1,3 @@
-{ Copyright (C) 2005 Bas Steendijk and Peter Green
-  For conditions of distribution and use, see copyright notice in zlib_license.txt
-  which is included in the package
-  ----------------------------------------------------------------------------- }
-
 unit wcore;
 
 {
@@ -367,8 +362,9 @@ var
     Msg : TMsg;
 begin
     Result := FALSE;
-    if PeekMessage(Msg, hwndwcore, 0, 0, PM_REMOVE) then begin
+    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
       Result := TRUE;
+      TranslateMessage(MsgRec);
       DispatchMessage(Msg);
     end;
 end;
@@ -380,3 +376,4 @@ end;
 
 
 end.
+