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

+ added the win16api non-client window area management constants and types

Browse Source 
git-svn-id: trunk@31780 -
This commit is contained in:
nickysn 2015-09-23 12:14:28 +00:00
parent 22f2a15780
commit cf110e6e77
2 changed files with 65 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/win16/win31.pp
View File

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

44
rtl/win16/wintypes.inc
View File

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