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

+ added the win16api main window support functions

Browse Source 
git-svn-id: trunk@31737 -
This commit is contained in:
nickysn 2015-09-17 13:55:33 +00:00
parent d62c342b9c
commit 2dffffb66d
2 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/win16/winprocsh.inc
View File

@ -873,3 +873,23 @@ function DefWindowProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM):
function CallWindowProc(wndprcPrev: WNDPROC; hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER'; function CallWindowProc(wndprcPrev: WNDPROC; hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER';
function CallWindowProc(wndprcPrev: TFarProc; hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER'; function CallWindowProc(wndprcPrev: TFarProc; hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER';
{ Main window support }
procedure AdjustWindowRect(lprc: LPRECT; dwStyle: DWORD; fMenu: BOOL); external 'USER';
procedure AdjustWindowRectEx(lprc: LPRECT; dwStyle: DWORD; fMenu: BOOL; dwExStyle: DWORD); external 'USER';
{$ifdef VAR_PARAMS_ARE_FAR}
procedure AdjustWindowRect(var rc: RECT; dwStyle: DWORD; fMenu: BOOL); external 'USER';
procedure AdjustWindowRectEx(var rc: RECT; dwStyle: DWORD; fMenu: BOOL; dwExStyle: DWORD); external 'USER';
{$endif}
function FlashWindow(hwnd: HWND; fInvert: BOOL): BOOL; external 'USER';
procedure ShowOwnedPopups(hwnd: HWND; fShow: BOOL); external 'USER';
{ Obsolete functions }
function OpenIcon(hwnd: HWND): BOOL; external 'USER';
procedure CloseWindow(hwnd: HWND); external 'USER';
function AnyPopup: BOOL; external 'USER';
function IsIconic(hwnd: HWND): BOOL; external 'USER';
function IsZoomed(hwnd: HWND): BOOL; external 'USER';

21
rtl/win16/wintypes.inc
View File

@ -1596,3 +1596,24 @@ const
SIZEFULLSCREEN = SIZE_MAXIMIZED; SIZEFULLSCREEN = SIZE_MAXIMIZED;
SIZEZOOMSHOW = SIZE_MAXSHOW; SIZEZOOMSHOW = SIZE_MAXSHOW;
SIZEZOOMHIDE = SIZE_MAXHIDE; SIZEZOOMHIDE = SIZE_MAXHIDE;
{ Main window support }
WM_QUERYOPEN = $0013;
WM_CLOSE = $0010;
type
{ Struct pointed to by WM_GETMINMAXINFO lParam }
PMINMAXINFO = ^MINMAXINFO;
LPMINMAXINFO = ^MINMAXINFO; far;
MINMAXINFO = record
ptReserved: POINT;
ptMaxSize: POINT;
ptMaxPosition: POINT;
ptMinTrackSize: POINT;
ptMaxTrackSize: POINT;
end;
TMinMaxInfo = MINMAXINFO;
const
WM_GETMINMAXINFO = $0024;