+ added overlaoded PeekMessage fundtion for delphi compatibility

rtl/win32/wininc/ascdef.inc

@@ -336,6 +336,8 @@ uses
   function DispatchMessage(var lpMsg:MSG):LONG;
 
   function PeekMessage(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
+  { delphi compatibility }
+  function PeekMessage(VAR Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
 
   function SendMessage(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;
 
@@ -1217,6 +1219,8 @@ uses
   function DispatchMessage(var lpMsg:MSG):LONG; external 'user32' name 'DispatchMessageA';
 
   function PeekMessage(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageA';
+  { delphi compatibility }
+  function PeekMessage(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageA';
 
   function SendMessage(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; external 'user32' name 'SendMessageA';
 
@@ -1838,7 +1842,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.6  2000-02-09 16:59:35  peter
+  Revision 1.7  2000-03-20 23:44:43  alex
+   + added overlaoded PeekMessage fundtion for delphi compatibility
+
+  Revision 1.6  2000/02/09 16:59:35  peter
     * truncated log
 
   Revision 1.5  2000/01/07 16:41:53  daniel

rtl/win32/wininc/ascfun.inc

@@ -336,6 +336,8 @@ uses
   function DispatchMessageA(var lpMsg:MSG):LONG;
 
   function PeekMessageA(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
+  { delphi compatibility }
+  function PeekMessageA(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
 
   function SendMessageA(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;
 
@@ -1209,6 +1211,8 @@ uses
   function DispatchMessageA(var lpMsg:MSG):LONG; external 'user32' name 'DispatchMessageA';
 
   function PeekMessageA(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageA';
+  { delphi compatibility }
+  function PeekMessageA(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageA';
 
   function SendMessageA(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; external 'user32' name 'SendMessageA';
 
@@ -1822,7 +1826,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.4  2000-02-09 16:59:35  peter
+  Revision 1.5  2000-03-20 23:44:43  alex
+   + added overlaoded PeekMessage fundtion for delphi compatibility
+
+  Revision 1.4  2000/02/09 16:59:35  peter
     * truncated log
 
   Revision 1.3  2000/01/07 16:41:54  daniel

rtl/win32/wininc/unidef.inc

@@ -342,6 +342,8 @@ uses
   function DispatchMessage(var lpMsg:MSG):LONG;
 
   function PeekMessage(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
+  { delphi compatibility }
+  function PeekMessage(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
 
   function SendMessage(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;
 
@@ -1222,6 +1224,8 @@ uses
   function DispatchMessage(var lpMsg:MSG):LONG; external 'user32' name 'DispatchMessageW';
 
   function PeekMessage(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageW';
+  { delphi compatibility }
+  function PeekMessage(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageW';
 
   function SendMessage(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; external 'user32' name 'SendMessageW';
 
@@ -1837,7 +1841,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.4  2000-02-09 16:59:37  peter
+  Revision 1.5  2000-03-20 23:44:43  alex
+   + added overlaoded PeekMessage fundtion for delphi compatibility
+
+  Revision 1.4  2000/02/09 16:59:37  peter
     * truncated log
 
   Revision 1.3  2000/01/07 16:41:56  daniel

rtl/win32/wininc/unifun.inc

@@ -342,6 +342,8 @@ uses
   function DispatchMessageW(var lpMsg:MSG):LONG;
 
   function PeekMessageW(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
+  { delphi compatibility }
+  function PeekMessageW(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL;
 
   function SendMessageW(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;
 
@@ -1222,6 +1224,8 @@ uses
   function DispatchMessageW(var lpMsg:MSG):LONG; external 'user32' name 'DispatchMessageW';
 
   function PeekMessageW(lpMsg:LPMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageW';
+  { delphi compatibility }
+  function PeekMessageW(var Msg:TMSG; hWnd:HWND; wMsgFilterMin:UINT; wMsgFilterMax:UINT; wRemoveMsg:UINT):WINBOOL; external 'user32' name 'PeekMessageW';
 
   function SendMessageW(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; external 'user32' name 'SendMessageW';
 
@@ -1837,7 +1841,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.4  2000-02-09 16:59:37  peter
+  Revision 1.5  2000-03-20 23:44:44  alex
+   + added overlaoded PeekMessage fundtion for delphi compatibility
+
+  Revision 1.4  2000/02/09 16:59:37  peter
     * truncated log
 
   Revision 1.3  2000/01/07 16:41:57  daniel