add unitwindowobject.pas with bewares permission

[lcore.git] / lmessages.pas

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