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

+ added the win16api help support functions

Browse Source 
git-svn-id: trunk@31821 -
This commit is contained in:
nickysn 2015-09-24 16:06:55 +00:00
parent c2a303b1da
commit 926d66b9f5
2 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win16/winprocsh.inc
View File

@ -1233,3 +1233,7 @@ function UnhookWindowsHook(idHook: SmallInt; hkprc: TFarProc): BOOL; external 'U
{ Journalling support } { Journalling support }
function EnableHardwareInput(fEnableInput: BOOL): BOOL; external 'USER'; function EnableHardwareInput(fEnableInput: BOOL): BOOL; external 'USER';
{ Help support }
function WinHelp(hwndMain: HWND; lpszHelp: LPCSTR; usCommand: UINT; ulData: DWORD): BOOL; external 'USER';

43
rtl/win16/wintypes.inc
View File

@ -2683,3 +2683,46 @@ type
time: DWORD; time: DWORD;
end; end;
TEventMsg = EVENTMSG; TEventMsg = EVENTMSG;
{ Help support }
const
{ WinHelp() commands }
HELP_CONTEXT = $0001;
HELP_QUIT = $0002;
HELP_INDEX = $0003;
HELP_CONTENTS = $0003;
HELP_HELPONHELP = $0004;
HELP_SETINDEX = $0005;
HELP_SETCONTENTS = $0005;
HELP_CONTEXTPOPUP = $0008;
HELP_FORCEFILE = $0009;
HELP_KEY = $0101;
HELP_COMMAND = $0102;
HELP_PARTIALKEY = $0105;
HELP_MULTIKEY = $0201;
HELP_SETWINPOS = $0203;
type
PMULTIKEYHELP = ^MULTIKEYHELP;
LPMULTIKEYHELP = ^MULTIKEYHELP; far;
MULTIKEYHELP = record
mkSize: UINT;
mkKeylist: BYTE;
szKeyphrase: array [0..0] of BYTE;
end;
TMultiKeyHelp = MULTIKEYHELP;
PHELPWININFO = ^HELPWININFO;
NPHELPWININFO = ^HELPWININFO; near;
LPHELPWININFO = ^HELPWININFO; far;
HELPWININFO = record
wStructSize: SmallInt;
x: SmallInt;
y: SmallInt;
dx: SmallInt;
dy: SmallInt;
wMax: SmallInt;
rgchMember: array [0..1] of char;
end;
THelpWinInfo = HELPWININFO;