From 761d18c70e4e766e9ce1bc9138369e6e917bab20 Mon Sep 17 00:00:00 2001 From: plugwash Date: Tue, 17 Feb 2009 00:51:40 +0000 Subject: [PATCH] fix a bug in peekmessage git-svn-id: file:///svnroot/lcore/trunk@42 b1de8a11-f9be-4011-bde0-cc7ace90066a --- lmessages.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.30.2