From cf110e6e77f76c6f5abb01fbffa73edeff5e0aa5 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 23 Sep 2015 12:14:28 +0000
Subject: [PATCH] + added the win16api non-client window area management
 constants and types

git-svn-id: trunk@31780 -
---
 rtl/win16/win31.pp     | 21 ++++++++++++++++++++
 rtl/win16/wintypes.inc | 44 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 65 insertions(+)

diff --git a/rtl/win16/win31.pp b/rtl/win16/win31.pp
index 6af223a76f..8154e7046d 100644
--- a/rtl/win16/win31.pp
+++ b/rtl/win16/win31.pp
@@ -573,6 +573,27 @@ const
   SW_INVALIDATE     = $0002;
   SW_ERASE          = $0004;
 
+{ Non-client window area management }
+{ WM_NCCALCSIZE return flags }
+  WVR_ALIGNTOP    = $0010;
+  WVR_ALIGNLEFT   = $0020;
+  WVR_ALIGNBOTTOM = $0040;
+  WVR_ALIGNRIGHT  = $0080;
+  WVR_HREDRAW     = $0100;
+  WVR_VREDRAW     = $0200;
+  WVR_REDRAW      = WVR_HREDRAW or WVR_VREDRAW;
+  WVR_VALIDRECTS  = $0400;
+
+type
+{ WM_NCCALCSIZE parameter structure }
+  PNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS;
+  LPNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS; far;
+  NCCALCSIZE_PARAMS = record
+    rgrc: array [0..2] of RECT;
+    lppos: LPWINDOWPOS;
+  end;
+  TNCCalcSize_Params = NCCALCSIZE_PARAMS;
+
 function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
 
 procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';
diff --git a/rtl/win16/wintypes.inc b/rtl/win16/wintypes.inc
index 647f48da7d..c53709f326 100644
--- a/rtl/win16/wintypes.inc
+++ b/rtl/win16/wintypes.inc
@@ -1673,3 +1673,47 @@ const
 
   RDW_FRAME           = $0400;
   RDW_NOFRAME         = $0800;
+
+{ Non-client window area management }
+
+  WM_NCPAINT    = $0085;
+
+  WM_NCCALCSIZE = $0083;
+
+type
+{ WM_NCCALCSIZE parameter structure }
+  PNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS;
+  LPNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS; far;
+  NCCALCSIZE_PARAMS = record
+    rgrc: array [0..1] of RECT;
+  end;
+  TNCCalcSize_Params = NCCALCSIZE_PARAMS;
+
+const
+  WM_NCHITTEST  = $0084;
+
+{ WM_NCHITTEST return codes }
+  HTERROR       = (-2);
+  HTTRANSPARENT = (-1);
+  HTNOWHERE     = 0;
+  HTCLIENT      = 1;
+  HTCAPTION     = 2;
+  HTSYSMENU     = 3;
+  HTSIZE        = 4;
+  HTMENU        = 5;
+  HTHSCROLL     = 6;
+  HTVSCROLL     = 7;
+  HTMINBUTTON   = 8;
+  HTMAXBUTTON   = 9;
+  HTLEFT        = 10;
+  HTRIGHT       = 11;
+  HTTOP         = 12;
+  HTTOPLEFT     = 13;
+  HTTOPRIGHT    = 14;
+  HTBOTTOM      = 15;
+  HTBOTTOMLEFT  = 16;
+  HTBOTTOMRIGHT = 17;
+  HTBORDER      = 18;
+  HTGROWBOX     = HTSIZE;
+  HTREDUCE      = HTMINBUTTON;
+  HTZOOM        = HTMAXBUTTON;