paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 18:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the win16api rectangle functions

Browse Source 
git-svn-id: trunk@31713 -
This commit is contained in:
nickysn 2015-09-16 13:59:38 +00:00
parent f2c8824963
commit 07879e64ca
2 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win16/win31.pp
View File

@ -612,6 +612,12 @@ function SpoolFile(lpszPrinter, lpszPort, lpszJob, lpszFile: LPSTR): HANDLE; ext
{ System Parameters support }
function SystemParametersInfo(uAction, uParam: UINT; lpvParam: FarPointer; fuWinIni: UINT): BOOL; external 'USER';
{ Rectangle support }
function SubtractRect(lprcDest: LPRECT; lprcSource1, lprcSource2: LPRECT): BOOL; external 'USER';
{$ifdef VAR_PARAMS_ARE_FAR}
function SubtractRect(var rcDest: RECT; var rcSource1, rcSource2: RECT): BOOL; external 'USER';
{$endif}
implementation
end.

38
rtl/win16/winprocsh.inc
View File

@ -707,3 +707,41 @@ function GetSystemMetrics(nIndex: SmallInt): SmallInt; external 'USER';
function GetDoubleClickTime: UINT; external 'USER';
procedure SetDoubleClickTime(uInterval: UINT); external 'USER';
{ Rectangle support }
procedure SetRect(lprc: LPRECT; nLeft, nTop, nRight, nBottom: SmallInt); external 'USER';
procedure SetRectEmpty(lprc: LPRECT); external 'USER';
procedure CopyRect(lprcDst: LPRECT; lprcSrc: LPRECT); external 'USER';
function IsRectEmpty(lprc: LPRECT): BOOL; external 'USER';
function EqualRect(lprc1, lprc2: LPRECT): BOOL; external 'USER';
function IntersectRect(lprcDest: LPRECT; lprcSrc1, lprcSrc2: LPRECT): BOOL; external 'USER';
function UnionRect(lprcDest: LPRECT; lprcSrc1, lprcSrc2: LPRECT): BOOL; external 'USER';
procedure OffsetRect(lprc: LPRECT; x, y: SmallInt); external 'USER';
procedure InflateRect(lprc: LPRECT; xAmt, yAmt: SmallInt); external 'USER';
function PtInRect(lprc: LPRECT; pt: POINT): BOOL; external 'USER';
{$ifdef VAR_PARAMS_ARE_FAR}
procedure SetRect(var rc: RECT; nLeft, nTop, nRight, nBottom: SmallInt); external 'USER';
procedure SetRectEmpty(var rc: RECT); external 'USER';
procedure CopyRect(var rcDst: RECT; var rcSrc: RECT); external 'USER';
function IsRectEmpty(var rc: RECT): BOOL; external 'USER';
function EqualRect(var rc1, rc2: RECT): BOOL; external 'USER';
function IntersectRect(var rcDest: RECT; var rcSrc1, rcSrc2: RECT): BOOL; external 'USER';
function UnionRect(var rcDest: RECT; var rcSrc1, rcSrc2: RECT): BOOL; external 'USER';
procedure OffsetRect(var rc: RECT; x, y: SmallInt); external 'USER';
procedure InflateRect(var rc: RECT; xAmt, yAmt: SmallInt); external 'USER';
function PtInRect(var rc: RECT; pt: POINT): BOOL; external 'USER';
{$endif}