+ added the win16api brush gdi functions

git-svn-id: trunk@31617 -

rtl/win16/win31.pp

@@ -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.

rtl/win16/winprocsh.inc

@@ -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';

rtl/win16/wintypes.inc

@@ -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;