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

+ added the win16api brush gdi functions

Browse Source 
git-svn-id: trunk@31617 -
This commit is contained in:
nickysn 2015-09-12 12:46:45 +00:00
parent c0a63ea0ab
commit 5738869120
3 changed files with 64 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win16/win31.pp
View File

@ -258,6 +258,9 @@ function GetViewportOrgEx(hdc: HDC; lpPoint: LPPOINT): BOOL; external 'GDI';
function OffsetViewportOrgEx(hdc: HDC; nX, nY: SmallInt; lpPoint: LPPOINT): BOOL; external 'GDI';
function ScaleViewportExtEx(hdc: HDC; nXnum, nXdenom, nYnum, nYdenom: SmallInt; lpSize: LPSIZE): BOOL; external 'GDI';
{ Brush support }
function GetBrushOrgEx(hDC: HDC; lpPoint: LPPOINT): BOOL; external 'GDI';
implementation
end.

14
rtl/win16/winprocsh.inc
View File

@ -378,3 +378,17 @@ function CreatePenIndirect(lplgpn: LPLOGPEN): HPEN; external 'GDI';
{$ifdef VAR_PARAMS_ARE_FAR}
function CreatePenIndirect(var lgpn: LOGPEN): HPEN; external 'GDI';
{$endif}
{ Brush support }
function CreateSolidBrush(clrref: COLORREF): HBRUSH; external 'GDI';
function CreateHatchBrush(fnStyle: SmallInt; clrref: COLORREF): HBRUSH; external 'GDI';
function CreatePatternBrush(hbmp: HBITMAP): HBRUSH; external 'GDI';
function CreateDIBPatternBrush(hglbDIBPacked: HGLOBAL; fnColorSpec: UINT): HBRUSH; external 'GDI';
function CreateBrushIndirect(lplb: LPLOGBRUSH): HBRUSH; external 'GDI';
{$ifdef VAR_PARAMS_ARE_FAR}
function CreateBrushIndirect(var lb: LOGBRUSH): HBRUSH; external 'GDI';
{$endif}
function SetBrushOrg(hdc: HDC; nXOrg, nYOrg: SmallInt): DWORD; external 'GDI';
function GetBrushOrg(hdc: HDC): DWORD; external 'GDI';

47
rtl/win16/wintypes.inc
View File

@ -569,3 +569,50 @@ const
WHITE_PEN = 6;
BLACK_PEN = 7;
NULL_PEN = 8;
{ Brush support }
{ Brush Styles }
BS_SOLID = 0;
BS_NULL = 1;
BS_HOLLOW = BS_NULL;
BS_HATCHED = 2;
BS_PATTERN = 3;
BS_INDEXED = 4;
BS_DIBPATTERN = 5;
{ Hatch Styles }
HS_HORIZONTAL = 0;
HS_VERTICAL = 1;
HS_FDIAGONAL = 2;
HS_BDIAGONAL = 3;
HS_CROSS = 4;
HS_DIAGCROSS = 5;
{ Logical Brush (or Pattern) }
type
PLOGBRUSH = ^LOGBRUSH;
NPLOGBRUSH = ^LOGBRUSH; near;
LPLOGBRUSH = ^LOGBRUSH; far;
LOGBRUSH = record
lbStyle: UINT;
lbColor: COLORREF;
lbHatch: SmallInt;
end;
TLogBrush = LOGBRUSH;
PPATTERN = ^PATTERN;
NPPATTERN = ^PATTERN; near;
LPPATTERN = ^PATTERN; far;
PATTERN = LOGBRUSH;
TPattern = PATTERN;
{ Stock brushes for use with GetStockObject() }
const
WHITE_BRUSH = 0;
LTGRAY_BRUSH = 1;
GRAY_BRUSH = 2;
DKGRAY_BRUSH = 3;
BLACK_BRUSH = 4;
NULL_BRUSH = 5;
HOLLOW_BRUSH = NULL_BRUSH;