+ added the win16api basic gdi types

git-svn-id: trunk@31590 -

rtl/win16/win31.pp

@@ -162,6 +162,17 @@ const
   OBM_RGARROWI    = 32735;
   OBM_LFARROWI    = 32734;
 
+type
+{ GDI typedefs, structures, and functions }
+  PSIZE = ^SIZE;
+  NPSIZE = ^SIZE; near;
+  LPSIZE = ^SIZE; far;
+  SIZE = record
+    cx: SmallInt;
+    cy: SmallInt;
+  end;
+  TSize = SIZE;
+
 function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
 
 procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';

rtl/win16/wintypes.inc

@@ -330,3 +330,36 @@ type
 const
 { WIN.INI Support }
   WM_WININICHANGE = $001A;
+
+type
+{ GDI typedefs, structures, and functions }
+  HDC      = THandle;
+  HGDIOBJ  = THandle;
+  HBITMAP  = THandle;
+  HPEN     = THandle;
+  HBRUSH   = THandle;
+  HRGN     = THandle;
+  HPALETTE = THandle;
+  HFONT    = THandle;
+
+  PRECT = ^RECT;
+  NPRECT = ^RECT; near;
+  LPRECT = ^RECT; far;
+  RECT = record
+    left: SmallInt;
+    top: SmallInt;
+    right: SmallInt;
+    bottom: SmallInt;
+  end;
+  TRect = RECT;
+
+  PPOINT = ^POINT;
+  NPPOINT = ^POINT; near;
+  LPPOINT = ^POINT; far;
+  POINT = record
+    x: SmallInt;
+    y: SmallInt;
+  end;
+  TPoint = POINT;
+
+  MAKEPOINT = POINT;