paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 23:24:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the win16api pen support functions

Browse Source 
git-svn-id: trunk@31616 -
This commit is contained in:
nickysn 2015-09-12 12:27:54 +00:00
parent 1181eb0ddb
commit c0a63ea0ab
2 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win16/winprocsh.inc
View File

@ -370,3 +370,11 @@ function UnrealizeObject(hgdiobj: HGDIOBJ): BOOL; external 'GDI';
function EnumObjects(hdc: HDC; fnObjectType: SmallInt; goenmprc: GOBJENUMPROC; lParam: LPARAM): SmallInt; external 'GDI';
function EnumObjects(hdc: HDC; fnObjectType: SmallInt; goenmprc: FARPROC; lParam: LPARAM): SmallInt; external 'GDI';
{ Pen support }
function CreatePen(fnPenStyle, nWidth: SmallInt; clrref: COLORREF): HPEN; external 'GDI';
function CreatePenIndirect(lplgpn: LPLOGPEN): HPEN; external 'GDI';
{$ifdef VAR_PARAMS_ARE_FAR}
function CreatePenIndirect(var lgpn: LOGPEN): HPEN; external 'GDI';
{$endif}

29
rtl/win16/wintypes.inc
View File

@ -540,3 +540,32 @@ const
{ Object types for EnumObjects() }
OBJ_PEN = 1;
OBJ_BRUSH = 2;
{ Pen support }
{ Logical Pen }
type
PLOGPEN = ^LOGPEN;
NPLOGPEN = ^LOGPEN; near;
LPLOGPEN = ^LOGPEN; far;
LOGPEN = record
lopnStyle: UINT;
lopnWidth: POINT;
lopnColor: COLORREF;
end;
TLogPen = LOGPEN;
{ Pen Styles }
const
PS_SOLID = 0;
PS_DASH = 1;
PS_DOT = 2;
PS_DASHDOT = 3;
PS_DASHDOTDOT = 4;
PS_NULL = 5;
PS_INSIDEFRAME = 6;
{ Stock pens for use with GetStockObject(); }
WHITE_PEN = 6;
BLACK_PEN = 7;
NULL_PEN = 8;