1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2002 by Yuri Prokushev (prokushev@freemail.ru).
OS/2 Presentation Manager Information Presentation Facility,
Help Manager declarations.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{Warning: This code is alfa. Future versions
of this unit might not be compatible.}
unit pmhelp;
interface
{$MODE OBJFPC}
uses
os2def;
resourcestring
msg_failedtodisplay='Failed to display help panel.';
msg_failedtoload='Failed to load help manager.';
//************************************************************************/
//* HelpSubTable entry structure */
//************************************************************************/
type
HelpSubTable=Word;
PHelpSubTable=^HelpSubTable;
//************************************************************************/
//* HelpTable entry structure */
//* */
//* Pack the structure HELPTABLE so that it is identical in the 32-Bit */
//* and 16-Bit world. We have to do this because the HelpTable can */
//* reside either in memory or in the application's resources. */
//************************************************************************/
type
{$PACKRECORDS 2}
PHelpTable=^HelpTable;
HelpTable=record
idAppWindow: Word;
phstHelpSubTable: PHelpSubTable;
idExtPanel: Word;
End;
//************************************************************************/
//* IPF Initialization Structure used on the */
//* WinCreateHelpInstance() call. */
//************************************************************************/
type
PHelpInit=^HelpInit;
HelpInit=record
cb: cardinal;
ulReturnCode: cardinal;
pszTutorialName: PChar;
phtHelpTable: PHelpTable;
hmodHelpTableModule: cardinal;
hmodAccelActionBarModule: cardinal;
idAccelTable: cardinal;
idActionBar: cardinal;
pszHelpWindowTitle: PChar;
fShowPanelId: cardinal;
pszHelpLibraryName: PChar;
End;
//************************************************************************/
//* Search parent chain indicator for HM_SET_ACTIVE_WINDOW message. */
//************************************************************************/
const
HWnd_Parent = 0;
//************************************************************************/
//* Constants used to define whether user wants to display panel using */
//* panel number or panel name. */
//************************************************************************/
const
HM_ResourceID = 0;
HM_PanelName = 1;
HMPanelType_Number =0;
HMPanelType_Name =1;
//************************************************************************/
//* Constants used to define how the panel IDs are displayed on */
//* help panels. */
//************************************************************************/
const
CMIC_Hide_Panel_ID =$0000;
CMIC_Show_Panel_ID =$0001;
CMIC_Toggle_Panel_ID =$0002;
//************************************************************************/
//* IPF message base. */
//************************************************************************/
const
HM_Msg_Base =$0220;
//************************************************************************/
//* Messages applications can send to the IPF. */
//************************************************************************/
const
HM_Dismiss_Window =HM_Msg_Base+$0001;
HM_Display_Help =HM_Msg_Base+$0002;
HM_Ext_Help =HM_Msg_Base+$0003;
HM_General_Help =HM_Ext_Help;
HM_Set_Active_Window =HM_Msg_Base+$0004;
HM_Load_Help_Table =HM_Msg_Base+$0005;
HM_Create_Help_Table =HM_Msg_Base+$0006;
HM_Set_Help_Window_Title =HM_Msg_Base+$0007;
HM_Set_Show_Panel_ID =HM_Msg_Base+$0008;
HM_Replace_Help_For_Help =HM_Msg_Base+$0009;
HM_Replace_Using_Help =HM_Replace_Help_For_Help;
HM_Help_Index =HM_Msg_Base+$000a;
HM_Help_Contents =HM_Msg_Base+$000b;
HM_Keys_Help =HM_Msg_Base+$000c;
HM_Set_Help_Library_Name =HM_Msg_Base+$000d;
HM_Set_OBJCOM_Window =HM_Msg_Base+$0018;
HM_Upadte_OBJCOM_Window_Chain =HM_Msg_Base+$0019;
HM_Query_DDF_Data =HM_Msg_Base+$001a;
HM_Invalidate_DDF_Data =HM_Msg_Base+$001b;
HM_Query =HM_Msg_Base+$001c;
HM_Set_CoverPage_Size =HM_Msg_Base+$001d;
//************************************************************************/
//* Constants used to query the info from IPF in HM_QUERY message */
//************************************************************************/
//* Hi word in lParam 1 */
const
HMQW_COVERPAGE =$0001;
HMQW_INDEX =$0002;
HMQW_TOC =$0003;
HMQW_SEARCH =$0004;
HMQW_VIEWPAGES =$0005;
HMQW_LIBRARY =$0006;
HMQW_VIEWPORT =$0007;
HMQW_OBJCOM_WINDOW =$0008;
HMQW_INSTANCE =$0009;
HMQW_ACTIVEVIEWPORT =$000a;
CONTROL_SELECTED =$000b;
HMQW_GROUP_VIEWPORT =$00f1;
HMQW_RES_VIEWPORT =$00f2;
USERDATA =$00f3;
//* Lo word in lParam1 of HMQW_VIEWPORT */
HMQVP_NUMBER =$0001;
HMQVP_NAME =$0002;
HMQVP_GROUP =$0003;
//************************************************************************/
//* Predefined Control IDs */
//************************************************************************/
const
CTRL_PREVIOUS_ID =$0001;
CTRL_SEARCH_ID =$0002;
CTRL_PRINT_ID =$0003;
CTRL_INDEX_ID =$0004;
CTRL_CONTENTS_ID =$0005;
CTRL_BACK_ID =$0006;
CTRL_FORWARD_ID =$0007;
CTRL_TUTORIAL_ID =$00FF;
CTRL_USER_ID_BASE =257;
//************************************************************************/
//* Messages the IPF sends to the applications active window */
//* as defined by the IPF. */
//************************************************************************/
const
HM_ERROR =HM_Msg_Base+$000e;
HM_HELPSUBITEM_NOT_FOUND =HM_Msg_Base+$000f;
HM_QUERY_KEYS_HELP =HM_Msg_Base+$0010;
HM_TUTORIAL =HM_Msg_Base+$0011;
HM_EXT_HELP_UNDEFINED =HM_Msg_Base+$0012;
HM_GENERAL_HELP_UNDEFINED =HM_EXT_HELP_UNDEFINED;
HM_ACTIONBAR_COMMAND =HM_Msg_Base+$0013;
HM_INFORM =HM_Msg_Base+$0014;
HM_NOTIFY =HM_Msg_Base+$0022;
HM_SET_USERDATA =HM_Msg_Base+$0023;
HM_CONTROL =HM_Msg_Base+$0024;
//**********************************************************************/
//* notify information for HM_NOTIFY */
//**********************************************************************/
const
OPEN_COVERPAGE =$0001;
OPEN_PAGE =$0002;
SWAP_PAGE =$0003;
OPEN_TOC =$0004;
OPEN_INDEX =$0005;
OPEN_HISTORY =$0006;
OPEN_SEARCH_HIT_LIST =$0007;
OPEN_LIBRARY =$0008;
HELP_REQUESTED =$0009;
//**********************************************************************/
//* HMERR_NO_FRAME_WND_IN_CHAIN - There is no frame window in the */
//* window chain from which to find or set the associated help */
//* instance. */
//**********************************************************************/
const
HMERR_NO_FRAME_WND_IN_CHAIN =$00001001;
//*********************************************************************/
//* HMERR_INVALID_ASSOC_APP_WND - The application window handle */
//* specified on the WinAssociateHelpInstance() call is not a valid */
//* window handle. */
//*********************************************************************/
const
HMERR_INVALID_ASSOC_APP_WND =$00001002;
//**********************************************************************/
//* HMERR_INVALID_ASSOC_HELP_INST - The help instance handle specified */
//* on the WinAssociateHelpInstance() call is not a valid */
//* window handle. */
//**********************************************************************/
const
HMERR_INVALID_ASSOC_HELP_INST =$00001003;
//**********************************************************************/
//* HMERR_INVALID_DESTROY_HELP_INST - The window handle specified */
//* as the help instance to destroy is not of the help instance class. */
//**********************************************************************/
const
HMERR_INVALID_DESTROY_HELP_INST =$00001004;
//**********************************************************************/
//* HMERR_NO_HELP_INST_IN_CHAIN - The parent or owner chain of the */
//* application window specified does not have a help instance */
//* associated with it. */
//**********************************************************************/
const
HMERR_NO_HELP_INST_IN_CHAIN =$00001005;
//**********************************************************************/
//* HMERR_INVALID_HELP_INSTANCE_HDL - The handle specified to be a */
//* help instance does not have the class name of a IPF */
//* help instance. */
//**********************************************************************/
const
HMERR_INVALID_HELP_INSTANCE_HDL =$00001006;
//*********************************************************************/
//* HMERR_INVALID_QUERY_APP_WND - The application window specified on */
//* a WinQueryHelpInstance() call is not a valid window handle. */
//*********************************************************************/
const
HMERR_INVALID_QUERY_APP_WND =$00001007;
//*********************************************************************/
//* HMERR_HELP_INST_CALLED_INVALID - The handle of the help instance */
//* specified on an API call to the IPF does not have the */
//* class name of an IPF help instance. */
//*********************************************************************/
const
HMERR_HELP_INST_CALLED_INVALID =$00001008;
HMERR_HELPTABLE_UNDEFINE =$00001009;
HMERR_HELP_INSTANCE_UNDEFINE =$0000100a;
HMERR_HELPITEM_NOT_FOUND =$0000100b;
HMERR_INVALID_HELPSUBITEM_SIZE =$0000100c;
HMERR_HELPSUBITEM_NOT_FOUND =$0000100d;
//*********************************************************************/
//* HMERR_INDEX_NOT_FOUND - No index in library file. */
//*********************************************************************/
const
HMERR_INDEX_NOT_FOUND =$00002001;
//**********************************************************************/
//* HMERR_CONTENT_NOT_FOUND - Library file does not have any contents. */
//**********************************************************************/
const
HMERR_CONTENT_NOT_FOUND =$00002002;
//*********************************************************************/
//* HMERR_OPEN_LIB_FILE - Cannot open library file */
//*********************************************************************/
const
HMERR_OPEN_LIB_FILE =$00002003;
//*********************************************************************/
//* HMERR_READ_LIB_FILE - Cannot read library file */
//*********************************************************************/
const
HMERR_READ_LIB_FILE =$00002004;
//*********************************************************************/
//* HMERR_CLOSE_LIB_FILE - Cannot close library file */
//*********************************************************************/
const
HMERR_CLOSE_LIB_FILE =$00002005;
//*********************************************************************/
//* HMERR_INVALID_LIB_FILE - Improper library file provided */
//*********************************************************************/
const
HMERR_INVALID_LIB_FILE =$00002006;
//************************************************************************/
//* HMERR_NO_MEMORY - Unable to allocate the requested amount of memory. */
//************************************************************************/
const
HMERR_NO_MEMORY =$00002007;
//*********************************************************************/
//* HMERR_ALLOCATE_SEGMENT - Unable */
//* to allocate a segment of memory for memory allocation requested */
//* from the IPF. */
//*********************************************************************/
const
HMERR_ALLOCATE_SEGMENT =$00002008;
//*********************************************************************/
//* HMERR_FREE_MEMORY - Unable to free allocated memory */
//*********************************************************************/
const
HMERR_FREE_MEMORY =$00002009;
//*********************************************************************/
//* HMERR_PANEL_NOT_FOUND - Unable */
//* to find a help panel requested to help manager */
//*********************************************************************/
const
HMERR_PANEL_NOT_FOUND =$00002010;
//*********************************************************************/
//* HMERR_DATABASE_NOT_OPEN - Unable to read the unopened database */
//*********************************************************************/
const
HMERR_DATABASE_NOT_OPEN =$00002011;
//*********************************************************************/
//* HMERR_DDL_ERROR - Unable to load resource dll */
//*********************************************************************/
const
HMERR_LOAD_DLL =$00002013;
//********************************************************************/
//* AC Viewport stucture definitions */
//********************************************************************/
type
PACVP=^ACVP;
ACVP=record
cb: cardinal;
hAB: HAB;
hmq: HMQ;
ObjectID: cardinal; // object identifier
hWndParent: HWND; // IPF viewport client handle
hWndOwner: HWND; // IPF viewport client handle
hWndACVP: HWND; // applications frame window hwnd
end;
//*******************************************************************/
//* Define Handle to DDF */
//*******************************************************************/
Type
HDDF=pointer;
// DdfHyperText Flags
const
REFERENCE_BY_ID =0;
REFERENCE_BY_RES =1;
// DdfBeginList formatting flags
HMBT_NONE =1;
HMBT_ALL =2;
HMBT_FIT =3;
HMLS_SINGLELINE =1;
HMLS_DOUBLELINE =2;
// DdfBitmap alignment flags
ART_RUNIN =$10;
ART_LEFT =$01;
ART_RIGHT =$02;
ART_CENTER =$04;
// DdfSetColor Color Flag
CLR_UNCHANGED =-6;
//*******************************************************************/
// error codes returned by DDF API functions */
//*******************************************************************/
const
HMERR_DDF_MEMORY =$3001;
HMERR_DDF_ALIGN_TYPE =$3002;
HMERR_DDF_BACKCOLOR =$3003;
HMERR_DDF_FORECOLOR =$3004;
HMERR_DDF_FONTSTYLE =$3005;
HMERR_DDF_REFTYPE =$3006;
HMERR_DDF_LIST_UNCLOSED =$3007;
HMERR_DDF_LIST_UNINITIALIZED =$3008;
HMERR_DDF_LIST_BREAKTYPE =$3009;
HMERR_DDF_LIST_SPACING =$300A;
HMERR_DDF_HINSTANCE =$300B;
HMERR_DDF_EXCEED_MAX_LENGTH =$300C;
HMERR_DDF_EXCEED_MAX_INC =$300D;
HMERR_DDF_INVALID_DDF =$300E;
HMERR_DDF_FORMAT_TYPE =$300F;
HMERR_DDF_INVALID_PARM =$3010;
HMERR_DDF_INVALID_FONT =$3011;
HMERR_DDF_SEVERE =$3012;
//************************************************************************/
//* Window Help API declarations. */
//************************************************************************/
function WinDestroyHelpInstance(hwndHelpInstance: HWND): Longbool; cdecl;
function WinCreateHelpInstance(ahab: HAB; var phinitHMInitStructure: HELPINIT): HWND; cdecl;
function WinAssociateHelpInstance(hwndHelpInstance, hwndApp: HWND): Longbool; cdecl;
function WinQueryHelpInstance(hwndApp: HWND): HWND; cdecl;
function WinLoadHelpTable(hwndHelpInstance: HWND; idHelpTable: cardinal; Module: cardinal): Longbool; cdecl;
function WinCreateHelpTable(hwndHelpInstance: HWND; var phtHelpTable: HELPTABLE): Longbool; cdecl;
function DdfInitialize(hwndHelpInstance: HWND; cbBuffer, ulIncrement: cardinal): HDDF; cdecl;
function DdfPara(ahddf: HDDF):Longbool; cdecl;
function DdfSetFormat(ahddf: HDDF; fFormatType: cardinal): Longbool; cdecl;
function DdfSetTextAlign(ahddf: HDDF; fAlign: cardinal): Longbool; cdecl;
function DdfSetColor(ahddf: HDDF; fBackColor, fForColor: Longint): Longbool; cdecl;
function DdfInform(ahddf: HDDF; var pszText: PChar; resInformNumber: cardinal): Longbool; cdecl;
function DdfSetFontStyle(ahddf: HDDF; fFontStyle: cardinal): Longbool; cdecl;
function DdfHyperText(ahddf: HDDF; var pszText, pszReference: PChar; fReferenceType: cardinal): Longbool; cdecl;
function DdfBeginList(ahddf: HDDF; ulWidthDT, fBreakType, fSpacing: cardinal): Longbool; cdecl;
function DdfListItem(ahddf: HDDF; var pszTerm, pszDescription: PChar): Longbool; cdecl;
function DdfEndList(ahddf: HDDF): Longbool; cdecl;
function DdfMetafile(ahddf: HDDF; ahmf: cardinal; var prclRect: RECTL): Longbool; cdecl;
function DdfText(ahddf: HDDF; var pszText: PChar): Longbool; cdecl;
function DdfSetFont(ahddf: HDDF; var pszFaceName: PChar; ulWidth, ulHeight: cardinal): Longbool; cdecl;
function DdfBitmap(ahddf: HDDF; hbm: HBITMAP; fAlign: cardinal): Longbool; cdecl;
implementation
const
HELPMGRDLL='HELPMGR';
function WinDestroyHelpInstance(hwndHelpInstance: HWND): Longbool; cdecl;
external HELPMGRDLL index 52;
function WinCreateHelpInstance(ahab: HAB; var phinitHMInitStructure: HELPINIT): HWND; cdecl;
external HELPMGRDLL index 51;
function WinAssociateHelpInstance(hwndHelpInstance, hwndApp: HWND): Longbool; cdecl;
external HELPMGRDLL index 54;
function WinQueryHelpInstance(hwndApp: HWND): HWND; cdecl;
external HELPMGRDLL index 53;
function WinLoadHelpTable(hwndHelpInstance: HWND; idHelpTable: cardinal; Module: cardinal): Longbool; cdecl;
external HELPMGRDLL index 55;
function WinCreateHelpTable(hwndHelpInstance: HWND; var phtHelpTable: HELPTABLE): Longbool; cdecl;
external HELPMGRDLL index 56;
function DdfInitialize(hwndHelpInstance: HWND; cbBuffer, ulIncrement: cardinal): HDDF; cdecl;
external HELPMGRDLL index 74;
function DdfPara (ahddf: HDDF): Longbool; cdecl;
external HELPMGRDLL index 75;
function DdfSetFormat(ahddf: HDDF; fFormatType: cardinal): Longbool; cdecl;
external HELPMGRDLL index 76;
function DdfSetTextAlign (ahddf: HDDF; fAlign: cardinal): Longbool; cdecl;
external HELPMGRDLL index 77;
function DdfSetColor(ahddf: HDDF; fBackColor, fForColor: Longint): Longbool; cdecl;
external HELPMGRDLL index 78;
function DdfInform(ahddf: HDDF; var pszText: PChar; resInformNumber: cardinal): Longbool; cdecl;
external HELPMGRDLL index 79;
function DdfSetFontStyle(ahddf: HDDF; fFontStyle: cardinal): Longbool; cdecl;
external HELPMGRDLL index 80;
function DdfHyperText(ahddf: HDDF; var pszText, pszReference: PChar; fReferenceType: cardinal): Longbool; cdecl;
external HELPMGRDLL index 81;
function DdfBeginList(ahddf: HDDF; ulWidthDT, fBreakType, fSpacing: cardinal): Longbool; cdecl;
external HELPMGRDLL index 82;
function DdfListItem(ahddf: HDDF; var pszTerm, pszDescription: PChar): Longbool; cdecl;
external HELPMGRDLL index 83;
function DdfEndList(ahddf: HDDF): Longbool; cdecl;
external HELPMGRDLL index 84;
function DdfMetafile(ahddf: HDDF; ahmf: cardinal; var prclRect: RECTL): Longbool; cdecl;
external HELPMGRDLL index 86;
function DdfText(ahddf: HDDF; var pszText: PChar): Longbool; cdecl;
external HELPMGRDLL index 85;
function DdfSetFont(ahddf: HDDF; var pszFaceName: PChar; ulWidth, ulHeight: cardinal): Longbool; cdecl;
external HELPMGRDLL index 87;
function DdfBitmap(ahddf: HDDF; hbm: HBITMAP; fAlign: cardinal): Longbool; cdecl;
external HELPMGRDLL index 88;
end.
|
