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

+ added the win16api message box functions and its related constants

Browse Source 
git-svn-id: trunk@31794 -
This commit is contained in:
nickysn 2015-09-23 16:04:55 +00:00
parent 2a9beafbcf
commit 228b6b7c5c
3 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win16/system.pp
View File

@ -97,8 +97,6 @@ const
{$endif RTLLITE}
procedure MessageBox(hWnd: word; lpText, lpCaption: LPSTR; uType: word);external 'USER';
implementation
const

5
rtl/win16/winprocsh.inc
View File

@ -1126,3 +1126,8 @@ function CreateIcon(hinst: HINST; nWidth, nHeight: SmallInt; bPlanes, bBitsPerPi
function DestroyIcon(hicon: HICON): BOOL; external 'USER';
function DrawIcon(hdc: HDC; x, y: SmallInt; hicon: HICON): BOOL; external 'USER';
{ Message Box support }
function MessageBox(hwndParent: HWND; lpszText, lpszTitle: LPCSTR; fuStyle: UINT): SmallInt; external 'USER';
procedure MessageBeep(uAlert: UINT); external 'USER';

29
rtl/win16/wintypes.inc
View File

@ -2107,3 +2107,32 @@ const
IDI_QUESTION = MAKEINTRESOURCE(32514);
IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
IDI_ASTERISK = MAKEINTRESOURCE(32516);
{ Message Box support }
MB_OK = $0000;
MB_OKCANCEL = $0001;
MB_ABORTRETRYIGNORE = $0002;
MB_YESNOCANCEL = $0003;
MB_YESNO = $0004;
MB_RETRYCANCEL = $0005;
MB_TYPEMASK = $000F;
MB_ICONHAND = $0010;
MB_ICONQUESTION = $0020;
MB_ICONEXCLAMATION = $0030;
MB_ICONASTERISK = $0040;
MB_ICONMASK = $00F0;
MB_ICONINFORMATION = MB_ICONASTERISK;
MB_ICONSTOP = MB_ICONHAND;
MB_DEFBUTTON1 = $0000;
MB_DEFBUTTON2 = $0100;
MB_DEFBUTTON3 = $0200;
MB_DEFMASK = $0F00;
MB_APPLMODAL = $0000;
MB_SYSTEMMODAL = $1000;
MB_TASKMODAL = $2000;
MB_NOFOCUS = $8000;