From: plugwash <plugwash@p10link.net>
Date: Tue, 17 Feb 2009 00:51:40 +0000 (+0000)
Subject: fix a bug in peekmessage
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/761d18c70e4e766e9ce1bc9138369e6e917bab20?hp=5131f0f4f11d06c8d638c798dc1445fa52092510

fix a bug in peekmessage


git-svn-id: file:///svnroot/lcore/trunk@42 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/lmessages.pas b/lmessages.pas
index 9807e42..e17ccfe 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -494,7 +494,7 @@ end;
 
 function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): WINBOOL;
 begin
-  result := getmessageinternal(lpmsg,hwnd,wmsgfiltermin,wmsgfiltermax,PM_REMOVE,true);
+  result := getmessageinternal(lpmsg,hwnd,wmsgfiltermin,wmsgfiltermax,wRemoveMsg,true);
 end;
 
 function SetEvent(hEvent:THevent):WINBOOL;