paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Forgot to remove the tpoint stuff.

Browse Source
This commit is contained in:
marco 2000-04-22 19:51:08 +00:00
parent 796dd36a1f
commit 1ea5a1824e
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/windows.pp
View File

@ -75,13 +75,16 @@ function SystemTimeToFileTime(const lSystemTime:tSYSTEMTIME;var FileTime:tFILETI
function ExtTextOut(_para1:HDC; _para2:longint; _para3:longint; _para4:UINT; _para5:pRECT; function ExtTextOut(_para1:HDC; _para2:longint; _para3:longint; _para4:UINT; _para5:pRECT;
_para6:lpcstr; _para7:UINT; _para8:pointer):WINBOOL; external 'gdi32' name 'ExtTextOutA'; _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 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. end.
{ {
$Log$ $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) * some redef fixes (for lazarus mwedit component)
Revision 1.8 2000/03/19 20:30:27 marco Revision 1.8 2000/03/19 20:30:27 marco

7
rtl/win32/wininc/redef.inc
View File

@ -111,11 +111,14 @@ function ExtTextOut(_para1:HDC; _para2:longint; _para3:longint; _para4:UINT; _pa
_para6:lpcstr; _para7:UINT; _para8:pointer):WINBOOL; _para6:lpcstr; _para7:UINT; _para8:pointer):WINBOOL;
function SetScrollInfo(_para1:HWND; _para2:longint;const _para3:TSCROLLINFO; _para4:WINBOOL):longint; 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$ $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) * some redef fixes (for lazarus mwedit component)
Revision 1.4 2000/03/19 20:29:06 marco Revision 1.4 2000/03/19 20:29:06 marco