Browse Source

* Forgot to remove the tpoint stuff.

marco 25 years ago
parent
commit
1ea5a1824e
2 changed files with 11 additions and 5 deletions
  1. 5 2
      rtl/win32/windows.pp
  2. 6 3
      rtl/win32/wininc/redef.inc

+ 5 - 2
rtl/win32/windows.pp

@@ -75,13 +75,16 @@ function SystemTimeToFileTime(const lSystemTime:tSYSTEMTIME;var FileTime:tFILETI
 function ExtTextOut(_para1:HDC; _para2:longint; _para3:longint; _para4:UINT; _para5:pRECT;
              _para6:lpcstr; _para7:UINT; _para8:pointer):WINBOOL; external 'gdi32' name 'ExtTextOutA';
 function SetScrollInfo(_para1:HWND; _para2:longint; const _para3:TSCROLLINFO; _para4:WINBOOL):longint; external 'user32' name 'SetScrollInfo';
-function PtInRect(var lprc:TRECT; pt:TPOINT):WINBOOL; external 'user32' name 'PtInRect';
+// function PtInRect(var lprc:TRECT; pt:TPOINT):WINBOOL; external 'user32' name 'PtInRect';
 
 
 end.
 {
   $Log$
-  Revision 1.9  2000-04-22 17:46:05  marco
+  Revision 1.10  2000-04-22 19:51:08  marco
+   * Forgot to remove the tpoint stuff.
+
+  Revision 1.9  2000/04/22 17:46:05  marco
    * some redef fixes (for lazarus mwedit component)
 
   Revision 1.8  2000/03/19 20:30:27  marco

+ 6 - 3
rtl/win32/wininc/redef.inc

@@ -111,11 +111,14 @@ function ExtTextOut(_para1:HDC; _para2:longint; _para3:longint; _para4:UINT; _pa
              _para6:lpcstr; _para7:UINT; _para8:pointer):WINBOOL;
 
 function SetScrollInfo(_para1:HWND; _para2:longint;const _para3:TSCROLLINFO; _para4:WINBOOL):longint;
-function PtInRect(var lprc:TRECT; pt:TPOINT):WINBOOL;
+{function PtInRect(var lprc:TRECT; pt:TPOINT):WINBOOL;}
 
 {
   $Log$
-  Revision 1.5  2000-04-22 17:46:05  marco
+  Revision 1.6  2000-04-22 19:51:08  marco
+   * Forgot to remove the tpoint stuff.
+
+  Revision 1.5  2000/04/22 17:46:05  marco
    * some redef fixes (for lazarus mwedit component)
 
   Revision 1.4  2000/03/19 20:29:06  marco
@@ -130,4 +133,4 @@ function PtInRect(var lprc:TRECT; pt:TPOINT):WINBOOL;
   Revision 1.1  1999/09/16 13:38:24  peter
     * windows unit include moved to wininc/
 
-}
+}