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 clipping support functions

Browse Source 
git-svn-id: trunk@31620 -
This commit is contained in:
nickysn 2015-09-12 14:33:27 +00:00
parent 5900db62ce
commit 48a28c1256
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/win16/winprocsh.inc
View File

@ -471,3 +471,21 @@ function GetSystemPaletteEntries(hdc: HDC; iStart, cEntries: UINT; var pe): UINT
function GetSystemPaletteUse(hdc: HDC): UINT; external 'GDI';
function SetSystemPaletteUse(hdc: HDC; fuStatic: UINT): UINT; external 'GDI';
{ Clipping support }
function SelectClipRgn(hdc: HDC; hrgn: HRGN): SmallInt; external 'GDI';
function GetClipBox(hdc: HDC; lprc: LPRECT): SmallInt; external 'GDI';
{$ifdef VAR_PARAMS_ARE_FAR}
function GetClipBox(hdc: HDC; var rc: RECT): SmallInt; external 'GDI';
{$endif}
function IntersectClipRect(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect: SmallInt): SmallInt; external 'GDI';
function OffsetClipRgn(hdc: HDC; nXOffset, nYOffset: SmallInt): SmallInt; external 'GDI';
function ExcludeClipRect(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect: SmallInt): SmallInt; external 'GDI';
function PtVisible(hdc: HDC; nXPos, nYPos: SmallInt): BOOL; external 'GDI';
function RectVisible(hdc: HDC; lprc: LPRECT): BOOL; external 'GDI';
{$ifdef VAR_PARAMS_ARE_FAR}
function RectVisible(hdc: HDC; var rc: RECT): BOOL; external 'GDI';
{$endif}