Project

General

Profile

Statistics
| Revision:

vdfsplat / AppSrc / cComCodeMax121.pkg @ 67

History | View | Annotate | Download (186 KB)

1
// Visual DataFlex COM proxy classes generated from .\Visual DataFlex 12.1\Bin\dfedit40.dll
2
Use FlexCom20.pkg
3

    
4

    
5
Define OLEcmLimit for Integer
6
    Define OLEcmMaxFindReplText for 200
7
    Define OLEcmFindReplaceMRUMax for 10
8
    Define OLEcmFindReplaceMRUBuffSize for 2010
9
    Define OLEcmMaxMacros for 10
10
    Define OLEcmMaxCmdString for 50
11
    Define OLEcmMaxCmdDescription for 200
12
    Define OLEcmMaxLanguageName for 100
13
    Define OLEcmMaxTabSize for 100
14
    Define OLEcmMinTabSize for 2
15
    Define OLEcmCmdUserBase for 1000
16

    
17
Define OLEcmCommand for Integer
18
    Define OLEcmCmdNone for 0
19
    Define OLEcmCmdWordUppercase for 100
20
    Define OLEcmCmdWordTranspose for 101
21
    Define OLEcmCmdWordRightExtend for 102
22
    Define OLEcmCmdWordRight for 103
23
    Define OLEcmCmdWordEndRight for 104
24
    Define OLEcmCmdWordEndRightExtend for 105
25
    Define OLEcmCmdWordLowerCase for 106
26
    Define OLEcmCmdWordLeftExtend for 107
27
    Define OLEcmCmdWordLeft for 108
28
    Define OLEcmCmdWordEndLeft for 109
29
    Define OLEcmCmdWordEndLeftExtend for 110
30
    Define OLEcmCmdWordDeleteToStart for 111
31
    Define OLEcmCmdWordDeleteToEnd for 112
32
    Define OLEcmCmdWordCapitalize for 113
33
    Define OLEcmCmdWindowStart for 114
34
    Define OLEcmCmdWindowScrollUp for 115
35
    Define OLEcmCmdWindowScrollToTop for 116
36
    Define OLEcmCmdWindowScrollToCenter for 117
37
    Define OLEcmCmdWindowScrollToBottom for 118
38
    Define OLEcmCmdWindowScrollRight for 119
39
    Define OLEcmCmdWindowScrollLeft for 120
40
    Define OLEcmCmdWindowScrollDown for 121
41
    Define OLEcmCmdWindowRightEdge for 122
42
    Define OLEcmCmdWindowLeftEdge for 123
43
    Define OLEcmCmdWindowEnd for 124
44
    Define OLEcmCmdUppercaseSelection for 125
45
    Define OLEcmCmdUntabifySelection for 126
46
    Define OLEcmCmdUnindentSelection for 127
47
    Define OLEcmCmdUndoChanges for 128
48
    Define OLEcmCmdUndo for 129
49
    Define OLEcmCmdTabifySelection for 130
50
    Define OLEcmCmdSentenceRight for 131
51
    Define OLEcmCmdSentenceLeft for 132
52
    Define OLEcmCmdSentenceCut for 133
53
    Define OLEcmCmdSelectSwapAnchor for 134
54
    Define OLEcmCmdSelectPara for 135
55
    Define OLEcmCmdSelectLine for 136
56
    Define OLEcmCmdSelectAll for 137
57
    Define OLEcmCmdRedoChanges for 138
58
    Define OLEcmCmdRedo for 139
59
    Define OLEcmCmdPaste for 140
60
    Define OLEcmCmdParaUp for 141
61
    Define OLEcmCmdParaDown for 142
62
    Define OLEcmCmdPageUpExtend for 143
63
    Define OLEcmCmdPageUp for 144
64
    Define OLEcmCmdPageDownExtend for 145
65
    Define OLEcmCmdPageDown for 146
66
    Define OLEcmCmdLowercaseSelection for 147
67
    Define OLEcmCmdLineUpExtend for 148
68
    Define OLEcmCmdLineUp for 149
69
    Define OLEcmCmdLineTranspose for 150
70
    Define OLEcmCmdLineStart for 151
71
    Define OLEcmCmdLineOpenBelow for 152
72
    Define OLEcmCmdLineOpenAbove for 153
73
    Define OLEcmCmdLineEndExtend for 154
74
    Define OLEcmCmdLineEnd for 155
75
    Define OLEcmCmdLineDownExtend for 156
76
    Define OLEcmCmdLineDown for 157
77
    Define OLEcmCmdLineDeleteToStart for 158
78
    Define OLEcmCmdLineDeleteToEnd for 159
79
    Define OLEcmCmdLineDelete for 160
80
    Define OLEcmCmdLineCut for 161
81
    Define OLEcmCmdIndentToPrev for 162
82
    Define OLEcmCmdIndentSelection for 163
83
    Define OLEcmCmdHomeExtend for 164
84
    Define OLEcmCmdHome for 165
85
    Define OLEcmCmdGotoMatchBrace for 166
86
    Define OLEcmCmdGotoIndentation for 167
87
    Define OLEcmCmdGotoLine for 168
88
    Define OLEcmCmdFindReplace for 169
89
    Define OLEcmCmdReplace for 170
90
    Define OLEcmCmdReplaceAllInBuffer for 171
91
    Define OLEcmCmdReplaceAllInSelection for 172
92
    Define OLEcmCmdFindPrevWord for 173
93
    Define OLEcmCmdFindPrev for 174
94
    Define OLEcmCmdFindNextWord for 175
95
    Define OLEcmCmdFindNext for 176
96
    Define OLEcmCmdFindMarkAll for 177
97
    Define OLEcmCmdFind for 178
98
    Define OLEcmCmdSetFindText for 179
99
    Define OLEcmCmdSetReplaceText for 180
100
    Define OLEcmCmdTogglePreserveCase for 181
101
    Define OLEcmCmdToggleWholeWord for 182
102
    Define OLEcmCmdToggleCaseSensitive for 183
103
    Define OLEcmCmdEnd for 184
104
    Define OLEcmCmdToggleWhitespaceDisplay for 185
105
    Define OLEcmCmdToggleOvertype for 186
106
    Define OLEcmCmdSetRepeatCount for 187
107
    Define OLEcmCmdDocumentStartExtend for 188
108
    Define OLEcmCmdDocumentStart for 189
109
    Define OLEcmCmdDocumentEndExtend for 190
110
    Define OLEcmCmdDocumentEnd for 191
111
    Define OLEcmCmdDeleteHorizontalSpace for 192
112
    Define OLEcmCmdDeleteBlankLines for 193
113
    Define OLEcmCmdDeleteBack for 194
114
    Define OLEcmCmdDelete for 195
115
    Define OLEcmCmdCutSelection for 196
116
    Define OLEcmCmdCut for 197
117
    Define OLEcmCmdCopy for 198
118
    Define OLEcmCmdCharTranspose for 199
119
    Define OLEcmCmdCharRightExtend for 200
120
    Define OLEcmCmdCharRight for 201
121
    Define OLEcmCmdCharLeftExtend for 202
122
    Define OLEcmCmdCharLeft for 203
123
    Define OLEcmCmdBookmarkToggle for 204
124
    Define OLEcmCmdBookmarkPrev for 205
125
    Define OLEcmCmdBookmarkNext for 206
126
    Define OLEcmCmdBookmarkClearAll for 207
127
    Define OLEcmCmdBookmarkJumpToFirst for 208
128
    Define OLEcmCmdBookmarkJumpToLast for 209
129
    Define OLEcmCmdAppendNextCut for 210
130
    Define OLEcmCmdInsertChar for 211
131
    Define OLEcmCmdNewLine for 212
132
    Define OLEcmCmdRecordMacro for 213
133
    Define OLEcmCmdPlayMacro1 for 214
134
    Define OLEcmCmdPlayMacro2 for 215
135
    Define OLEcmCmdPlayMacro3 for 216
136
    Define OLEcmCmdPlayMacro4 for 217
137
    Define OLEcmCmdPlayMacro5 for 218
138
    Define OLEcmCmdPlayMacro6 for 219
139
    Define OLEcmCmdPlayMacro7 for 220
140
    Define OLEcmCmdPlayMacro8 for 221
141
    Define OLEcmCmdPlayMacro9 for 222
142
    Define OLEcmCmdPlayMacro10 for 223
143
    Define OLEcmCmdProperties for 224
144
    Define OLEcmCmdBeginUndo for 225
145
    Define OLEcmCmdEndUndo for 226
146
    Define OLEcmCmdToggleRegExp for 228
147
    Define OLEcmCmdClearSelection for 229
148
    Define OLEcmCmdRegExpOn for 230
149
    Define OLEcmCmdRegExpOff for 231
150
    Define OLEcmCmdWholeWordOn for 232
151
    Define OLEcmCmdWholeWordOff for 233
152
    Define OLEcmCmdPreserveCaseOn for 234
153
    Define OLEcmCmdPreserveCaseOff for 235
154
    Define OLEcmCmdCaseSensitiveOn for 236
155
    Define OLEcmCmdCaseSensitiveOff for 237
156
    Define OLEcmCmdWhitespaceDisplayOn for 238
157
    Define OLEcmCmdWhitespaceDisplayOff for 239
158
    Define OLEcmCmdOvertypeOn for 240
159
    Define OLEcmCmdOvertypeOff for 241
160
    Define OLEcmCmdToggleSelExtend for 243
161
    Define OLEcmCmdSelExtendOn for 244
162
    Define OLEcmCmdSelExtendOff for 245
163
    Define OLEcmCmdChooseCmd for 246
164
    Define OLEcmCmdMoveLineUp for 247
165
    Define OLEcmCmdMoveLineDown for 248
166
    Define OLEcmCmdLineUpExtendCol for 249
167
    Define OLEcmCmdLineDownExtendCol for 250
168
    Define OLEcmCmdCharLeftExtendCol for 251
169
    Define OLEcmCmdCharRightExtendCol for 252
170
    Define OLEcmCmdSortLinesAscending for 253
171
    Define OLEcmCmdSortLinesDescending for 254
172
    Define OLEcmCmdInsertGUID for 255
173
    Define OLEcmCmdLineDeleteEndSpace for 256
174
    Define OLEcmCmdIncrementalSearch for 257
175
    Define OLEcmCmdReverseIncrementalSearch for 258
176
    Define OLEcmCmdListMembers for 259
177
    Define OLEcmCmdCompleteWord for 260
178
    Define OLEcmCmdCommitMember for 261
179
    Define OLEcmCmdParameterInfo for 262
180
    Define OLEcmCmdQuickInfo for 263
181
    Define OLEcmCmdEndExtend for 264
182
    Define OLEcmCmdCommentSelection for 265
183
    Define OLEcmCmdUncommentSelection for 266
184
    Define OLEcmCmdSelectWord for 267
185

    
186
Define OLEcmCommandErr for Integer
187
    Define OLEcmErrNone for 0
188
    Define OLEcmErrFailure for 1
189
    Define OLEcmErrInput for 2
190
    Define OLEcmErrSelection for 3
191
    Define OLEcmErrNotFound for 4
192
    Define OLEcmErrEmptyBuf for 5
193
    Define OLEcmErrReadOnly for 6
194
    Define OLEcmErrNotAllowed for 7
195
    Define OLEcmErrCanceled for 8
196
    Define OLEcmErrNoLanguage for 9
197
    Define OLEcmErrBadLanguage for 10
198

    
199
Define OLEcmColorItem for Integer
200
    Define OLEcmClrWindow for 0
201
    Define OLEcmClrLeftMargin for 1
202
    Define OLEcmClrBookmark for 2
203
    Define OLEcmClrBookmarkBk for 3
204
    Define OLEcmClrLineNumber for 4
205
    Define OLEcmClrLineNumberBk for 5
206
    Define OLEcmClrHDividerLines for 6
207
    Define OLEcmClrVDividerLines for 7
208
    Define OLEcmClrBraceHighlight for 8
209
    Define OLEcmClrBraceHighlightBk for 9
210

    
211
Define OLEcmFontStyleItem for Integer
212
    Define OLEcmStyLineNumber for 0
213

    
214
Define OLEcmFontStyle for Integer
215
    Define OLEcmFontNormal for 0
216
    Define OLEcmFontBold for 1
217
    Define OLEcmFontItalic for 2
218
    Define OLEcmFontBoldItalic for 3
219
    Define OLEcmFontUnderline for 4
220

    
221
Define OLEcmAutoIndentMode for Integer
222
    Define OLEcmIndentOff for 0
223
    Define OLEcmIndentScope for 1
224
    Define OLEcmIndentPrevLine for 2
225

    
226
Define OLEcmHitTestCode for Integer
227
    Define OLEcmNowhere for 0
228
    Define OLEcmHSplitter for 1
229
    Define OLEcmVSplitter for 2
230
    Define OLEcmHVSplitter for 3
231
    Define OLEcmEditSpace for 4
232
    Define OLEcmHScrollBar for 5
233
    Define OLEcmVScrollBar for 6
234
    Define OLEcmSizeBox for 7
235
    Define OLEcmLeftMargin for 8
236
    Define OLEcmHyperlink for 9
237
    Define OLEcmSelection for 10
238
    Define OLEcmCancelBtn for 11
239
    Define OLEcmProgressBar for 12
240

    
241
Define OLEcmLineNumStyle for Integer
242
    Define OLEcmDecimal for 10
243
    Define OLEcmHexadecimal for 16
244
    Define OLEcmBinary for 2
245
    Define OLEcmOctal for 8
246

    
247
Define OLEcmPrintFlags for Integer
248
    Define OLEcmPrnPromptDlg for 0
249
    Define OLEcmPrnDefaultPrn for 1
250
    Define OLEcmPrnHDC for 2
251
    Define OLEcmPrnRichFonts for 4
252
    Define OLEcmPrnColor for 8
253
    Define OLEcmPrnPageNums for 16
254
    Define OLEcmPrnDateTime for 32
255
    Define OLEcmPrnBorderThin for 64
256
    Define OLEcmPrnBorderThick for 128
257
    Define OLEcmPrnBorderDouble for 256
258
    Define OLEcmPrnSelection for 512
259
    Define OLEcmPrnLineNums for 1024
260

    
261
Define OLEcmBorderStyle for Integer
262
    Define OLEcmBorderNone for 0
263
    Define OLEcmBorderThin for 1
264
    Define OLEcmBorderClient for 2
265
    Define OLEcmBorderStatic for 4
266
    Define OLEcmBorderModal for 8
267
    Define OLEcmBorderCorral for 10
268

    
269
Define OLEcmTokenSetID for Integer
270
    Define OLEcmTsIdUnknown for 0
271
    Define OLEcmTsIdText for 1
272
    Define OLEcmTsIdNumbers for 2
273
    Define OLEcmTsIdKeywords for 3
274
    Define OLEcmTsIdOperators for 4
275
    Define OLEcmTsIdScopeKeywords for 5
276
    Define OLEcmTsIdBlockComments for 6
277
    Define OLEcmTsIdLineComments for 7
278
    Define OLEcmTsIdStrings for 8
279
    Define OLEcmTsIdTagDelimiters for 9
280
    Define OLEcmTsIdCharLiterals for 18
281
    Define OLEcmTsIdTagText for 10
282
    Define OLEcmTsIdTagEntities for 11
283
    Define OLEcmTsIdTagElementNames for 12
284
    Define OLEcmTsIdTagAttributeNames for 13
285
    Define OLEcmTsIdLineNumbers for 14
286
    Define OLEcmTsIdHyperlinks for 15
287
    Define OLEcmTsIdVariables for 16
288
    Define OLEcmTsIdEscapeSeqs for 17
289
    Define OLEcmTsIdIdentifiers for 19
290
    Define OLEcmTsIdAttributeBlocks for 20
291
    Define OLEcmTsIdAttributeKeywordBlocks for 21
292
    Define OLEcmTsIdAttributeText for 22
293
    Define OLEcmTsIdEnvironmentVars for 23
294
    Define OLEcmTsIdCDataDelimiters for 24
295
    Define OLEcmTsIdCDataText for 25
296
    Define OLEcmTsIdSectionHeadings for 26
297
    Define OLEcmTsIdValueNames for 27
298
    Define OLEcmTsIdParameterBlocks for 28
299
    Define OLEcmTsIdArgSeparators for 29
300
    Define OLEcmTsIdWhitespace for 30
301
    Define OLEcmTsIdStatementDelims for 31
302
    Define OLEcmTsIdUserBase for 1000
303

    
304
Define OLEcmTokenSetType for Integer
305
    Define OLEcmTsTypeList for 0
306
    Define OLEcmTsTypeScope for 1
307

    
308
Define OLEcmTokenSubset for Integer
309
    Define OLEcmTsSubsetNone for 0
310
    Define OLEcmTsSubsetFirst for 1
311
    Define OLEcmTsSubsetSecond for 2
312
    Define OLEcmTsSubsetBoth for 3
313

    
314
Define OLEcmSaveFlags for Integer
315
    Define OLEcmSaveAutoFmt for 0
316
    Define OLEcmSaveClearUndoRedo for 1
317
    Define OLEcmSaveMBCS for 16
318
    Define OLEcmSaveUTF8 for 32
319
    Define OLEcmSaveUnicode for 64
320
    Define OLEcmSaveNoBOM for 128
321
    Define OLEcmSaveOEM for 4096
322

    
323
Define OLEcmMouseBtn for Integer
324
    Define OLEcmBtnLeft for 1
325
    Define OLEcmBtnRight for 2
326
    Define OLEcmBtnMiddle for 4
327

    
328
Define OLEcmKeyMod for Integer
329
    Define OLEcmKeyShift for 1
330
    Define OLEcmKeyCtrl for 2
331
    Define OLEcmKeyAlt for 4
332

    
333
Define OLEcmMode for Integer
334
    Define OLEcmModeEdit for 0
335
    Define OLEcmModeConstructing for 1
336
    Define OLEcmModeDestructing for 2
337
    Define OLEcmModeHSplitting for 4
338
    Define OLEcmModeVSplitting for 8
339
    Define OLEcmModePlayMacro for 16
340
    Define OLEcmModeRecordMacro for 32
341
    Define OLEcmModeDragSelecting for 64
342
    Define OLEcmModeLineSelecting for 128
343
    Define OLEcmModeDragAndDrop for 256
344
    Define OLEcmModeIncrementalSearch for 512
345
    Define OLEcmModeListMembers for 1024
346
    Define OLEcmModeParameterInfo for 2048
347

    
348
Define OLEcmMemberImage for Integer
349
    Define OLEcmImgNone for -1
350
    Define OLEcmImgClass for 0
351
    Define OLEcmImgConstant for 1
352
    Define OLEcmImgDelegate for 2
353
    Define OLEcmImgEnum for 3
354
    Define OLEcmImgEnumMember for 4
355
    Define OLEcmImgEvent for 5
356
    Define OLEcmImgException for 6
357
    Define OLEcmImgField for 7
358
    Define OLEcmImgInterface for 8
359
    Define OLEcmImgMacro for 9
360
    Define OLEcmImgMap for 10
361
    Define OLEcmImgMapItem for 11
362
    Define OLEcmImgMethod for 12
363
    Define OLEcmImgOverload for 13
364
    Define OLEcmImgModule for 14
365
    Define OLEcmImgNamespace for 15
366
    Define OLEcmImgOperator for 16
367
    Define OLEcmImgProperty for 17
368
    Define OLEcmImgStruct for 18
369
    Define OLEcmImgTemplate for 19
370
    Define OLEcmImgTypedef for 20
371
    Define OLEcmImgType for 21
372
    Define OLEcmImgUnion for 22
373
    Define OLEcmImgVariable for 23
374
    Define OLEcmImgValueType for 24
375
    Define OLEcmImgIntrinsic for 25
376

    
377
Define OLEcmParseDirection for Integer
378
    Define OLEcmParseDirForward for 0
379
    Define OLEcmParseDirBackward for 1
380

    
381
Define OLEcmParseFlags for Integer
382
    Define OLEcmParseDefault for 0
383
    Define OLEcmParseSkipWhitespace for 1
384
    Define OLEcmParseSkipComments for 2
385

    
386
Define OLEcmProgressFlags for Integer
387
    Define OLEcmProgressNone for 0
388
    Define OLEcmProgressNotify for 1
389
    Define OLEcmProgressShowUI for 2
390
    Define OLEcmProgressAllowCancel for 4
391

    
392
Define OLEcmProgressPhase for Integer
393
    Define OLEcmProgressStart for 0
394
    Define OLEcmProgressUpdate for 1
395
    Define OLEcmProgressEnd for 2
396

    
397
Define OLEcmQueryParamaterBlockResult for Integer
398
    Define OLEcmQueryParameterBlockDefault for 0
399
    Define OLEcmQueryParameterBlockNotFound for 1
400
    Define OLEcmQueryParameterBlockFound for 2
401

    
402
Define OLEcmQueryParamaterPositionResult for Integer
403
    Define OLEcmQueryParameterPositionDefault for 0
404
    Define OLEcmQueryParameterPositionNotFound for 1
405
    Define OLEcmQueryParameterPositionFound for 2
406

    
407
Define OLEcmLoadFlags for Integer
408
    Define OLEcmLoadAutoFmt for 0
409
    Define OLEcmLoadMBCS for 16
410
    Define OLEcmLoadUTF8 for 32
411
    Define OLEcmLoadUnicode for 64
412
    Define OLEcmLoadOEM for 4096
413

    
414
Define OLEcmMemberListStyle for Integer
415
    Define OLEcmMemberSubListTile for 0
416
    Define OLEcmMemberSubListCascade for 1
417

    
418
Struct _LARGE_INTEGER
419
    BigInt QuadPart
420
End_Struct
421

    
422
Struct _ULARGE_INTEGER
423
    UBigInt QuadPart
424
End_Struct
425

    
426
Struct _FILETIME
427
    UInteger dwLowDateTime
428
    UInteger dwHighDateTime
429
End_Struct
430

    
431
//Struct GUID
432
    //UInteger Data1
433
    //UShort Data2
434
    //UShort Data3
435
    // Data4  // Bad type member
436
//End_Struct
437

    
438
//Struct tagSTATSTG
439
    // pwcsName  // Bad type member
440
    //UInteger Type
441
    //_ULARGE_INTEGER cbSize
442
    //_FILETIME mtime
443
    //_FILETIME ctime
444
    //_FILETIME atime
445
    //UInteger grfMode
446
    //UInteger grfLocksSupported
447
    // clsid  // Bad type member
448
    //UInteger grfStateBits
449
    //UInteger reserved
450
//End_Struct
451

    
452
// CLSID: {DC857678-815D-44BB-B26F-EB8EA574FE7B}
453
// ICodeMax Interface
454
Class cComICodeMax is a Mixin
455

    
456
    // The font used to display code
457
    { MethodType=Property DesignTime=False }
458
    Procedure Set ComFontRef Variant value
459
        Handle hDispatchDriver
460
        Get phDispatchDriver to hDispatchDriver
461
        Send PrepareParams to hDispatchDriver 1
462
        Set ComProperty of hDispatchDriver -512 OLE_VT_DISPATCH to value
463
    End_Procedure
464

    
465
    // The font used to display code
466
    { MethodType=Property DesignTime=False }
467
    Procedure Set ComFont Variant value
468
        Handle hDispatchDriver
469
        Get phDispatchDriver to hDispatchDriver
470
        Send PrepareParams to hDispatchDriver 1
471
        Set ComProperty of hDispatchDriver -512 OLE_VT_DISPATCH to value
472
    End_Procedure
473

    
474
    // The font used to display code
475
    { MethodType=Property DesignTime=False }
476
    Function ComFont Returns Variant
477
        Handle hDispatchDriver
478
        Variant retVal
479
        Get phDispatchDriver to hDispatchDriver
480
        Get InvokeComMethod of hDispatchDriver -512 OLE_VT_DISPATCH to retVal
481
        Function_Return retVal
482
    End_Function
483

    
484
    // The enabled/disabled state of the window
485
    { MethodType=Property DesignTime=False }
486
    Procedure Set ComEnabled Boolean value
487
        Handle hDispatchDriver
488
        Get phDispatchDriver to hDispatchDriver
489
        Send PrepareParams to hDispatchDriver 1
490
        Set ComProperty of hDispatchDriver -514 OLE_VT_BOOL to value
491
    End_Procedure
492

    
493
    // The enabled/disabled state of the window
494
    { MethodType=Property DesignTime=False }
495
    Function ComEnabled Returns Boolean
496
        Handle hDispatchDriver
497
        Boolean retVal
498
        Get phDispatchDriver to hDispatchDriver
499
        Get InvokeComMethod of hDispatchDriver -514 OLE_VT_BOOL to retVal
500
        Function_Return retVal
501
    End_Function
502

    
503
    // The HWND window handle
504
    { MethodType=Property DesignTime=False }
505
    Function ComHWnd Returns Integer
506
        Handle hDispatchDriver
507
        Integer retVal
508
        Get phDispatchDriver to hDispatchDriver
509
        Get InvokeComMethod of hDispatchDriver -515 OLE_VT_I4 to retVal
510
        Function_Return retVal
511
    End_Function
512

    
513
    // The complete contents of the code buffer
514
    { MethodType=Property DesignTime=False }
515
    Procedure Set ComText String value
516
        Handle hDispatchDriver
517
        Get phDispatchDriver to hDispatchDriver
518
        Send PrepareParams to hDispatchDriver 1
519
        Set ComProperty of hDispatchDriver -517 OLE_VT_BSTR to value
520
    End_Procedure
521

    
522
    // The complete contents of the code buffer
523
    { MethodType=Property DesignTime=False }
524
    Function ComText Returns String
525
        Handle hDispatchDriver
526
        String retVal
527
        Get phDispatchDriver to hDispatchDriver
528
        Get InvokeComMethod of hDispatchDriver -517 OLE_VT_BSTR to retVal
529
        Function_Return retVal
530
    End_Function
531

    
532
    // The color syntax highlighting state (on/off)
533
    { MethodType=Property DesignTime=False }
534
    Procedure Set ComColorSyntax Boolean value
535
        Handle hDispatchDriver
536
        Get phDispatchDriver to hDispatchDriver
537
        Send PrepareParams to hDispatchDriver 1
538
        Set ComProperty of hDispatchDriver 0 OLE_VT_BOOL to value
539
    End_Procedure
540

    
541
    // The color syntax highlighting state (on/off)
542
    { MethodType=Property DesignTime=False }
543
    Function ComColorSyntax Returns Boolean
544
        Handle hDispatchDriver
545
        Boolean retVal
546
        Get phDispatchDriver to hDispatchDriver
547
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BOOL to retVal
548
        Function_Return retVal
549
    End_Function
550

    
551
    // The 'display whitespace' state (on/off)
552
    { MethodType=Property DesignTime=False }
553
    Procedure Set ComDisplayWhitespace Boolean value
554
        Handle hDispatchDriver
555
        Get phDispatchDriver to hDispatchDriver
556
        Send PrepareParams to hDispatchDriver 1
557
        Set ComProperty of hDispatchDriver 1 OLE_VT_BOOL to value
558
    End_Procedure
559

    
560
    // The 'display whitespace' state (on/off)
561
    { MethodType=Property DesignTime=False }
562
    Function ComDisplayWhitespace Returns Boolean
563
        Handle hDispatchDriver
564
        Boolean retVal
565
        Get phDispatchDriver to hDispatchDriver
566
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BOOL to retVal
567
        Function_Return retVal
568
    End_Function
569

    
570
    // The 'convert tabs to spaces' state (on/off)
571
    { MethodType=Property DesignTime=False }
572
    Procedure Set ComExpandTabs Boolean value
573
        Handle hDispatchDriver
574
        Get phDispatchDriver to hDispatchDriver
575
        Send PrepareParams to hDispatchDriver 1
576
        Set ComProperty of hDispatchDriver 2 OLE_VT_BOOL to value
577
    End_Procedure
578

    
579
    // The 'convert tabs to spaces' state (on/off)
580
    { MethodType=Property DesignTime=False }
581
    Function ComExpandTabs Returns Boolean
582
        Handle hDispatchDriver
583
        Boolean retVal
584
        Get phDispatchDriver to hDispatchDriver
585
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
586
        Function_Return retVal
587
    End_Function
588

    
589
    // The 'smooth scrolling' state (on/off)
590
    { MethodType=Property DesignTime=False }
591
    Procedure Set ComSmoothScrolling Boolean value
592
        Handle hDispatchDriver
593
        Get phDispatchDriver to hDispatchDriver
594
        Send PrepareParams to hDispatchDriver 1
595
        Set ComProperty of hDispatchDriver 3 OLE_VT_BOOL to value
596
    End_Procedure
597

    
598
    // The 'smooth scrolling' state (on/off)
599
    { MethodType=Property DesignTime=False }
600
    Function ComSmoothScrolling Returns Boolean
601
        Handle hDispatchDriver
602
        Boolean retVal
603
        Get phDispatchDriver to hDispatchDriver
604
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BOOL to retVal
605
        Function_Return retVal
606
    End_Function
607

    
608
    // The read-only state (on/off)
609
    { MethodType=Property DesignTime=False }
610
    Procedure Set ComReadOnly Boolean value
611
        Handle hDispatchDriver
612
        Get phDispatchDriver to hDispatchDriver
613
        Send PrepareParams to hDispatchDriver 1
614
        Set ComProperty of hDispatchDriver 4 OLE_VT_BOOL to value
615
    End_Procedure
616

    
617
    // The read-only state (on/off)
618
    { MethodType=Property DesignTime=False }
619
    Function ComReadOnly Returns Boolean
620
        Handle hDispatchDriver
621
        Boolean retVal
622
        Get phDispatchDriver to hDispatchDriver
623
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BOOL to retVal
624
        Function_Return retVal
625
    End_Function
626

    
627
    // The 'display line tooltips' state (on/off)
628
    { MethodType=Property DesignTime=False }
629
    Procedure Set ComLineToolTips Boolean value
630
        Handle hDispatchDriver
631
        Get phDispatchDriver to hDispatchDriver
632
        Send PrepareParams to hDispatchDriver 1
633
        Set ComProperty of hDispatchDriver 5 OLE_VT_BOOL to value
634
    End_Procedure
635

    
636
    // The 'display line tooltips' state (on/off)
637
    { MethodType=Property DesignTime=False }
638
    Function ComLineToolTips Returns Boolean
639
        Handle hDispatchDriver
640
        Boolean retVal
641
        Get phDispatchDriver to hDispatchDriver
642
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
643
        Function_Return retVal
644
    End_Function
645

    
646
    // The left margin visibility state (on/off)
647
    { MethodType=Property DesignTime=False }
648
    Procedure Set ComDisplayLeftMargin Boolean value
649
        Handle hDispatchDriver
650
        Get phDispatchDriver to hDispatchDriver
651
        Send PrepareParams to hDispatchDriver 1
652
        Set ComProperty of hDispatchDriver 6 OLE_VT_BOOL to value
653
    End_Procedure
654

    
655
    // The left margin visibility state (on/off)
656
    { MethodType=Property DesignTime=False }
657
    Function ComDisplayLeftMargin Returns Boolean
658
        Handle hDispatchDriver
659
        Boolean retVal
660
        Get phDispatchDriver to hDispatchDriver
661
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BOOL to retVal
662
        Function_Return retVal
663
    End_Function
664

    
665
    // The column selection enabled state (on/off)
666
    { MethodType=Property DesignTime=False }
667
    Procedure Set ComColumnSel Boolean value
668
        Handle hDispatchDriver
669
        Get phDispatchDriver to hDispatchDriver
670
        Send PrepareParams to hDispatchDriver 1
671
        Set ComProperty of hDispatchDriver 7 OLE_VT_BOOL to value
672
    End_Procedure
673

    
674
    // The column selection enabled state (on/off)
675
    { MethodType=Property DesignTime=False }
676
    Function ComColumnSel Returns Boolean
677
        Handle hDispatchDriver
678
        Boolean retVal
679
        Get phDispatchDriver to hDispatchDriver
680
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
681
        Function_Return retVal
682
    End_Function
683

    
684
    // The drag and drop enabled state (on/off)
685
    { MethodType=Property DesignTime=False }
686
    Procedure Set ComDragDrop Boolean value
687
        Handle hDispatchDriver
688
        Get phDispatchDriver to hDispatchDriver
689
        Send PrepareParams to hDispatchDriver 1
690
        Set ComProperty of hDispatchDriver 8 OLE_VT_BOOL to value
691
    End_Procedure
692

    
693
    // The drag and drop enabled state (on/off)
694
    { MethodType=Property DesignTime=False }
695
    Function ComDragDrop Returns Boolean
696
        Handle hDispatchDriver
697
        Boolean retVal
698
        Get phDispatchDriver to hDispatchDriver
699
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal
700
        Function_Return retVal
701
    End_Function
702

    
703
    // The character overtype state (on/off)
704
    { MethodType=Property DesignTime=False }
705
    Procedure Set ComOvertype Boolean value
706
        Handle hDispatchDriver
707
        Get phDispatchDriver to hDispatchDriver
708
        Send PrepareParams to hDispatchDriver 1
709
        Set ComProperty of hDispatchDriver 9 OLE_VT_BOOL to value
710
    End_Procedure
711

    
712
    // The character overtype state (on/off)
713
    { MethodType=Property DesignTime=False }
714
    Function ComOvertype Returns Boolean
715
        Handle hDispatchDriver
716
        Boolean retVal
717
        Get phDispatchDriver to hDispatchDriver
718
        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BOOL to retVal
719
        Function_Return retVal
720
    End_Function
721

    
722
    // The case sensitive searching state (on/off)
723
    { MethodType=Property DesignTime=False }
724
    Procedure Set ComSearchCaseSensitive Boolean value
725
        Handle hDispatchDriver
726
        Get phDispatchDriver to hDispatchDriver
727
        Send PrepareParams to hDispatchDriver 1
728
        Set ComProperty of hDispatchDriver 10 OLE_VT_BOOL to value
729
    End_Procedure
730

    
731
    // The case sensitive searching state (on/off)
732
    { MethodType=Property DesignTime=False }
733
    Function ComSearchCaseSensitive Returns Boolean
734
        Handle hDispatchDriver
735
        Boolean retVal
736
        Get phDispatchDriver to hDispatchDriver
737
        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_BOOL to retVal
738
        Function_Return retVal
739
    End_Function
740

    
741
    // The intelligent case preservation replacing state (on/off)
742
    { MethodType=Property DesignTime=False }
743
    Procedure Set ComReplacePreserveCase Boolean value
744
        Handle hDispatchDriver
745
        Get phDispatchDriver to hDispatchDriver
746
        Send PrepareParams to hDispatchDriver 1
747
        Set ComProperty of hDispatchDriver 11 OLE_VT_BOOL to value
748
    End_Procedure
749

    
750
    // The intelligent case preservation replacing state (on/off)
751
    { MethodType=Property DesignTime=False }
752
    Function ComReplacePreserveCase Returns Boolean
753
        Handle hDispatchDriver
754
        Boolean retVal
755
        Get phDispatchDriver to hDispatchDriver
756
        Get InvokeComMethod of hDispatchDriver 11 OLE_VT_BOOL to retVal
757
        Function_Return retVal
758
    End_Function
759

    
760
    // The whole word searching state (on/off)
761
    { MethodType=Property DesignTime=False }
762
    Procedure Set ComSearchWholeWord Boolean value
763
        Handle hDispatchDriver
764
        Get phDispatchDriver to hDispatchDriver
765
        Send PrepareParams to hDispatchDriver 1
766
        Set ComProperty of hDispatchDriver 12 OLE_VT_BOOL to value
767
    End_Procedure
768

    
769
    // The whole word searching state (on/off)
770
    { MethodType=Property DesignTime=False }
771
    Function ComSearchWholeWord Returns Boolean
772
        Handle hDispatchDriver
773
        Boolean retVal
774
        Get phDispatchDriver to hDispatchDriver
775
        Get InvokeComMethod of hDispatchDriver 12 OLE_VT_BOOL to retVal
776
        Function_Return retVal
777
    End_Function
778

    
779
    // The buffer modified state (on/off)
780
    { MethodType=Property DesignTime=False }
781
    Procedure Set ComModified Boolean value
782
        Handle hDispatchDriver
783
        Get phDispatchDriver to hDispatchDriver
784
        Send PrepareParams to hDispatchDriver 1
785
        Set ComProperty of hDispatchDriver 13 OLE_VT_BOOL to value
786
    End_Procedure
787

    
788
    // The buffer modified state (on/off)
789
    { MethodType=Property DesignTime=False }
790
    Function ComModified Returns Boolean
791
        Handle hDispatchDriver
792
        Boolean retVal
793
        Get phDispatchDriver to hDispatchDriver
794
        Get InvokeComMethod of hDispatchDriver 13 OLE_VT_BOOL to retVal
795
        Function_Return retVal
796
    End_Function
797

    
798
    // The CRLF line delimiter buffer modified state (on/off)
799
    { MethodType=Property DesignTime=False }
800
    Procedure Set ComCRLF Boolean value
801
        Handle hDispatchDriver
802
        Get phDispatchDriver to hDispatchDriver
803
        Send PrepareParams to hDispatchDriver 1
804
        Set ComProperty of hDispatchDriver 14 OLE_VT_BOOL to value
805
    End_Procedure
806

    
807
    // The CRLF line delimiter buffer modified state (on/off)
808
    { MethodType=Property DesignTime=False }
809
    Function ComCRLF Returns Boolean
810
        Handle hDispatchDriver
811
        Boolean retVal
812
        Get phDispatchDriver to hDispatchDriver
813
        Get InvokeComMethod of hDispatchDriver 14 OLE_VT_BOOL to retVal
814
        Function_Return retVal
815
    End_Function
816

    
817
    // The global properties state (on/off)
818
    { MethodType=Property DesignTime=False }
819
    Procedure Set ComGlobalProps Boolean value
820
        Handle hDispatchDriver
821
        Get phDispatchDriver to hDispatchDriver
822
        Send PrepareParams to hDispatchDriver 1
823
        Set ComProperty of hDispatchDriver 15 OLE_VT_BOOL to value
824
    End_Procedure
825

    
826
    // The global properties state (on/off)
827
    { MethodType=Property DesignTime=False }
828
    Function ComGlobalProps Returns Boolean
829
        Handle hDispatchDriver
830
        Boolean retVal
831
        Get phDispatchDriver to hDispatchDriver
832
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_BOOL to retVal
833
        Function_Return retVal
834
    End_Function
835

    
836
    // The vscroll visibility state (on/off)
837
    { MethodType=Property DesignTime=False }
838
    Procedure Set ComVScrollVisible Boolean value
839
        Handle hDispatchDriver
840
        Get phDispatchDriver to hDispatchDriver
841
        Send PrepareParams to hDispatchDriver 1
842
        Set ComProperty of hDispatchDriver 16 OLE_VT_BOOL to value
843
    End_Procedure
844

    
845
    // The vscroll visibility state (on/off)
846
    { MethodType=Property DesignTime=False }
847
    Function ComVScrollVisible Returns Boolean
848
        Handle hDispatchDriver
849
        Boolean retVal
850
        Get phDispatchDriver to hDispatchDriver
851
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_BOOL to retVal
852
        Function_Return retVal
853
    End_Function
854

    
855
    // The hscroll visibility state (on/off)
856
    { MethodType=Property DesignTime=False }
857
    Procedure Set ComHScrollVisible Boolean value
858
        Handle hDispatchDriver
859
        Get phDispatchDriver to hDispatchDriver
860
        Send PrepareParams to hDispatchDriver 1
861
        Set ComProperty of hDispatchDriver 17 OLE_VT_BOOL to value
862
    End_Procedure
863

    
864
    // The hscroll visibility state (on/off)
865
    { MethodType=Property DesignTime=False }
866
    Function ComHScrollVisible Returns Boolean
867
        Handle hDispatchDriver
868
        Boolean retVal
869
        Get phDispatchDriver to hDispatchDriver
870
        Get InvokeComMethod of hDispatchDriver 17 OLE_VT_BOOL to retVal
871
        Function_Return retVal
872
    End_Function
873

    
874
    // The vsplitter visibility state (on/off)
875
    { MethodType=Property DesignTime=False }
876
    Procedure Set ComVSplitter Boolean value
877
        Handle hDispatchDriver
878
        Get phDispatchDriver to hDispatchDriver
879
        Send PrepareParams to hDispatchDriver 1
880
        Set ComProperty of hDispatchDriver 18 OLE_VT_BOOL to value
881
    End_Procedure
882

    
883
    // The vsplitter visibility state (on/off)
884
    { MethodType=Property DesignTime=False }
885
    Function ComVSplitter Returns Boolean
886
        Handle hDispatchDriver
887
        Boolean retVal
888
        Get phDispatchDriver to hDispatchDriver
889
        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_BOOL to retVal
890
        Function_Return retVal
891
    End_Function
892

    
893
    // The hsplitter visibility state (on/off)
894
    { MethodType=Property DesignTime=False }
895
    Procedure Set ComHSplitter Boolean value
896
        Handle hDispatchDriver
897
        Get phDispatchDriver to hDispatchDriver
898
        Send PrepareParams to hDispatchDriver 1
899
        Set ComProperty of hDispatchDriver 19 OLE_VT_BOOL to value
900
    End_Procedure
901

    
902
    // The hsplitter visibility state (on/off)
903
    { MethodType=Property DesignTime=False }
904
    Function ComHSplitter Returns Boolean
905
        Handle hDispatchDriver
906
        Boolean retVal
907
        Get phDispatchDriver to hDispatchDriver
908
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_BOOL to retVal
909
        Function_Return retVal
910
    End_Function
911

    
912
    // The currently selected language
913
    { MethodType=Property DesignTime=False }
914
    Procedure Set ComLanguage Variant value
915
        Handle hDispatchDriver
916
        Get phDispatchDriver to hDispatchDriver
917
        Send PrepareParams to hDispatchDriver 1
918
        Set ComProperty of hDispatchDriver 20 OLE_VT_DISPATCH to value
919
    End_Procedure
920

    
921
    // The currently selected language
922
    { MethodType=Property DesignTime=False }
923
    Function ComLanguage Returns Variant
924
        Handle hDispatchDriver
925
        Variant retVal
926
        Get phDispatchDriver to hDispatchDriver
927
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_DISPATCH to retVal
928
        Function_Return retVal
929
    End_Function
930

    
931
    // The current tab size (characters, including NULL terminator)
932
    { MethodType=Property DesignTime=False }
933
    Procedure Set ComTabSize Integer value
934
        Handle hDispatchDriver
935
        Get phDispatchDriver to hDispatchDriver
936
        Send PrepareParams to hDispatchDriver 1
937
        Set ComProperty of hDispatchDriver 21 OLE_VT_I4 to value
938
    End_Procedure
939

    
940
    // The current tab size (characters, including NULL terminator)
941
    { MethodType=Property DesignTime=False }
942
    Function ComTabSize Returns Integer
943
        Handle hDispatchDriver
944
        Integer retVal
945
        Get phDispatchDriver to hDispatchDriver
946
        Get InvokeComMethod of hDispatchDriver 21 OLE_VT_I4 to retVal
947
        Function_Return retVal
948
    End_Function
949

    
950
    // The topmost visible line number in view 0
951
    { MethodType=Property DesignTime=False }
952
    Procedure Set ComTopIndex Integer value
953
        Handle hDispatchDriver
954
        Get phDispatchDriver to hDispatchDriver
955
        Send PrepareParams to hDispatchDriver 1
956
        Set ComProperty of hDispatchDriver 22 OLE_VT_I4 to value
957
    End_Procedure
958

    
959
    // The topmost visible line number in view 0
960
    { MethodType=Property DesignTime=False }
961
    Function ComTopIndex Returns Integer
962
        Handle hDispatchDriver
963
        Integer retVal
964
        Get phDispatchDriver to hDispatchDriver
965
        Get InvokeComMethod of hDispatchDriver 22 OLE_VT_I4 to retVal
966
        Function_Return retVal
967
    End_Function
968

    
969
    // The max number of undoable edit actions (0 = none, n = limit, -1 = unlimited)
970
    { MethodType=Property DesignTime=False }
971
    Procedure Set ComUndoLimit Integer value
972
        Handle hDispatchDriver
973
        Get phDispatchDriver to hDispatchDriver
974
        Send PrepareParams to hDispatchDriver 1
975
        Set ComProperty of hDispatchDriver 23 OLE_VT_I4 to value
976
    End_Procedure
977

    
978
    // The max number of undoable edit actions (0 = none, n = limit, -1 = unlimited)
979
    { MethodType=Property DesignTime=False }
980
    Function ComUndoLimit Returns Integer
981
        Handle hDispatchDriver
982
        Integer retVal
983
        Get phDispatchDriver to hDispatchDriver
984
        Get InvokeComMethod of hDispatchDriver 23 OLE_VT_I4 to retVal
985
        Function_Return retVal
986
    End_Function
987

    
988
    // The currently active view number
989
    { MethodType=Property DesignTime=False }
990
    Procedure Set ComCurrentView Integer value
991
        Handle hDispatchDriver
992
        Get phDispatchDriver to hDispatchDriver
993
        Send PrepareParams to hDispatchDriver 1
994
        Set ComProperty of hDispatchDriver 24 OLE_VT_I4 to value
995
    End_Procedure
996

    
997
    // The currently active view number
998
    { MethodType=Property DesignTime=False }
999
    Function ComCurrentView Returns Integer
1000
        Handle hDispatchDriver
1001
        Integer retVal
1002
        Get phDispatchDriver to hDispatchDriver
1003
        Get InvokeComMethod of hDispatchDriver 24 OLE_VT_I4 to retVal
1004
        Function_Return retVal
1005
    End_Function
1006

    
1007
    // The length of the entire buffer contents in bytes
1008
    { MethodType=Property DesignTime=False }
1009
    Function ComTextLength Returns Integer
1010
        Handle hDispatchDriver
1011
        Integer retVal
1012
        Get phDispatchDriver to hDispatchDriver
1013
        Get InvokeComMethod of hDispatchDriver 25 OLE_VT_I4 to retVal
1014
        Function_Return retVal
1015
    End_Function
1016

    
1017
    // The buffer line count
1018
    { MethodType=Property DesignTime=False }
1019
    Function ComLineCount Returns Integer
1020
        Handle hDispatchDriver
1021
        Integer retVal
1022
        Get phDispatchDriver to hDispatchDriver
1023
        Get InvokeComMethod of hDispatchDriver 26 OLE_VT_I4 to retVal
1024
        Function_Return retVal
1025
    End_Function
1026

    
1027
    // The word under the caret
1028
    { MethodType=Property DesignTime=False }
1029
    Function ComCurrentWord Returns String
1030
        Handle hDispatchDriver
1031
        String retVal
1032
        Get phDispatchDriver to hDispatchDriver
1033
        Get InvokeComMethod of hDispatchDriver 27 OLE_VT_BSTR to retVal
1034
        Function_Return retVal
1035
    End_Function
1036

    
1037
    // The length of the word under the caret (in bytes)
1038
    { MethodType=Property DesignTime=False }
1039
    Function ComCurrentWordLength Returns Integer
1040
        Handle hDispatchDriver
1041
        Integer retVal
1042
        Get phDispatchDriver to hDispatchDriver
1043
        Get InvokeComMethod of hDispatchDriver 28 OLE_VT_I4 to retVal
1044
        Function_Return retVal
1045
    End_Function
1046

    
1047
    // The current auto indent mode as defined in cmAutoIndentMode
1048
    { MethodType=Property DesignTime=False }
1049
    Procedure Set ComAutoIndentMode OLEcmAutoIndentMode value
1050
        Handle hDispatchDriver
1051
        Get phDispatchDriver to hDispatchDriver
1052
        Send PrepareParams to hDispatchDriver 1
1053
        Set ComProperty of hDispatchDriver 29 OLE_VT_I4 to value
1054
    End_Procedure
1055

    
1056
    // The current auto indent mode as defined in cmAutoIndentMode
1057
    { MethodType=Property DesignTime=False }
1058
    Function ComAutoIndentMode Returns OLEcmAutoIndentMode
1059
        Handle hDispatchDriver
1060
        OLEcmAutoIndentMode retVal
1061
        Get phDispatchDriver to hDispatchDriver
1062
        Get InvokeComMethod of hDispatchDriver 29 OLE_VT_I4 to retVal
1063
        Function_Return retVal
1064
    End_Function
1065

    
1066
    // The total number of open views
1067
    { MethodType=Property DesignTime=False }
1068
    Function ComViewCount Returns Integer
1069
        Handle hDispatchDriver
1070
        Integer retVal
1071
        Get phDispatchDriver to hDispatchDriver
1072
        Get InvokeComMethod of hDispatchDriver 30 OLE_VT_I4 to retVal
1073
        Function_Return retVal
1074
    End_Function
1075

    
1076
    // The vertical position of the vsplitter
1077
    { MethodType=Property DesignTime=False }
1078
    Procedure Set ComVSplitterPos Integer value
1079
        Handle hDispatchDriver
1080
        Get phDispatchDriver to hDispatchDriver
1081
        Send PrepareParams to hDispatchDriver 1
1082
        Set ComProperty of hDispatchDriver 31 OLE_VT_I4 to value
1083
    End_Procedure
1084

    
1085
    // The vertical position of the vsplitter
1086
    { MethodType=Property DesignTime=False }
1087
    Function ComVSplitterPos Returns Integer
1088
        Handle hDispatchDriver
1089
        Integer retVal
1090
        Get phDispatchDriver to hDispatchDriver
1091
        Get InvokeComMethod of hDispatchDriver 31 OLE_VT_I4 to retVal
1092
        Function_Return retVal
1093
    End_Function
1094

    
1095
    // The horizontal position of the hsplitter
1096
    { MethodType=Property DesignTime=False }
1097
    Procedure Set ComHSplitterPos Integer value
1098
        Handle hDispatchDriver
1099
        Get phDispatchDriver to hDispatchDriver
1100
        Send PrepareParams to hDispatchDriver 1
1101
        Set ComProperty of hDispatchDriver 32 OLE_VT_I4 to value
1102
    End_Procedure
1103

    
1104
    // The horizontal position of the hsplitter
1105
    { MethodType=Property DesignTime=False }
1106
    Function ComHSplitterPos Returns Integer
1107
        Handle hDispatchDriver
1108
        Integer retVal
1109
        Get phDispatchDriver to hDispatchDriver
1110
        Get InvokeComMethod of hDispatchDriver 32 OLE_VT_I4 to retVal
1111
        Function_Return retVal
1112
    End_Function
1113

    
1114
    // The current find text
1115
    { MethodType=Property DesignTime=False }
1116
    Procedure Set ComFindText String value
1117
        Handle hDispatchDriver
1118
        Get phDispatchDriver to hDispatchDriver
1119
        Send PrepareParams to hDispatchDriver 1
1120
        Set ComProperty of hDispatchDriver 33 OLE_VT_BSTR to value
1121
    End_Procedure
1122

    
1123
    // The current find text
1124
    { MethodType=Property DesignTime=False }
1125
    Function ComFindText Returns String
1126
        Handle hDispatchDriver
1127
        String retVal
1128
        Get phDispatchDriver to hDispatchDriver
1129
        Get InvokeComMethod of hDispatchDriver 33 OLE_VT_BSTR to retVal
1130
        Function_Return retVal
1131
    End_Function
1132

    
1133
    // The current replace text
1134
    { MethodType=Property DesignTime=False }
1135
    Procedure Set ComReplText String value
1136
        Handle hDispatchDriver
1137
        Get phDispatchDriver to hDispatchDriver
1138
        Send PrepareParams to hDispatchDriver 1
1139
        Set ComProperty of hDispatchDriver 34 OLE_VT_BSTR to value
1140
    End_Procedure
1141

    
1142
    // The current replace text
1143
    { MethodType=Property DesignTime=False }
1144
    Function ComReplText Returns String
1145
        Handle hDispatchDriver
1146
        String retVal
1147
        Get phDispatchDriver to hDispatchDriver
1148
        Get InvokeComMethod of hDispatchDriver 34 OLE_VT_BSTR to retVal
1149
        Function_Return retVal
1150
    End_Function
1151

    
1152
    // Line numbering (on/off)
1153
    { MethodType=Property DesignTime=False }
1154
    Procedure Set ComLineNumbering Boolean value
1155
        Handle hDispatchDriver
1156
        Get phDispatchDriver to hDispatchDriver
1157
        Send PrepareParams to hDispatchDriver 1
1158
        Set ComProperty of hDispatchDriver 84 OLE_VT_BOOL to value
1159
    End_Procedure
1160

    
1161
    // Line numbering (on/off)
1162
    { MethodType=Property DesignTime=False }
1163
    Function ComLineNumbering Returns Boolean
1164
        Handle hDispatchDriver
1165
        Boolean retVal
1166
        Get phDispatchDriver to hDispatchDriver
1167
        Get InvokeComMethod of hDispatchDriver 84 OLE_VT_BOOL to retVal
1168
        Function_Return retVal
1169
    End_Function
1170

    
1171
    // Line number starting value
1172
    { MethodType=Property DesignTime=False }
1173
    Procedure Set ComLineNumberStart Integer value
1174
        Handle hDispatchDriver
1175
        Get phDispatchDriver to hDispatchDriver
1176
        Send PrepareParams to hDispatchDriver 1
1177
        Set ComProperty of hDispatchDriver 85 OLE_VT_I4 to value
1178
    End_Procedure
1179

    
1180
    // Line number starting value
1181
    { MethodType=Property DesignTime=False }
1182
    Function ComLineNumberStart Returns Integer
1183
        Handle hDispatchDriver
1184
        Integer retVal
1185
        Get phDispatchDriver to hDispatchDriver
1186
        Get InvokeComMethod of hDispatchDriver 85 OLE_VT_I4 to retVal
1187
        Function_Return retVal
1188
    End_Function
1189

    
1190
    // Line number style (cmDecimal, cmHex, etc.)
1191
    { MethodType=Property DesignTime=False }
1192
    Procedure Set ComLineNumberStyle OLEcmLineNumStyle value
1193
        Handle hDispatchDriver
1194
        Get phDispatchDriver to hDispatchDriver
1195
        Send PrepareParams to hDispatchDriver 1
1196
        Set ComProperty of hDispatchDriver 86 OLE_VT_I4 to value
1197
    End_Procedure
1198

    
1199
    // Line number style (cmDecimal, cmHex, etc.)
1200
    { MethodType=Property DesignTime=False }
1201
    Function ComLineNumberStyle Returns OLEcmLineNumStyle
1202
        Handle hDispatchDriver
1203
        OLEcmLineNumStyle retVal
1204
        Get phDispatchDriver to hDispatchDriver
1205
        Get InvokeComMethod of hDispatchDriver 86 OLE_VT_I4 to retVal
1206
        Function_Return retVal
1207
    End_Function
1208

    
1209
    // Retrieves the word at a specific buffer location
1210
    Function ComGetWord Variant llPos Returns String
1211
        Handle hDispatchDriver
1212
        String retVal
1213
        Get phDispatchDriver to hDispatchDriver
1214
        Send PrepareParams to hDispatchDriver 1
1215
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
1216
        Get InvokeComMethod of hDispatchDriver 35 OLE_VT_BSTR to retVal
1217
        Function_Return retVal
1218
    End_Function
1219

    
1220
    // Retrieves the length of the word at a specific buffer location
1221
    Function ComGetWordLength Variant llPos Returns Integer
1222
        Handle hDispatchDriver
1223
        Integer retVal
1224
        Get phDispatchDriver to hDispatchDriver
1225
        Send PrepareParams to hDispatchDriver 1
1226
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
1227
        Get InvokeComMethod of hDispatchDriver 36 OLE_VT_I4 to retVal
1228
        Function_Return retVal
1229
    End_Function
1230

    
1231
    // Retrieves the topmost visible line in a specific view
1232
    Function ComGetTopIndex Integer llView Returns Integer
1233
        Handle hDispatchDriver
1234
        Integer retVal
1235
        Get phDispatchDriver to hDispatchDriver
1236
        Send PrepareParams to hDispatchDriver 1
1237
        Send DefineParam to hDispatchDriver OLE_VT_I4 llView
1238
        Get InvokeComMethod of hDispatchDriver 37 OLE_VT_I4 to retVal
1239
        Function_Return retVal
1240
    End_Function
1241

    
1242
    // Sets the topmost visible line in a specific view
1243
    Procedure ComSetTopIndex Integer llView Integer llLine
1244
        Handle hDispatchDriver
1245
        Get phDispatchDriver to hDispatchDriver
1246
        Send PrepareParams to hDispatchDriver 2
1247
        Send DefineParam to hDispatchDriver OLE_VT_I4 llView
1248
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1249
        Send InvokeComMethod to hDispatchDriver 38 OLE_VT_VOID
1250
    End_Procedure
1251

    
1252
    // Retrieves the current selection
1253
    Function ComGetSel Boolean llNormalized Returns Variant
1254
        Handle hDispatchDriver
1255
        Variant retVal
1256
        Get phDispatchDriver to hDispatchDriver
1257
        Send PrepareParams to hDispatchDriver 1
1258
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llNormalized
1259
        Get InvokeComMethod of hDispatchDriver 39 OLE_VT_DISPATCH to retVal
1260
        Function_Return retVal
1261
    End_Function
1262

    
1263
    // Changes the current selection
1264
    Procedure ComSetSel Variant llSel Boolean llMakeVisible
1265
        Handle hDispatchDriver
1266
        Get phDispatchDriver to hDispatchDriver
1267
        Send PrepareParams to hDispatchDriver 2
1268
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llSel
1269
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llMakeVisible
1270
        Send InvokeComMethod to hDispatchDriver 40 OLE_VT_VOID
1271
    End_Procedure
1272

    
1273
    // Retrieves the buffer coordinates under a specific window (x,y) client position
1274
    Function ComGetSelFromPoint Integer llxClientPos Integer llyClientPos Returns Variant
1275
        Handle hDispatchDriver
1276
        Variant retVal
1277
        Get phDispatchDriver to hDispatchDriver
1278
        Send PrepareParams to hDispatchDriver 2
1279
        Send DefineParam to hDispatchDriver OLE_VT_I4 llxClientPos
1280
        Send DefineParam to hDispatchDriver OLE_VT_I4 llyClientPos
1281
        Get InvokeComMethod of hDispatchDriver 41 OLE_VT_DISPATCH to retVal
1282
        Function_Return retVal
1283
    End_Function
1284

    
1285
    // Returns the total number of fully or partially visible lines in a specific view
1286
    Function ComGetVisibleLineCount Integer llView Boolean llFullyVisible Returns Integer
1287
        Handle hDispatchDriver
1288
        Integer retVal
1289
        Get phDispatchDriver to hDispatchDriver
1290
        Send PrepareParams to hDispatchDriver 2
1291
        Send DefineParam to hDispatchDriver OLE_VT_I4 llView
1292
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llFullyVisible
1293
        Get InvokeComMethod of hDispatchDriver 42 OLE_VT_I4 to retVal
1294
        Function_Return retVal
1295
    End_Function
1296

    
1297
    // Retrieves the text of a specific line
1298
    Function ComGetLine Integer llLine Returns String
1299
        Handle hDispatchDriver
1300
        String retVal
1301
        Get phDispatchDriver to hDispatchDriver
1302
        Send PrepareParams to hDispatchDriver 1
1303
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1304
        Get InvokeComMethod of hDispatchDriver 43 OLE_VT_BSTR to retVal
1305
        Function_Return retVal
1306
    End_Function
1307

    
1308
    // Returns the length of a specific line's text
1309
    Function ComGetLineLength Integer llLine Returns Integer
1310
        Handle hDispatchDriver
1311
        Integer retVal
1312
        Get phDispatchDriver to hDispatchDriver
1313
        Send PrepareParams to hDispatchDriver 1
1314
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1315
        Get InvokeComMethod of hDispatchDriver 44 OLE_VT_I4 to retVal
1316
        Function_Return retVal
1317
    End_Function
1318

    
1319
    // Sets the color of a specific window aspect defined in cmColorItem
1320
    Procedure ComSetColor OLEcmColorItem lllColorItem Integer llColorRGB
1321
        Handle hDispatchDriver
1322
        Get phDispatchDriver to hDispatchDriver
1323
        Send PrepareParams to hDispatchDriver 2
1324
        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColorItem
1325
        Send DefineParam to hDispatchDriver OLE_VT_I4 llColorRGB
1326
        Send InvokeComMethod to hDispatchDriver 45 OLE_VT_VOID
1327
    End_Procedure
1328

    
1329
    // Retrieves the color of a specific window aspect defined in cmColorItem
1330
    Function ComGetColor OLEcmColorItem lllColorItem Returns Integer
1331
        Handle hDispatchDriver
1332
        Integer retVal
1333
        Get phDispatchDriver to hDispatchDriver
1334
        Send PrepareParams to hDispatchDriver 1
1335
        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColorItem
1336
        Get InvokeComMethod of hDispatchDriver 46 OLE_VT_I4 to retVal
1337
        Function_Return retVal
1338
    End_Function
1339

    
1340
    // Places a file's contents into the edit buffer
1341
    Procedure ComOpenFile String llFileName
1342
        Handle hDispatchDriver
1343
        Get phDispatchDriver to hDispatchDriver
1344
        Send PrepareParams to hDispatchDriver 1
1345
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
1346
        Send InvokeComMethod to hDispatchDriver 47 OLE_VT_VOID
1347
    End_Procedure
1348

    
1349
    // Saves the buffer contents into a file
1350
    Procedure ComSaveFile String llFileName OLEcmSaveFlags llFlags
1351
        Handle hDispatchDriver
1352
        Get phDispatchDriver to hDispatchDriver
1353
        Send PrepareParams to hDispatchDriver 2
1354
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
1355
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFlags
1356
        Send InvokeComMethod to hDispatchDriver 48 OLE_VT_VOID
1357
    End_Procedure
1358

    
1359
    // Inserts a file's contents into the edit buffer at a specific location
1360
    Procedure ComInsertFile String llFileName Variant llInsertPos
1361
        Handle hDispatchDriver
1362
        Get phDispatchDriver to hDispatchDriver
1363
        Send PrepareParams to hDispatchDriver 2
1364
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
1365
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llInsertPos
1366
        Send InvokeComMethod to hDispatchDriver 49 OLE_VT_VOID
1367
    End_Procedure
1368

    
1369
    // Inserts a block of text into the edit buffer at a specific location
1370
    Procedure ComInsertText String llText Variant llPos
1371
        Handle hDispatchDriver
1372
        Get phDispatchDriver to hDispatchDriver
1373
        Send PrepareParams to hDispatchDriver 2
1374
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
1375
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
1376
        Send InvokeComMethod to hDispatchDriver 50 OLE_VT_VOID
1377
    End_Procedure
1378

    
1379
    // Replaces buffer text with a separate block of text
1380
    Procedure ComReplaceText String llText Variant llRange
1381
        Handle hDispatchDriver
1382
        Get phDispatchDriver to hDispatchDriver
1383
        Send PrepareParams to hDispatchDriver 2
1384
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
1385
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llRange
1386
        Send InvokeComMethod to hDispatchDriver 51 OLE_VT_VOID
1387
    End_Procedure
1388

    
1389
    // Determines the CodeMax window component (defined in cmHitTestCode) under a specific (x,y) window client coordinate
1390
    Function ComHitTest Integer llClientCoordX Integer llClientCoordY Variant llParser Integer ByRef llView Returns OLEcmHitTestCode
1391
        Handle hDispatchDriver
1392
        OLEcmHitTestCode retVal
1393
        Get phDispatchDriver to hDispatchDriver
1394
        Send PrepareParams to hDispatchDriver 4
1395
        Send DefineParam to hDispatchDriver OLE_VT_I4 llClientCoordX
1396
        Send DefineParam to hDispatchDriver OLE_VT_I4 llClientCoordY
1397
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llParser
1398
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llView
1399
        Get InvokeComMethod of hDispatchDriver 52 OLE_VT_I4 to retVal
1400
        Function_Return retVal
1401
    End_Function
1402

    
1403
    // Appends text to the end of the buffer
1404
    Procedure ComAddText String llText
1405
        Handle hDispatchDriver
1406
        Get phDispatchDriver to hDispatchDriver
1407
        Send PrepareParams to hDispatchDriver 1
1408
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
1409
        Send InvokeComMethod to hDispatchDriver 53 OLE_VT_VOID
1410
    End_Procedure
1411

    
1412
    // Deletes a specific line
1413
    Procedure ComDeleteLine Integer llLine
1414
        Handle hDispatchDriver
1415
        Get phDispatchDriver to hDispatchDriver
1416
        Send PrepareParams to hDispatchDriver 1
1417
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1418
        Send InvokeComMethod to hDispatchDriver 54 OLE_VT_VOID
1419
    End_Procedure
1420

    
1421
    // Inserts a single line of text at a specific line position
1422
    Procedure ComInsertLine Integer llLine String llText
1423
        Handle hDispatchDriver
1424
        Get phDispatchDriver to hDispatchDriver
1425
        Send PrepareParams to hDispatchDriver 2
1426
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1427
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
1428
        Send InvokeComMethod to hDispatchDriver 55 OLE_VT_VOID
1429
    End_Procedure
1430

    
1431
    // Selects a specific line
1432
    Procedure ComSelectLine Integer llLine Boolean llMakeVisible
1433
        Handle hDispatchDriver
1434
        Get phDispatchDriver to hDispatchDriver
1435
        Send PrepareParams to hDispatchDriver 2
1436
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1437
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llMakeVisible
1438
        Send InvokeComMethod to hDispatchDriver 56 OLE_VT_VOID
1439
    End_Procedure
1440

    
1441
    // Deletes the buffer contents marked by the current selection
1442
    Procedure ComDeleteSel
1443
        Handle hDispatchDriver
1444
        Get phDispatchDriver to hDispatchDriver
1445
        Send InvokeComMethod to hDispatchDriver 57 OLE_VT_VOID
1446
    End_Procedure
1447

    
1448
    // Replaces the buffer contents marked by the current selection with a body of text
1449
    Procedure ComReplaceSel String llText
1450
        Handle hDispatchDriver
1451
        Get phDispatchDriver to hDispatchDriver
1452
        Send PrepareParams to hDispatchDriver 1
1453
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
1454
        Send InvokeComMethod to hDispatchDriver 58 OLE_VT_VOID
1455
    End_Procedure
1456

    
1457
    // Executes a CodeMax command defined in cmCommands
1458
    Procedure ComExecuteCmd OLEcmCommand llCmd Variant llCmdData
1459
        Handle hDispatchDriver
1460
        Get phDispatchDriver to hDispatchDriver
1461
        Send PrepareParams to hDispatchDriver 2
1462
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
1463
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llCmdData
1464
        Send InvokeComMethod to hDispatchDriver 59 OLE_VT_VOID
1465
    End_Procedure
1466

    
1467
    // Determines if it is possible to undo an edit action
1468
    Function ComCanUndo Returns Boolean
1469
        Handle hDispatchDriver
1470
        Boolean retVal
1471
        Get phDispatchDriver to hDispatchDriver
1472
        Get InvokeComMethod of hDispatchDriver 60 OLE_VT_BOOL to retVal
1473
        Function_Return retVal
1474
    End_Function
1475

    
1476
    // Determines if it is possible to redo an edit action
1477
    Function ComCanRedo Returns Boolean
1478
        Handle hDispatchDriver
1479
        Boolean retVal
1480
        Get phDispatchDriver to hDispatchDriver
1481
        Get InvokeComMethod of hDispatchDriver 61 OLE_VT_BOOL to retVal
1482
        Function_Return retVal
1483
    End_Function
1484

    
1485
    // Determines if it is possible to cut the current selection and place it on the clipboard
1486
    Function ComCanCut Returns Boolean
1487
        Handle hDispatchDriver
1488
        Boolean retVal
1489
        Get phDispatchDriver to hDispatchDriver
1490
        Get InvokeComMethod of hDispatchDriver 62 OLE_VT_BOOL to retVal
1491
        Function_Return retVal
1492
    End_Function
1493

    
1494
    // Determines if it is possible to copy the current selection onto the clipboard
1495
    Function ComCanCopy Returns Boolean
1496
        Handle hDispatchDriver
1497
        Boolean retVal
1498
        Get phDispatchDriver to hDispatchDriver
1499
        Get InvokeComMethod of hDispatchDriver 63 OLE_VT_BOOL to retVal
1500
        Function_Return retVal
1501
    End_Function
1502

    
1503
    // Determines if it is possible to place the clipboard contents at the current edit selection position
1504
    Function ComCanPaste Returns Boolean
1505
        Handle hDispatchDriver
1506
        Boolean retVal
1507
        Get phDispatchDriver to hDispatchDriver
1508
        Get InvokeComMethod of hDispatchDriver 64 OLE_VT_BOOL to retVal
1509
        Function_Return retVal
1510
    End_Function
1511

    
1512
    // Undos the last edit action
1513
    Procedure ComUndo
1514
        Handle hDispatchDriver
1515
        Get phDispatchDriver to hDispatchDriver
1516
        Send InvokeComMethod to hDispatchDriver 65 OLE_VT_VOID
1517
    End_Procedure
1518

    
1519
    // Redos the last edit action
1520
    Procedure ComRedo
1521
        Handle hDispatchDriver
1522
        Get phDispatchDriver to hDispatchDriver
1523
        Send InvokeComMethod to hDispatchDriver 66 OLE_VT_VOID
1524
    End_Procedure
1525

    
1526
    // Cuts the current selection and places it on the clipboard
1527
    Procedure ComCut
1528
        Handle hDispatchDriver
1529
        Get phDispatchDriver to hDispatchDriver
1530
        Send InvokeComMethod to hDispatchDriver 67 OLE_VT_VOID
1531
    End_Procedure
1532

    
1533
    // Copies the current selection onto the clipboard
1534
    Procedure ComCopy
1535
        Handle hDispatchDriver
1536
        Get phDispatchDriver to hDispatchDriver
1537
        Send InvokeComMethod to hDispatchDriver 68 OLE_VT_VOID
1538
    End_Procedure
1539

    
1540
    // Pastes the clipboard contents at the current edit selection position
1541
    Procedure ComPaste
1542
        Handle hDispatchDriver
1543
        Get phDispatchDriver to hDispatchDriver
1544
        Send InvokeComMethod to hDispatchDriver 69 OLE_VT_VOID
1545
    End_Procedure
1546

    
1547
    // Clears the undo buffer so that undo/redo is not possible
1548
    Procedure ComClearUndoBuffer
1549
        Handle hDispatchDriver
1550
        Get phDispatchDriver to hDispatchDriver
1551
        Send InvokeComMethod to hDispatchDriver 70 OLE_VT_VOID
1552
    End_Procedure
1553

    
1554
    // Sets the HWND window that will be used as the parent of all dialog boxes displayed by CodeMax
1555
    Procedure ComSetDlgParent Integer llhWnd
1556
        Handle hDispatchDriver
1557
        Get phDispatchDriver to hDispatchDriver
1558
        Send PrepareParams to hDispatchDriver 1
1559
        Send DefineParam to hDispatchDriver OLE_VT_I4 llhWnd
1560
        Send InvokeComMethod to hDispatchDriver 71 OLE_VT_VOID
1561
    End_Procedure
1562

    
1563
    // Retrieves the selected text
1564
    { MethodType=Property DesignTime=False }
1565
    Function ComSelText Returns String
1566
        Handle hDispatchDriver
1567
        String retVal
1568
        Get phDispatchDriver to hDispatchDriver
1569
        Get InvokeComMethod of hDispatchDriver -546 OLE_VT_BSTR to retVal
1570
        Function_Return retVal
1571
    End_Function
1572

    
1573
    // Retrieves the selected text
1574
    { MethodType=Property DesignTime=False }
1575
    Procedure Set ComSelText String value
1576
        Handle hDispatchDriver
1577
        Get phDispatchDriver to hDispatchDriver
1578
        Send PrepareParams to hDispatchDriver 1
1579
        Set ComProperty of hDispatchDriver -546 OLE_VT_BSTR to value
1580
    End_Procedure
1581

    
1582
    // Allow caret positioning beyond text boundary.
1583
    { MethodType=Property DesignTime=False }
1584
    Procedure Set ComVirtualSpace Boolean value
1585
        Handle hDispatchDriver
1586
        Get phDispatchDriver to hDispatchDriver
1587
        Send PrepareParams to hDispatchDriver 1
1588
        Set ComProperty of hDispatchDriver 72 OLE_VT_BOOL to value
1589
    End_Procedure
1590

    
1591
    // Allow caret positioning beyond text boundary.
1592
    { MethodType=Property DesignTime=False }
1593
    Function ComVirtualSpace Returns Boolean
1594
        Handle hDispatchDriver
1595
        Boolean retVal
1596
        Get phDispatchDriver to hDispatchDriver
1597
        Get InvokeComMethod of hDispatchDriver 72 OLE_VT_BOOL to retVal
1598
        Function_Return retVal
1599
    End_Function
1600

    
1601
    // Sets the font style of a specific text token category defined in cmFontStyleItem
1602
    Procedure ComSetFontStyle OLEcmFontStyleItem llFontStyleItem OLEcmFontStyle llFontStyle
1603
        Handle hDispatchDriver
1604
        Get phDispatchDriver to hDispatchDriver
1605
        Send PrepareParams to hDispatchDriver 2
1606
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFontStyleItem
1607
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFontStyle
1608
        Send InvokeComMethod to hDispatchDriver 73 OLE_VT_VOID
1609
    End_Procedure
1610

    
1611
    // Retrieves the font style of a specific text token category defined in cmFontStyleItem
1612
    Function ComGetFontStyle OLEcmFontStyleItem llFontStyleItem Returns OLEcmFontStyle
1613
        Handle hDispatchDriver
1614
        OLEcmFontStyle retVal
1615
        Get phDispatchDriver to hDispatchDriver
1616
        Send PrepareParams to hDispatchDriver 1
1617
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFontStyleItem
1618
        Get InvokeComMethod of hDispatchDriver 74 OLE_VT_I4 to retVal
1619
        Function_Return retVal
1620
    End_Function
1621

    
1622
    // The regular expression searching state (on/off)
1623
    { MethodType=Property DesignTime=False }
1624
    Procedure Set ComSearchRegExp Boolean value
1625
        Handle hDispatchDriver
1626
        Get phDispatchDriver to hDispatchDriver
1627
        Send PrepareParams to hDispatchDriver 1
1628
        Set ComProperty of hDispatchDriver 75 OLE_VT_BOOL to value
1629
    End_Procedure
1630

    
1631
    // The regular expression searching state (on/off)
1632
    { MethodType=Property DesignTime=False }
1633
    Function ComSearchRegExp Returns Boolean
1634
        Handle hDispatchDriver
1635
        Boolean retVal
1636
        Get phDispatchDriver to hDispatchDriver
1637
        Get InvokeComMethod of hDispatchDriver 75 OLE_VT_BOOL to retVal
1638
        Function_Return retVal
1639
    End_Function
1640

    
1641
    // Sets per-line item data meaningful to the application
1642
    Procedure ComSetItemData Integer llLine Integer llData
1643
        Handle hDispatchDriver
1644
        Get phDispatchDriver to hDispatchDriver
1645
        Send PrepareParams to hDispatchDriver 2
1646
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1647
        Send DefineParam to hDispatchDriver OLE_VT_I4 llData
1648
        Send InvokeComMethod to hDispatchDriver 76 OLE_VT_VOID
1649
    End_Procedure
1650

    
1651
    // Retrieves the per-line item data set with SetItemData()
1652
    Function ComGetItemData Integer llLine Returns Integer
1653
        Handle hDispatchDriver
1654
        Integer retVal
1655
        Get phDispatchDriver to hDispatchDriver
1656
        Send PrepareParams to hDispatchDriver 1
1657
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1658
        Get InvokeComMethod of hDispatchDriver 77 OLE_VT_I4 to retVal
1659
        Function_Return retVal
1660
    End_Function
1661

    
1662
    // Sets a line's style bits
1663
    Procedure ComSetLineStyle Integer llLine Integer llStyle
1664
        Handle hDispatchDriver
1665
        Get phDispatchDriver to hDispatchDriver
1666
        Send PrepareParams to hDispatchDriver 2
1667
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1668
        Send DefineParam to hDispatchDriver OLE_VT_I4 llStyle
1669
        Send InvokeComMethod to hDispatchDriver 78 OLE_VT_VOID
1670
    End_Procedure
1671

    
1672
    // Retrieves a line's style bits
1673
    Function ComGetLineStyle Integer llLine Returns Integer
1674
        Handle hDispatchDriver
1675
        Integer retVal
1676
        Get phDispatchDriver to hDispatchDriver
1677
        Send PrepareParams to hDispatchDriver 1
1678
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1679
        Get InvokeComMethod of hDispatchDriver 79 OLE_VT_I4 to retVal
1680
        Function_Return retVal
1681
    End_Function
1682

    
1683
    // Turns on or off a bookmark for a single line
1684
    Procedure ComSetBookmark Integer llLine Boolean llVal
1685
        Handle hDispatchDriver
1686
        Get phDispatchDriver to hDispatchDriver
1687
        Send PrepareParams to hDispatchDriver 2
1688
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1689
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llVal
1690
        Send InvokeComMethod to hDispatchDriver 80 OLE_VT_VOID
1691
    End_Procedure
1692

    
1693
    // Gets the bookmark state (on/off) for a single line
1694
    Function ComGetBookmark Integer llLine Returns Boolean
1695
        Handle hDispatchDriver
1696
        Boolean retVal
1697
        Get phDispatchDriver to hDispatchDriver
1698
        Send PrepareParams to hDispatchDriver 1
1699
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1700
        Get InvokeComMethod of hDispatchDriver 81 OLE_VT_BOOL to retVal
1701
        Function_Return retVal
1702
    End_Function
1703

    
1704
    // clears all bookmarks and then sets multiple bookmarks at once
1705
    Procedure ComSetAllBookmarks Integer[] ByRef llLines
1706
        Handle hDispatchDriver
1707
        Get phDispatchDriver to hDispatchDriver
1708
        Send PrepareParams to hDispatchDriver 1
1709
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_I4)) llLines
1710
        Send InvokeComMethod to hDispatchDriver 82 OLE_VT_VOID
1711
    End_Procedure
1712

    
1713
    // Collects a list of all bookmarks
1714
    Function ComGetAllBookmarks Returns Integer[]
1715
        Handle hDispatchDriver
1716
        Integer[] retVal
1717
        Get phDispatchDriver to hDispatchDriver
1718
        Get InvokeComMethod of hDispatchDriver 83 (OLE_VT_ARRAY ior OLE_VT_I4) to retVal
1719
        Function_Return retVal
1720
    End_Function
1721

    
1722
    // returns a client rect surrounding a character at a specified buffer position
1723
    Function ComPosFromChar Variant llPos Returns Variant
1724
        Handle hDispatchDriver
1725
        Variant retVal
1726
        Get phDispatchDriver to hDispatchDriver
1727
        Send PrepareParams to hDispatchDriver 1
1728
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
1729
        Get InvokeComMethod of hDispatchDriver 87 OLE_VT_DISPATCH to retVal
1730
        Function_Return retVal
1731
    End_Function
1732

    
1733
    // Hide selection when control loses focus (on/off)
1734
    { MethodType=Property DesignTime=False }
1735
    Procedure Set ComHideSel Boolean value
1736
        Handle hDispatchDriver
1737
        Get phDispatchDriver to hDispatchDriver
1738
        Send PrepareParams to hDispatchDriver 1
1739
        Set ComProperty of hDispatchDriver 88 OLE_VT_BOOL to value
1740
    End_Procedure
1741

    
1742
    // Hide selection when control loses focus (on/off)
1743
    { MethodType=Property DesignTime=False }
1744
    Function ComHideSel Returns Boolean
1745
        Handle hDispatchDriver
1746
        Boolean retVal
1747
        Get phDispatchDriver to hDispatchDriver
1748
        Get InvokeComMethod of hDispatchDriver 88 OLE_VT_BOOL to retVal
1749
        Function_Return retVal
1750
    End_Function
1751

    
1752
    // Language keyword case fixup on-the-fly (on/off)
1753
    { MethodType=Property DesignTime=False }
1754
    Procedure Set ComNormalizeCase Boolean value
1755
        Handle hDispatchDriver
1756
        Get phDispatchDriver to hDispatchDriver
1757
        Send PrepareParams to hDispatchDriver 1
1758
        Set ComProperty of hDispatchDriver 89 OLE_VT_BOOL to value
1759
    End_Procedure
1760

    
1761
    // Language keyword case fixup on-the-fly (on/off)
1762
    { MethodType=Property DesignTime=False }
1763
    Function ComNormalizeCase Returns Boolean
1764
        Handle hDispatchDriver
1765
        Boolean retVal
1766
        Get phDispatchDriver to hDispatchDriver
1767
        Get InvokeComMethod of hDispatchDriver 89 OLE_VT_BOOL to retVal
1768
        Function_Return retVal
1769
    End_Function
1770

    
1771
    // Sets a line's divider line state (on/off)
1772
    Procedure ComSetDivider Integer llLine Boolean llVal
1773
        Handle hDispatchDriver
1774
        Get phDispatchDriver to hDispatchDriver
1775
        Send PrepareParams to hDispatchDriver 2
1776
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1777
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llVal
1778
        Send InvokeComMethod to hDispatchDriver 90 OLE_VT_VOID
1779
    End_Procedure
1780

    
1781
    // Retrieves a line's divider line state (on/off)
1782
    Function ComGetDivider Integer llLine Returns Boolean
1783
        Handle hDispatchDriver
1784
        Boolean retVal
1785
        Get phDispatchDriver to hDispatchDriver
1786
        Send PrepareParams to hDispatchDriver 1
1787
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1788
        Get InvokeComMethod of hDispatchDriver 91 OLE_VT_BOOL to retVal
1789
        Function_Return retVal
1790
    End_Function
1791

    
1792
    // Fat overtype caret (on/off)
1793
    { MethodType=Property DesignTime=False }
1794
    Procedure Set ComOvertypeCaret Boolean value
1795
        Handle hDispatchDriver
1796
        Get phDispatchDriver to hDispatchDriver
1797
        Send PrepareParams to hDispatchDriver 1
1798
        Set ComProperty of hDispatchDriver 92 OLE_VT_BOOL to value
1799
    End_Procedure
1800

    
1801
    // Fat overtype caret (on/off)
1802
    { MethodType=Property DesignTime=False }
1803
    Function ComOvertypeCaret Returns Boolean
1804
        Handle hDispatchDriver
1805
        Boolean retVal
1806
        Get phDispatchDriver to hDispatchDriver
1807
        Get InvokeComMethod of hDispatchDriver 92 OLE_VT_BOOL to retVal
1808
        Function_Return retVal
1809
    End_Function
1810

    
1811
    // turns on/off margin images for a specific line
1812
    Procedure ComSetMarginImages Integer llLine UChar llImages
1813
        Handle hDispatchDriver
1814
        Get phDispatchDriver to hDispatchDriver
1815
        Send PrepareParams to hDispatchDriver 2
1816
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1817
        Send DefineParam to hDispatchDriver OLE_VT_UI1 llImages
1818
        Send InvokeComMethod to hDispatchDriver 93 OLE_VT_VOID
1819
    End_Procedure
1820

    
1821
    // retrieves the current margin images state for a specific line
1822
    Function ComGetMarginImages Integer llLine Returns UChar
1823
        Handle hDispatchDriver
1824
        UChar retVal
1825
        Get phDispatchDriver to hDispatchDriver
1826
        Send PrepareParams to hDispatchDriver 1
1827
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1828
        Get InvokeComMethod of hDispatchDriver 94 OLE_VT_UI1 to retVal
1829
        Function_Return retVal
1830
    End_Function
1831

    
1832
    // sets the line margin images
1833
    { MethodType=Property DesignTime=False }
1834
    Procedure Set ComHImageList OLE_HANDLE value
1835
        Handle hDispatchDriver
1836
        Get phDispatchDriver to hDispatchDriver
1837
        Send PrepareParams to hDispatchDriver 1
1838
        Set ComProperty of hDispatchDriver 95 OLE_VT_I4 to value
1839
    End_Procedure
1840

    
1841
    // sets the line margin images
1842
    { MethodType=Property DesignTime=False }
1843
    Function ComHImageList Returns OLE_HANDLE
1844
        Handle hDispatchDriver
1845
        OLE_HANDLE retVal
1846
        Get phDispatchDriver to hDispatchDriver
1847
        Get InvokeComMethod of hDispatchDriver 95 OLE_VT_I4 to retVal
1848
        Function_Return retVal
1849
    End_Function
1850

    
1851
    // retrieves the ImageList control to be used.  Try ICodeMax.hImageList property if this fails.
1852
    { MethodType=Property DesignTime=False }
1853
    Function ComImageList Returns Variant
1854
        Handle hDispatchDriver
1855
        Variant retVal
1856
        Get phDispatchDriver to hDispatchDriver
1857
        Get InvokeComMethod of hDispatchDriver 96 OLE_VT_DISPATCH to retVal
1858
        Function_Return retVal
1859
    End_Function
1860

    
1861
    // retrieves the ImageList control to be used.  Try ICodeMax.hImageList property if this fails.
1862
    { MethodType=Property DesignTime=False }
1863
    Procedure Set ComImageList Variant value
1864
        Handle hDispatchDriver
1865
        Get phDispatchDriver to hDispatchDriver
1866
        Send PrepareParams to hDispatchDriver 1
1867
        Set ComProperty of hDispatchDriver 96 OLE_VT_DISPATCH to value
1868
    End_Procedure
1869

    
1870
    // retrieves the ImageList control to be used.  Try ICodeMax.hImageList property if this fails.
1871
    { MethodType=Property DesignTime=False }
1872
    Procedure Set ComImageListRef Variant value
1873
        Handle hDispatchDriver
1874
        Get phDispatchDriver to hDispatchDriver
1875
        Send PrepareParams to hDispatchDriver 1
1876
        Set ComProperty of hDispatchDriver 96 OLE_VT_DISPATCH to value
1877
    End_Procedure
1878

    
1879
    // prints the contents of the edit buffer
1880
    Procedure ComPrintContents Integer llhdc OLEcmPrintFlags llFlags
1881
        Handle hDispatchDriver
1882
        Get phDispatchDriver to hDispatchDriver
1883
        Send PrepareParams to hDispatchDriver 2
1884
        Send DefineParam to hDispatchDriver OLE_VT_I4 llhdc
1885
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFlags
1886
        Send InvokeComMethod to hDispatchDriver 97 OLE_VT_VOID
1887
    End_Procedure
1888

    
1889
    // Sets the caret position to a specific line and column
1890
    Procedure ComSetCaretPos Integer llLine Integer llCol
1891
        Handle hDispatchDriver
1892
        Get phDispatchDriver to hDispatchDriver
1893
        Send PrepareParams to hDispatchDriver 2
1894
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1895
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCol
1896
        Send InvokeComMethod to hDispatchDriver 98 OLE_VT_VOID
1897
    End_Procedure
1898

    
1899
    // Converts a view column position (physical coordinates) to buffer coords which correspond to actual character offsets in the buffer text
1900
    Function ComViewColToBufferCol Integer llLine Integer llViewCol Returns Integer
1901
        Handle hDispatchDriver
1902
        Integer retVal
1903
        Get phDispatchDriver to hDispatchDriver
1904
        Send PrepareParams to hDispatchDriver 2
1905
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1906
        Send DefineParam to hDispatchDriver OLE_VT_I4 llViewCol
1907
        Get InvokeComMethod of hDispatchDriver 99 OLE_VT_I4 to retVal
1908
        Function_Return retVal
1909
    End_Function
1910

    
1911
    // Converts a buffer column position to view coords which correspond to character offsets displayed in the editor
1912
    Function ComBufferColToViewCol Integer llLine Integer llBuffCol Returns Integer
1913
        Handle hDispatchDriver
1914
        Integer retVal
1915
        Get phDispatchDriver to hDispatchDriver
1916
        Send PrepareParams to hDispatchDriver 2
1917
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
1918
        Send DefineParam to hDispatchDriver OLE_VT_I4 llBuffCol
1919
        Get InvokeComMethod of hDispatchDriver 100 OLE_VT_I4 to retVal
1920
        Function_Return retVal
1921
    End_Function
1922

    
1923
    // The length of the selection in bytes
1924
    { MethodType=Property DesignTime=False }
1925
    Function ComSelLength Returns Integer
1926
        Handle hDispatchDriver
1927
        Integer retVal
1928
        Get phDispatchDriver to hDispatchDriver
1929
        Get InvokeComMethod of hDispatchDriver -548 OLE_VT_I4 to retVal
1930
        Function_Return retVal
1931
    End_Function
1932

    
1933
    // the current border style
1934
    { MethodType=Property DesignTime=False }
1935
    Procedure Set ComBorderStyle OLEcmBorderStyle value
1936
        Handle hDispatchDriver
1937
        Get phDispatchDriver to hDispatchDriver
1938
        Send PrepareParams to hDispatchDriver 1
1939
        Set ComProperty of hDispatchDriver 101 OLE_VT_I4 to value
1940
    End_Procedure
1941

    
1942
    // the current border style
1943
    { MethodType=Property DesignTime=False }
1944
    Function ComBorderStyle Returns OLEcmBorderStyle
1945
        Handle hDispatchDriver
1946
        OLEcmBorderStyle retVal
1947
        Get phDispatchDriver to hDispatchDriver
1948
        Get InvokeComMethod of hDispatchDriver 101 OLE_VT_I4 to retVal
1949
        Function_Return retVal
1950
    End_Function
1951

    
1952
    // Cancels the current event or operation
1953
    Procedure ComCancelEvent
1954
        Handle hDispatchDriver
1955
        Get phDispatchDriver to hDispatchDriver
1956
        Send InvokeComMethod to hDispatchDriver 102 OLE_VT_VOID
1957
    End_Procedure
1958

    
1959
    // Redraws the window
1960
    Procedure ComRedraw
1961
        Handle hDispatchDriver
1962
        Get phDispatchDriver to hDispatchDriver
1963
        Send InvokeComMethod to hDispatchDriver 103 OLE_VT_VOID
1964
    End_Procedure
1965

    
1966
    // Creates a new line parser object based on the current language
1967
    Function ComCreateParser Returns Variant
1968
        Handle hDispatchDriver
1969
        Variant retVal
1970
        Get phDispatchDriver to hDispatchDriver
1971
        Get InvokeComMethod of hDispatchDriver 104 OLE_VT_DISPATCH to retVal
1972
        Function_Return retVal
1973
    End_Function
1974

    
1975
    // Process keyboard input without censorship from parent form
1976
    { MethodType=Property DesignTime=False }
1977
    Procedure Set ComStealKeys Boolean value
1978
        Handle hDispatchDriver
1979
        Get phDispatchDriver to hDispatchDriver
1980
        Send PrepareParams to hDispatchDriver 1
1981
        Set ComProperty of hDispatchDriver 105 OLE_VT_BOOL to value
1982
    End_Procedure
1983

    
1984
    // Process keyboard input without censorship from parent form
1985
    { MethodType=Property DesignTime=False }
1986
    Function ComStealKeys Returns Boolean
1987
        Handle hDispatchDriver
1988
        Boolean retVal
1989
        Get phDispatchDriver to hDispatchDriver
1990
        Get InvokeComMethod of hDispatchDriver 105 OLE_VT_BOOL to retVal
1991
        Function_Return retVal
1992
    End_Function
1993

    
1994
    // Sets a line's background color.  Set to 0xff000000 (CLR_INVALID) to clear
1995
    Procedure ComSetLineColor Integer llLine Integer llColorRGB
1996
        Handle hDispatchDriver
1997
        Get phDispatchDriver to hDispatchDriver
1998
        Send PrepareParams to hDispatchDriver 2
1999
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
2000
        Send DefineParam to hDispatchDriver OLE_VT_I4 llColorRGB
2001
        Send InvokeComMethod to hDispatchDriver 106 OLE_VT_VOID
2002
    End_Procedure
2003

    
2004
    // Retrieves a line's background color
2005
    Function ComGetLineColor Integer llLine Returns Integer
2006
        Handle hDispatchDriver
2007
        Integer retVal
2008
        Get phDispatchDriver to hDispatchDriver
2009
        Send PrepareParams to hDispatchDriver 1
2010
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
2011
        Get InvokeComMethod of hDispatchDriver 107 OLE_VT_I4 to retVal
2012
        Function_Return retVal
2013
    End_Function
2014

    
2015
    // Fixup keyword case on-the-fly for a single line (zero-based index) or the entire buffer (-1)
2016
    Procedure ComNormalizeCaseNow Integer llLine
2017
        Handle hDispatchDriver
2018
        Get phDispatchDriver to hDispatchDriver
2019
        Send PrepareParams to hDispatchDriver 1
2020
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLine
2021
        Send InvokeComMethod to hDispatchDriver 108 OLE_VT_VOID
2022
    End_Procedure
2023

    
2024
    // Accept dropped files from Explorer and issue a DropFiles notification
2025
    { MethodType=Property DesignTime=False }
2026
    Procedure Set ComDropFiles Boolean value
2027
        Handle hDispatchDriver
2028
        Get phDispatchDriver to hDispatchDriver
2029
        Send PrepareParams to hDispatchDriver 1
2030
        Set ComProperty of hDispatchDriver 109 OLE_VT_BOOL to value
2031
    End_Procedure
2032

    
2033
    // Accept dropped files from Explorer and issue a DropFiles notification
2034
    { MethodType=Property DesignTime=False }
2035
    Function ComDropFiles Returns Boolean
2036
        Handle hDispatchDriver
2037
        Boolean retVal
2038
        Get phDispatchDriver to hDispatchDriver
2039
        Get InvokeComMethod of hDispatchDriver 109 OLE_VT_BOOL to retVal
2040
        Function_Return retVal
2041
    End_Function
2042

    
2043
    // Single click navigation of hyperlinks
2044
    { MethodType=Property DesignTime=False }
2045
    Procedure Set ComOneClickURL Boolean value
2046
        Handle hDispatchDriver
2047
        Get phDispatchDriver to hDispatchDriver
2048
        Send PrepareParams to hDispatchDriver 1
2049
        Set ComProperty of hDispatchDriver 110 OLE_VT_BOOL to value
2050
    End_Procedure
2051

    
2052
    // Single click navigation of hyperlinks
2053
    { MethodType=Property DesignTime=False }
2054
    Function ComOneClickURL Returns Boolean
2055
        Handle hDispatchDriver
2056
        Boolean retVal
2057
        Get phDispatchDriver to hDispatchDriver
2058
        Get InvokeComMethod of hDispatchDriver 110 OLE_VT_BOOL to retVal
2059
        Function_Return retVal
2060
    End_Function
2061

    
2062
    // Saves all user settings to the Windows Registry
2063
    Procedure ComSaveSettingsToRegistry String llRegistryKeyPath
2064
        Handle hDispatchDriver
2065
        Get phDispatchDriver to hDispatchDriver
2066
        Send PrepareParams to hDispatchDriver 1
2067
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegistryKeyPath
2068
        Send InvokeComMethod to hDispatchDriver 111 OLE_VT_VOID
2069
    End_Procedure
2070

    
2071
    // Loads all user settings from the Windows Registry
2072
    Procedure ComLoadSettingsFromRegistry String llRegistryKeyPath
2073
        Handle hDispatchDriver
2074
        Get phDispatchDriver to hDispatchDriver
2075
        Send PrepareParams to hDispatchDriver 1
2076
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegistryKeyPath
2077
        Send InvokeComMethod to hDispatchDriver 112 OLE_VT_VOID
2078
    End_Procedure
2079

    
2080
    // Saves all user settings to a stream
2081
    Procedure ComSaveSettingsToStream Variant llStream
2082
        Handle hDispatchDriver
2083
        Get phDispatchDriver to hDispatchDriver
2084
        Send PrepareParams to hDispatchDriver 1
2085
        Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llStream
2086
        Send InvokeComMethod to hDispatchDriver 113 OLE_VT_VOID
2087
    End_Procedure
2088

    
2089
    // Loads all user settings from a stream
2090
    Procedure ComLoadSettingsFromStream Variant llStream
2091
        Handle hDispatchDriver
2092
        Get phDispatchDriver to hDispatchDriver
2093
        Send PrepareParams to hDispatchDriver 1
2094
        Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llStream
2095
        Send InvokeComMethod to hDispatchDriver 114 OLE_VT_VOID
2096
    End_Procedure
2097

    
2098
    // Converts a (line,col) buffer position to a file offset value
2099
    Function ComPosToOffset Variant llPos Returns Integer
2100
        Handle hDispatchDriver
2101
        Integer retVal
2102
        Get phDispatchDriver to hDispatchDriver
2103
        Send PrepareParams to hDispatchDriver 1
2104
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
2105
        Get InvokeComMethod of hDispatchDriver 115 OLE_VT_I4 to retVal
2106
        Function_Return retVal
2107
    End_Function
2108

    
2109
    // Converts a file offset value to a (line,col) buffer position
2110
    Function ComOffsetToPos Integer llOffset Returns Variant
2111
        Handle hDispatchDriver
2112
        Variant retVal
2113
        Get phDispatchDriver to hDispatchDriver
2114
        Send PrepareParams to hDispatchDriver 1
2115
        Send DefineParam to hDispatchDriver OLE_VT_I4 llOffset
2116
        Get InvokeComMethod of hDispatchDriver 116 OLE_VT_DISPATCH to retVal
2117
        Function_Return retVal
2118
    End_Function
2119

    
2120
    // file offset at start of normalized selection
2121
    { MethodType=Property DesignTime=False }
2122
    Function ComSelStart Returns Integer
2123
        Handle hDispatchDriver
2124
        Integer retVal
2125
        Get phDispatchDriver to hDispatchDriver
2126
        Get InvokeComMethod of hDispatchDriver 117 OLE_VT_I4 to retVal
2127
        Function_Return retVal
2128
    End_Function
2129

    
2130
    // file offset at start of normalized selection
2131
    { MethodType=Property DesignTime=False }
2132
    Procedure Set ComSelStart Integer value
2133
        Handle hDispatchDriver
2134
        Get phDispatchDriver to hDispatchDriver
2135
        Send PrepareParams to hDispatchDriver 1
2136
        Set ComProperty of hDispatchDriver 117 OLE_VT_I4 to value
2137
    End_Procedure
2138

    
2139
    // file offset at start of normalized selection
2140
    { MethodType=Property DesignTime=False }
2141
    Function ComSelEnd Returns Integer
2142
        Handle hDispatchDriver
2143
        Integer retVal
2144
        Get phDispatchDriver to hDispatchDriver
2145
        Get InvokeComMethod of hDispatchDriver 118 OLE_VT_I4 to retVal
2146
        Function_Return retVal
2147
    End_Function
2148

    
2149
    // file offset at start of normalized selection
2150
    { MethodType=Property DesignTime=False }
2151
    Procedure Set ComSelEnd Integer value
2152
        Handle hDispatchDriver
2153
        Get phDispatchDriver to hDispatchDriver
2154
        Send PrepareParams to hDispatchDriver 1
2155
        Set ComProperty of hDispatchDriver 118 OLE_VT_I4 to value
2156
    End_Procedure
2157

    
2158
    // The complete contents of the code buffer as RTF text
2159
    { MethodType=Property DesignTime=False }
2160
    Function ComTextRTF Returns String
2161
        Handle hDispatchDriver
2162
        String retVal
2163
        Get phDispatchDriver to hDispatchDriver
2164
        Get InvokeComMethod of hDispatchDriver 119 OLE_VT_BSTR to retVal
2165
        Function_Return retVal
2166
    End_Function
2167

    
2168
    // The selected text as RTF text
2169
    { MethodType=Property DesignTime=False }
2170
    Function ComSelTextRTF Returns String
2171
        Handle hDispatchDriver
2172
        String retVal
2173
        Get phDispatchDriver to hDispatchDriver
2174
        Get InvokeComMethod of hDispatchDriver 120 OLE_VT_BSTR to retVal
2175
        Function_Return retVal
2176
    End_Function
2177

    
2178
    // Place RTF on the clipboard during Copy operation
2179
    { MethodType=Property DesignTime=False }
2180
    Procedure Set ComRTFCopy Boolean value
2181
        Handle hDispatchDriver
2182
        Get phDispatchDriver to hDispatchDriver
2183
        Send PrepareParams to hDispatchDriver 1
2184
        Set ComProperty of hDispatchDriver 121 OLE_VT_BOOL to value
2185
    End_Procedure
2186

    
2187
    // Place RTF on the clipboard during Copy operation
2188
    { MethodType=Property DesignTime=False }
2189
    Function ComRTFCopy Returns Boolean
2190
        Handle hDispatchDriver
2191
        Boolean retVal
2192
        Get phDispatchDriver to hDispatchDriver
2193
        Get InvokeComMethod of hDispatchDriver 121 OLE_VT_BOOL to retVal
2194
        Function_Return retVal
2195
    End_Function
2196

    
2197
    // Sets the input focus on the CodeMax window
2198
    Procedure ComSetFocus
2199
        Handle hDispatchDriver
2200
        Get phDispatchDriver to hDispatchDriver
2201
        Send InvokeComMethod to hDispatchDriver 122 OLE_VT_VOID
2202
    End_Procedure
2203

    
2204
    // Highlight matching scope keywords
2205
    { MethodType=Property DesignTime=False }
2206
    Procedure Set ComBraceMatching Boolean value
2207
        Handle hDispatchDriver
2208
        Get phDispatchDriver to hDispatchDriver
2209
        Send PrepareParams to hDispatchDriver 1
2210
        Set ComProperty of hDispatchDriver 123 OLE_VT_BOOL to value
2211
    End_Procedure
2212

    
2213
    // Highlight matching scope keywords
2214
    { MethodType=Property DesignTime=False }
2215
    Function ComBraceMatching Returns Boolean
2216
        Handle hDispatchDriver
2217
        Boolean retVal
2218
        Get phDispatchDriver to hDispatchDriver
2219
        Get InvokeComMethod of hDispatchDriver 123 OLE_VT_BOOL to retVal
2220
        Function_Return retVal
2221
    End_Function
2222

    
2223
    // The current user action in progress
2224
    { MethodType=Property DesignTime=False }
2225
    Function ComMode Returns OLEcmMode
2226
        Handle hDispatchDriver
2227
        OLEcmMode retVal
2228
        Get phDispatchDriver to hDispatchDriver
2229
        Get InvokeComMethod of hDispatchDriver 124 OLE_VT_I4 to retVal
2230
        Function_Return retVal
2231
    End_Function
2232

    
2233
    // True to track selection with bold line numbers
2234
    { MethodType=Property DesignTime=False }
2235
    Procedure Set ComLineNumberBoldSel Boolean value
2236
        Handle hDispatchDriver
2237
        Get phDispatchDriver to hDispatchDriver
2238
        Send PrepareParams to hDispatchDriver 1
2239
        Set ComProperty of hDispatchDriver 125 OLE_VT_BOOL to value
2240
    End_Procedure
2241

    
2242
    // True to track selection with bold line numbers
2243
    { MethodType=Property DesignTime=False }
2244
    Function ComLineNumberBoldSel Returns Boolean
2245
        Handle hDispatchDriver
2246
        Boolean retVal
2247
        Get phDispatchDriver to hDispatchDriver
2248
        Get InvokeComMethod of hDispatchDriver 125 OLE_VT_BOOL to retVal
2249
        Function_Return retVal
2250
    End_Function
2251

    
2252
    // The member list to display when invoked by the user
2253
    { MethodType=Property DesignTime=False }
2254
    Function ComMemberList Returns Variant
2255
        Handle hDispatchDriver
2256
        Variant retVal
2257
        Get phDispatchDriver to hDispatchDriver
2258
        Get InvokeComMethod of hDispatchDriver 126 OLE_VT_DISPATCH to retVal
2259
        Function_Return retVal
2260
    End_Function
2261

    
2262
    // The member list to display when invoked by the user
2263
    { MethodType=Property DesignTime=False }
2264
    Procedure Set ComMemberList Variant value
2265
        Handle hDispatchDriver
2266
        Get phDispatchDriver to hDispatchDriver
2267
        Send PrepareParams to hDispatchDriver 1
2268
        Set ComProperty of hDispatchDriver 126 OLE_VT_DISPATCH to value
2269
    End_Procedure
2270

    
2271
    // true to enable memberlist popups while typing
2272
    { MethodType=Property DesignTime=False }
2273
    Procedure Set ComAutoListMembers Boolean value
2274
        Handle hDispatchDriver
2275
        Get phDispatchDriver to hDispatchDriver
2276
        Send PrepareParams to hDispatchDriver 1
2277
        Set ComProperty of hDispatchDriver 127 OLE_VT_BOOL to value
2278
    End_Procedure
2279

    
2280
    // true to enable memberlist popups while typing
2281
    { MethodType=Property DesignTime=False }
2282
    Function ComAutoListMembers Returns Boolean
2283
        Handle hDispatchDriver
2284
        Boolean retVal
2285
        Get phDispatchDriver to hDispatchDriver
2286
        Get InvokeComMethod of hDispatchDriver 127 OLE_VT_BOOL to retVal
2287
        Function_Return retVal
2288
    End_Function
2289

    
2290
    // true to enable parameter info tooltips
2291
    { MethodType=Property DesignTime=False }
2292
    Procedure Set ComParameterInfo Boolean value
2293
        Handle hDispatchDriver
2294
        Get phDispatchDriver to hDispatchDriver
2295
        Send PrepareParams to hDispatchDriver 1
2296
        Set ComProperty of hDispatchDriver 128 OLE_VT_BOOL to value
2297
    End_Procedure
2298

    
2299
    // true to enable parameter info tooltips
2300
    { MethodType=Property DesignTime=False }
2301
    Function ComParameterInfo Returns Boolean
2302
        Handle hDispatchDriver
2303
        Boolean retVal
2304
        Get phDispatchDriver to hDispatchDriver
2305
        Get InvokeComMethod of hDispatchDriver 128 OLE_VT_BOOL to retVal
2306
        Function_Return retVal
2307
    End_Function
2308

    
2309
    // Enables and disables all painting and updating
2310
    Procedure ComSetRedraw Boolean llRedraw
2311
        Handle hDispatchDriver
2312
        Get phDispatchDriver to hDispatchDriver
2313
        Send PrepareParams to hDispatchDriver 1
2314
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llRedraw
2315
        Send InvokeComMethod to hDispatchDriver 129 OLE_VT_VOID
2316
    End_Procedure
2317

    
2318
    // Retrieves text within a specific range or the entire buffer
2319
    Function ComGetText Variant llRange Returns String
2320
        Handle hDispatchDriver
2321
        String retVal
2322
        Get phDispatchDriver to hDispatchDriver
2323
        Send PrepareParams to hDispatchDriver 1
2324
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llRange
2325
        Get InvokeComMethod of hDispatchDriver 130 OLE_VT_BSTR to retVal
2326
        Function_Return retVal
2327
    End_Function
2328

    
2329
    // Creates and connects the VDF code objects, CDS, Metadata, and CodeComplete
2330
    Procedure ComCreateVDFCodeObjects
2331
        Handle hDispatchDriver
2332
        Get phDispatchDriver to hDispatchDriver
2333
        Send InvokeComMethod to hDispatchDriver 500 OLE_VT_VOID
2334
    End_Procedure
2335

    
2336
    // Retrieves the VDF Code Data Structure object
2337
    Function ComGetVDFCodeDataStructure Returns Variant
2338
        Handle hDispatchDriver
2339
        Variant retVal
2340
        Get phDispatchDriver to hDispatchDriver
2341
        Get InvokeComMethod of hDispatchDriver 501 OLE_VT_UNKNOWN to retVal
2342
        Function_Return retVal
2343
    End_Function
2344

    
2345
    // Retrieves the VDF Code Metadata object
2346
    Function ComGetVDFCodeMetadata Returns Variant
2347
        Handle hDispatchDriver
2348
        Variant retVal
2349
        Get phDispatchDriver to hDispatchDriver
2350
        Get InvokeComMethod of hDispatchDriver 502 OLE_VT_UNKNOWN to retVal
2351
        Function_Return retVal
2352
    End_Function
2353

    
2354
    // Retrieves the VDF Code Complete object
2355
    Function ComGetVDFCodeComplete Returns Variant
2356
        Handle hDispatchDriver
2357
        Variant retVal
2358
        Get phDispatchDriver to hDispatchDriver
2359
        Get InvokeComMethod of hDispatchDriver 503 OLE_VT_UNKNOWN to retVal
2360
        Function_Return retVal
2361
    End_Function
2362

    
2363
    // Clears item data for all lines
2364
    Procedure ComClearAllItemData
2365
        Handle hDispatchDriver
2366
        Get phDispatchDriver to hDispatchDriver
2367
        Send InvokeComMethod to hDispatchDriver 504 OLE_VT_VOID
2368
    End_Procedure
2369

    
2370
    // Returns the first line number with the specified item data
2371
    Function ComFindItemData Integer llData Returns Integer
2372
        Handle hDispatchDriver
2373
        Integer retVal
2374
        Get phDispatchDriver to hDispatchDriver
2375
        Send PrepareParams to hDispatchDriver 1
2376
        Send DefineParam to hDispatchDriver OLE_VT_I4 llData
2377
        Get InvokeComMethod of hDispatchDriver 505 OLE_VT_I4 to retVal
2378
        Function_Return retVal
2379
    End_Function
2380

    
2381
    // Returns the first line number with the specified margin images
2382
    Function ComFindLineMatchingMarginImages Integer llStartLine UChar llImages Returns Integer
2383
        Handle hDispatchDriver
2384
        Integer retVal
2385
        Get phDispatchDriver to hDispatchDriver
2386
        Send PrepareParams to hDispatchDriver 2
2387
        Send DefineParam to hDispatchDriver OLE_VT_I4 llStartLine
2388
        Send DefineParam to hDispatchDriver OLE_VT_UI1 llImages
2389
        Get InvokeComMethod of hDispatchDriver 506 OLE_VT_I4 to retVal
2390
        Function_Return retVal
2391
    End_Function
2392

    
2393
    // Swaps the editor buffer/contents with an other editor control
2394
    Procedure ComSwapBuffer Variant llOther
2395
        Handle hDispatchDriver
2396
        Get phDispatchDriver to hDispatchDriver
2397
        Send PrepareParams to hDispatchDriver 1
2398
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llOther
2399
        Send InvokeComMethod to hDispatchDriver 507 OLE_VT_VOID
2400
    End_Procedure
2401

    
2402
    // Places a file's contents into the edit buffer
2403
    Procedure ComOpenFileEx String llFileName OLEcmLoadFlags llFlags
2404
        Handle hDispatchDriver
2405
        Get phDispatchDriver to hDispatchDriver
2406
        Send PrepareParams to hDispatchDriver 2
2407
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
2408
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFlags
2409
        Send InvokeComMethod to hDispatchDriver 508 OLE_VT_VOID
2410
    End_Procedure
2411

    
2412
    // Retrieves the word, using extended word chars, at a specific buffer location
2413
    Function ComGetWordEx Variant llPos String llleadingExtWordChars String lltrailingExtWordChars Returns String
2414
        Handle hDispatchDriver
2415
        String retVal
2416
        Get phDispatchDriver to hDispatchDriver
2417
        Send PrepareParams to hDispatchDriver 3
2418
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
2419
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llleadingExtWordChars
2420
        Send DefineParam to hDispatchDriver OLE_VT_BSTR lltrailingExtWordChars
2421
        Get InvokeComMethod of hDispatchDriver 509 OLE_VT_BSTR to retVal
2422
        Function_Return retVal
2423
    End_Function
2424

    
2425
    // Returns TRUE if the specified position is in the specified scope
2426
    Procedure ComIsInScope Variant llPos OLEcmTokenSetID llScope Boolean ByRef llVal
2427
        Handle hDispatchDriver
2428
        Get phDispatchDriver to hDispatchDriver
2429
        Send PrepareParams to hDispatchDriver 3
2430
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llPos
2431
        Send DefineParam to hDispatchDriver OLE_VT_I4 llScope
2432
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BOOL) llVal
2433
        Send InvokeComMethod to hDispatchDriver 510 OLE_VT_VOID
2434
    End_Procedure
2435
End_Class
2436

    
2437
// CLSID: {5CFD5C90-62A7-4D5B-ACA0-AE8655BC1F82}
2438
// ICodeMaxEvents Interface
2439
Class cComICodeMaxEvents is a Mixin
2440

    
2441
    // The buffer changed
2442
    { MethodType=Event }
2443
    Procedure OnComChange
2444
    End_Procedure
2445

    
2446
    // A view was scrolled horizontally
2447
    { MethodType=Event }
2448
    Procedure OnComHScroll
2449
    End_Procedure
2450

    
2451
    // A view was scrolled vertically
2452
    { MethodType=Event }
2453
    Procedure OnComVScroll
2454
    End_Procedure
2455

    
2456
    // The caret position changed
2457
    { MethodType=Event }
2458
    Procedure OnComSelChange
2459
    End_Procedure
2460

    
2461
    // The active view changed
2462
    { MethodType=Event }
2463
    Procedure OnComViewChange
2464
    End_Procedure
2465

    
2466
    // The modified flag changed state
2467
    { MethodType=Event }
2468
    Procedure OnComModifiedChange
2469
    End_Procedure
2470

    
2471
    // The user requested to show the properties dialog box
2472
    { MethodType=Event }
2473
    Procedure OnComShowProps
2474
    End_Procedure
2475

    
2476
    // The user pressed the Apply or OK button in the Window Properties dialog box
2477
    { MethodType=Event }
2478
    Procedure OnComPropsChange
2479
    End_Procedure
2480

    
2481
    // A CodeMax window was created
2482
    { MethodType=Event }
2483
    Procedure OnComCreate
2484
    End_Procedure
2485

    
2486
    // A CodeMax window was destroyed
2487
    { MethodType=Event }
2488
    Procedure OnComDestroy
2489
    End_Procedure
2490

    
2491
    // A CodeMax window received the input focus
2492
    { MethodType=Event }
2493
    Procedure OnComSetFocus
2494
    End_Procedure
2495

    
2496
    // A CodeMax window lost the input focus
2497
    { MethodType=Event }
2498
    Procedure OnComKillFocus
2499
    End_Procedure
2500

    
2501
    // The user invoked the context menu
2502
    { MethodType=Event }
2503
    Procedure OnComContextMenu Integer llX Integer llY
2504
    End_Procedure
2505

    
2506
    // The user deleted a line
2507
    { MethodType=Event }
2508
    Procedure OnComDeleteLine Integer llLine Integer llItemData
2509
    End_Procedure
2510

    
2511
    // A keystroke command failed
2512
    { MethodType=Event }
2513
    Procedure OnComCmdFailure OLEcmCommand llCmd OLEcmCommandErr llErr
2514
    End_Procedure
2515

    
2516
    // A registered command has been invoked
2517
    { MethodType=Event }
2518
    Procedure OnComRegisteredCmd OLEcmCommand llCmd
2519
    End_Procedure
2520

    
2521
    // A key was pressed
2522
    { MethodType=Event }
2523
    Procedure OnComKeyDown Integer llKeyCode OLEcmKeyMod llModifiers
2524
    End_Procedure
2525

    
2526
    // A key was released
2527
    { MethodType=Event }
2528
    Procedure OnComKeyUp Integer llKeyCode OLEcmKeyMod llModifiers
2529
    End_Procedure
2530

    
2531
    // A key was pressed and released
2532
    { MethodType=Event }
2533
    Procedure OnComKeyPress Integer llKeyAscii OLEcmKeyMod llModifiers
2534
    End_Procedure
2535

    
2536
    // A mouse button was pressed
2537
    { MethodType=Event }
2538
    Procedure OnComMouseDown OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2539
    End_Procedure
2540

    
2541
    // The mouse pointer moved
2542
    { MethodType=Event }
2543
    Procedure OnComMouseMove OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2544
    End_Procedure
2545

    
2546
    // A mouse button was released
2547
    { MethodType=Event }
2548
    Procedure OnComMouseUp OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2549
    End_Procedure
2550

    
2551
    // A mouse button was double clicked
2552
    { MethodType=Event }
2553
    Procedure OnComMouseDblClick OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2554
    End_Procedure
2555

    
2556
    // The overtype mode has changed
2557
    { MethodType=Event }
2558
    Procedure OnComOvertypeChange
2559
    End_Procedure
2560

    
2561
    // A search operation wrapped to the start or end of the buffer
2562
    { MethodType=Event }
2563
    Procedure OnComFindWrapped OLEcmCommand llCmd Boolean llForward
2564
    End_Procedure
2565

    
2566
    // Files were dragged from Explorer and dropped onto CodeMax
2567
    { MethodType=Event }
2568
    Procedure OnComDropFiles String llFiles
2569
    End_Procedure
2570

    
2571
    // A member list is about to be displayed
2572
    { MethodType=Event }
2573
    Procedure OnComQueryMemberList OLEcmCommand llCmd Boolean llAutoList Variant llItem Variant llList
2574
    End_Procedure
2575

    
2576
    // A lengthy process has reported progress toward completion
2577
    { MethodType=Event }
2578
    Procedure OnComProgress OLEcmProgressPhase llPhase Integer llPercentComplete Boolean llCanceled
2579
    End_Procedure
2580

    
2581
    // A QuickInfo tooltip is about to be displayed
2582
    { MethodType=Event }
2583
    Procedure OnComQuickInfo Integer llLine Integer llColumn String ByRef llTipText
2584
    End_Procedure
2585

    
2586
    // A member's bounds are being calculated as part of a statement completion operation
2587
    { MethodType=Event }
2588
    Procedure OnComQueryMemberBounds Variant llBounds Variant llItem
2589
    End_Procedure
2590

    
2591
    // a hyperlink was clicked
2592
    { MethodType=Event }
2593
    Procedure OnComHyperlink String llUrl
2594
    End_Procedure
2595

    
2596
    // A parameter block start position is calculated as part of ParameterInfo
2597
    { MethodType=Event }
2598
    Procedure OnComQueryParameterBlock Integer ByRef llStartLine Integer ByRef llStartCol Integer ByRef llArgIndex Integer ByRef llArgCount OLEcmQueryParamaterBlockResult ByRef llFoundParameterBlock
2599
    End_Procedure
2600

    
2601
    // A parameter position in prototype string is calculated as part of ParameterInfo
2602
    { MethodType=Event }
2603
    Procedure OnComQueryParameterPosition String llPrototype Integer llParameter Integer llParameterCount Integer ByRef llStartIndex Integer ByRef llEndIndex OLEcmQueryParamaterPositionResult ByRef llFoundParameter
2604
    End_Procedure
2605

    
2606
    { Visibility=Private }
2607
    Procedure RegisterComEvents
2608
        Send RegisterComEvent 0 msg_OnComChange
2609
        Send RegisterComEvent 1 msg_OnComHScroll
2610
        Send RegisterComEvent 2 msg_OnComVScroll
2611
        Send RegisterComEvent 3 msg_OnComSelChange
2612
        Send RegisterComEvent 4 msg_OnComViewChange
2613
        Send RegisterComEvent 5 msg_OnComModifiedChange
2614
        Send RegisterComEvent 6 msg_OnComShowProps
2615
        Send RegisterComEvent 7 msg_OnComPropsChange
2616
        Send RegisterComEvent 8 msg_OnComCreate
2617
        Send RegisterComEvent 9 msg_OnComDestroy
2618
        Send RegisterComEvent 10 msg_OnComSetFocus
2619
        Send RegisterComEvent 11 msg_OnComKillFocus
2620
        Send RegisterComEvent 12 msg_OnComContextMenu
2621
        Send RegisterComEvent 13 msg_OnComDeleteLine
2622
        Send RegisterComEvent 14 msg_OnComCmdFailure
2623
        Send RegisterComEvent 15 msg_OnComRegisteredCmd
2624
        Send RegisterComEvent 16 msg_OnComKeyDown
2625
        Send RegisterComEvent 17 msg_OnComKeyUp
2626
        Send RegisterComEvent 18 msg_OnComKeyPress
2627
        Send RegisterComEvent 19 msg_OnComMouseDown
2628
        Send RegisterComEvent 20 msg_OnComMouseMove
2629
        Send RegisterComEvent 21 msg_OnComMouseUp
2630
        Send RegisterComEvent 22 msg_OnComMouseDblClick
2631
        Send RegisterComEvent 23 msg_OnComOvertypeChange
2632
        Send RegisterComEvent 24 msg_OnComFindWrapped
2633
        Send RegisterComEvent 25 msg_OnComDropFiles
2634
        Send RegisterComEvent 26 msg_OnComQueryMemberList
2635
        Send RegisterComEvent 27 msg_OnComProgress
2636
        Send RegisterComEvent 28 msg_OnComQuickInfo
2637
        Send RegisterComEvent 29 msg_OnComQueryMemberBounds
2638
        Send RegisterComEvent 30 msg_OnComHyperlink
2639
        Send RegisterComEvent 500 msg_OnComQueryParameterBlock
2640
        Send RegisterComEvent 501 msg_OnComQueryParameterPosition
2641
    End_Procedure
2642
End_Class
2643

    
2644
// CoClass
2645
// ProgID: VDFCodeMax.Control.12.1
2646
// CLSID: {BEAAFD39-5471-456B-914B-2BF380B03C15}
2647
// VDFCodeMax 4.0 Edit Control
2648
{ CLSID="{BEAAFD39-5471-456B-914B-2BF380B03C15}" }
2649
Class cComCodeMax is a cComActiveXControl
2650
    Import_Class_Protocol cComICodeMax
2651
    Import_Class_Protocol cComICodeMaxEvents
2652

    
2653
    Procedure Construct_Object
2654
        Forward Send Construct_Object
2655
        Set psProgID to "{BEAAFD39-5471-456B-914B-2BF380B03C15}"
2656
        Set psEventId to "{5CFD5C90-62A7-4D5B-ACA0-AE8655BC1F82}"
2657
        Set peAutoCreate to acDeferredAutoCreate
2658
    End_Procedure
2659
End_Class
2660

    
2661
// CLSID: {BEA004CF-0264-445A-B014-C3E28FCF05D5}
2662
// IRange Interface
2663
Class cComIRange is a Mixin
2664

    
2665
    // The anchor line pos
2666
    { MethodType=Property DesignTime=False }
2667
    Procedure Set ComStartLineNo Integer value
2668
        Handle hDispatchDriver
2669
        Get phDispatchDriver to hDispatchDriver
2670
        Send PrepareParams to hDispatchDriver 1
2671
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
2672
    End_Procedure
2673

    
2674
    // The anchor line pos
2675
    { MethodType=Property DesignTime=False }
2676
    Function ComStartLineNo Returns Integer
2677
        Handle hDispatchDriver
2678
        Integer retVal
2679
        Get phDispatchDriver to hDispatchDriver
2680
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
2681
        Function_Return retVal
2682
    End_Function
2683

    
2684
    // The anchor column pos
2685
    { MethodType=Property DesignTime=False }
2686
    Procedure Set ComStartColNo Integer value
2687
        Handle hDispatchDriver
2688
        Get phDispatchDriver to hDispatchDriver
2689
        Send PrepareParams to hDispatchDriver 1
2690
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
2691
    End_Procedure
2692

    
2693
    // The anchor column pos
2694
    { MethodType=Property DesignTime=False }
2695
    Function ComStartColNo Returns Integer
2696
        Handle hDispatchDriver
2697
        Integer retVal
2698
        Get phDispatchDriver to hDispatchDriver
2699
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2700
        Function_Return retVal
2701
    End_Function
2702

    
2703
    // The extension line pos
2704
    { MethodType=Property DesignTime=False }
2705
    Procedure Set ComEndLineNo Integer value
2706
        Handle hDispatchDriver
2707
        Get phDispatchDriver to hDispatchDriver
2708
        Send PrepareParams to hDispatchDriver 1
2709
        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
2710
    End_Procedure
2711

    
2712
    // The extension line pos
2713
    { MethodType=Property DesignTime=False }
2714
    Function ComEndLineNo Returns Integer
2715
        Handle hDispatchDriver
2716
        Integer retVal
2717
        Get phDispatchDriver to hDispatchDriver
2718
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
2719
        Function_Return retVal
2720
    End_Function
2721

    
2722
    // The extension col pos
2723
    { MethodType=Property DesignTime=False }
2724
    Procedure Set ComEndColNo Integer value
2725
        Handle hDispatchDriver
2726
        Get phDispatchDriver to hDispatchDriver
2727
        Send PrepareParams to hDispatchDriver 1
2728
        Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
2729
    End_Procedure
2730

    
2731
    // The extension col pos
2732
    { MethodType=Property DesignTime=False }
2733
    Function ComEndColNo Returns Integer
2734
        Handle hDispatchDriver
2735
        Integer retVal
2736
        Get phDispatchDriver to hDispatchDriver
2737
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
2738
        Function_Return retVal
2739
    End_Function
2740

    
2741
    // Column selection mode - on/off
2742
    { MethodType=Property DesignTime=False }
2743
    Procedure Set ComColumnSel Boolean value
2744
        Handle hDispatchDriver
2745
        Get phDispatchDriver to hDispatchDriver
2746
        Send PrepareParams to hDispatchDriver 1
2747
        Set ComProperty of hDispatchDriver 7 OLE_VT_BOOL to value
2748
    End_Procedure
2749

    
2750
    // Column selection mode - on/off
2751
    { MethodType=Property DesignTime=False }
2752
    Function ComColumnSel Returns Boolean
2753
        Handle hDispatchDriver
2754
        Boolean retVal
2755
        Get phDispatchDriver to hDispatchDriver
2756
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
2757
        Function_Return retVal
2758
    End_Function
2759

    
2760
    // True if range is empty
2761
    Function ComIsEmpty Returns Boolean
2762
        Handle hDispatchDriver
2763
        Boolean retVal
2764
        Get phDispatchDriver to hDispatchDriver
2765
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BOOL to retVal
2766
        Function_Return retVal
2767
    End_Function
2768

    
2769
    // Makes the range empty
2770
    Procedure ComEmpty
2771
        Handle hDispatchDriver
2772
        Get phDispatchDriver to hDispatchDriver
2773
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
2774
    End_Procedure
2775

    
2776
    // Makes sure the anchor is before the extension
2777
    Procedure ComNormalize
2778
        Handle hDispatchDriver
2779
        Get phDispatchDriver to hDispatchDriver
2780
        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
2781
    End_Procedure
2782
End_Class
2783

    
2784
// CoClass
2785
// ProgID: CodeMax.Range.4
2786
// CLSID: {61C7938B-C241-4454-AC85-0FF831765285}
2787
// Range Class
2788
Class cComRange is a cComAutomationObject
2789
    Import_Class_Protocol cComIRange
2790

    
2791
    Procedure Construct_Object
2792
        Forward Send Construct_Object
2793
        Set psProgID to "{61C7938B-C241-4454-AC85-0FF831765285}"
2794
        Set peAutoCreate to acNoAutoCreate
2795
    End_Procedure
2796
End_Class
2797

    
2798
// CLSID: {ABFE9C44-802A-4807-B47F-BCE4C278B7CC}
2799
// IPosition Interface
2800
Class cComIPosition is a Mixin
2801

    
2802
    // The line position
2803
    { MethodType=Property DesignTime=False }
2804
    Procedure Set ComLineNo Integer value
2805
        Handle hDispatchDriver
2806
        Get phDispatchDriver to hDispatchDriver
2807
        Send PrepareParams to hDispatchDriver 1
2808
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
2809
    End_Procedure
2810

    
2811
    // The line position
2812
    { MethodType=Property DesignTime=False }
2813
    Function ComLineNo Returns Integer
2814
        Handle hDispatchDriver
2815
        Integer retVal
2816
        Get phDispatchDriver to hDispatchDriver
2817
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
2818
        Function_Return retVal
2819
    End_Function
2820

    
2821
    // The line position
2822
    { MethodType=Property DesignTime=False }
2823
    Procedure Set ComColNo Integer value
2824
        Handle hDispatchDriver
2825
        Get phDispatchDriver to hDispatchDriver
2826
        Send PrepareParams to hDispatchDriver 1
2827
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
2828
    End_Procedure
2829

    
2830
    // The line position
2831
    { MethodType=Property DesignTime=False }
2832
    Function ComColNo Returns Integer
2833
        Handle hDispatchDriver
2834
        Integer retVal
2835
        Get phDispatchDriver to hDispatchDriver
2836
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2837
        Function_Return retVal
2838
    End_Function
2839
End_Class
2840

    
2841
// CoClass
2842
// ProgID: CodeMax.Position.4
2843
// CLSID: {B73F6939-35BA-4976-A30C-4B2F0177D054}
2844
// Position Class
2845
Class cComPosition is a cComAutomationObject
2846
    Import_Class_Protocol cComIPosition
2847

    
2848
    Procedure Construct_Object
2849
        Forward Send Construct_Object
2850
        Set psProgID to "{B73F6939-35BA-4976-A30C-4B2F0177D054}"
2851
        Set peAutoCreate to acNoAutoCreate
2852
    End_Procedure
2853
End_Class
2854

    
2855
// CLSID: {E51BF138-7EF0-457C-A1D2-A537777ADB78}
2856
// ILanguage Interface
2857
Class cComILanguage is a Mixin
2858

    
2859
    // The global collection of registered languages, if language registered
2860
    { MethodType=Property DesignTime=False }
2861
    Function ComParent Returns Variant
2862
        Handle hDispatchDriver
2863
        Variant retVal
2864
        Get phDispatchDriver to hDispatchDriver
2865
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
2866
        Function_Return retVal
2867
    End_Function
2868

    
2869
    // The name of the language
2870
    { MethodType=Property DesignTime=False }
2871
    Procedure Set ComName String value
2872
        Handle hDispatchDriver
2873
        Get phDispatchDriver to hDispatchDriver
2874
        Send PrepareParams to hDispatchDriver 1
2875
        Set ComProperty of hDispatchDriver -800 OLE_VT_BSTR to value
2876
    End_Procedure
2877

    
2878
    // The name of the language
2879
    { MethodType=Property DesignTime=False }
2880
    Function ComName Returns String
2881
        Handle hDispatchDriver
2882
        String retVal
2883
        Get phDispatchDriver to hDispatchDriver
2884
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
2885
        Function_Return retVal
2886
    End_Function
2887

    
2888
    // Registers a language for use in CodeMax controls
2889
    Procedure ComRegister
2890
        Handle hDispatchDriver
2891
        Get phDispatchDriver to hDispatchDriver
2892
        Send InvokeComMethod to hDispatchDriver 0 OLE_VT_VOID
2893
    End_Procedure
2894

    
2895
    // Unregisters a language by name or object
2896
    Procedure ComUnregister
2897
        Handle hDispatchDriver
2898
        Get phDispatchDriver to hDispatchDriver
2899
        Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
2900
    End_Procedure
2901

    
2902
    // the collection of tokensets
2903
    { MethodType=Property DesignTime=False }
2904
    Function ComTokenSets Returns Variant
2905
        Handle hDispatchDriver
2906
        Variant retVal
2907
        Get phDispatchDriver to hDispatchDriver
2908
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_DISPATCH to retVal
2909
        Function_Return retVal
2910
    End_Function
2911

    
2912
    // the language definition as XML
2913
    { MethodType=Property DesignTime=False }
2914
    Procedure Set ComXml String value
2915
        Handle hDispatchDriver
2916
        Get phDispatchDriver to hDispatchDriver
2917
        Send PrepareParams to hDispatchDriver 1
2918
        Set ComProperty of hDispatchDriver 3 OLE_VT_BSTR to value
2919
    End_Procedure
2920

    
2921
    // the language definition as XML
2922
    { MethodType=Property DesignTime=False }
2923
    Function ComXml Returns String
2924
        Handle hDispatchDriver
2925
        String retVal
2926
        Get phDispatchDriver to hDispatchDriver
2927
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
2928
        Function_Return retVal
2929
    End_Function
2930

    
2931
    // Retrieves a language definition from an XML file
2932
    Procedure ComLoadXmlDefinition String llFileName
2933
        Handle hDispatchDriver
2934
        Get phDispatchDriver to hDispatchDriver
2935
        Send PrepareParams to hDispatchDriver 1
2936
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
2937
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
2938
    End_Procedure
2939

    
2940
    // Saves a language definition to an XML file
2941
    Procedure ComSaveXmlDefinition String llFileName
2942
        Handle hDispatchDriver
2943
        Get phDispatchDriver to hDispatchDriver
2944
        Send PrepareParams to hDispatchDriver 1
2945
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
2946
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
2947
    End_Procedure
2948

    
2949
    // The characters defining an identifier.  Must be a regular expression (e.g. [a-zA-Z_] or [w]).
2950
    { MethodType=Property DesignTime=False }
2951
    Procedure Set ComWordChars String value
2952
        Handle hDispatchDriver
2953
        Get phDispatchDriver to hDispatchDriver
2954
        Send PrepareParams to hDispatchDriver 1
2955
        Set ComProperty of hDispatchDriver 6 OLE_VT_BSTR to value
2956
    End_Procedure
2957

    
2958
    // The characters defining an identifier.  Must be a regular expression (e.g. [a-zA-Z_] or [w]).
2959
    { MethodType=Property DesignTime=False }
2960
    Function ComWordChars Returns String
2961
        Handle hDispatchDriver
2962
        String retVal
2963
        Get phDispatchDriver to hDispatchDriver
2964
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
2965
        Function_Return retVal
2966
    End_Function
2967

    
2968
    // The default member list to display when invoked by the user
2969
    { MethodType=Property DesignTime=False }
2970
    Function ComMemberList Returns Variant
2971
        Handle hDispatchDriver
2972
        Variant retVal
2973
        Get phDispatchDriver to hDispatchDriver
2974
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_DISPATCH to retVal
2975
        Function_Return retVal
2976
    End_Function
2977

    
2978
    // The default member list to display when invoked by the user
2979
    { MethodType=Property DesignTime=False }
2980
    Procedure Set ComMemberList Variant value
2981
        Handle hDispatchDriver
2982
        Get phDispatchDriver to hDispatchDriver
2983
        Send PrepareParams to hDispatchDriver 1
2984
        Set ComProperty of hDispatchDriver 7 OLE_VT_DISPATCH to value
2985
    End_Procedure
2986

    
2987
    // True if whitespace can start a parameter block
2988
    { MethodType=Property DesignTime=False }
2989
    Function ComWhitespaceAsParamBlock Returns Boolean
2990
        Handle hDispatchDriver
2991
        Boolean retVal
2992
        Get phDispatchDriver to hDispatchDriver
2993
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal
2994
        Function_Return retVal
2995
    End_Function
2996

    
2997
    // True if whitespace can start a parameter block
2998
    { MethodType=Property DesignTime=False }
2999
    Procedure Set ComWhitespaceAsParamBlock Boolean value
3000
        Handle hDispatchDriver
3001
        Get phDispatchDriver to hDispatchDriver
3002
        Send PrepareParams to hDispatchDriver 1
3003
        Set ComProperty of hDispatchDriver 8 OLE_VT_BOOL to value
3004
    End_Procedure
3005
End_Class
3006

    
3007
// CoClass
3008
// ProgID: CodeMax.Language.4
3009
// CLSID: {636C078C-32F1-4809-A883-D02CD0E1580C}
3010
// Language Class
3011
Class cComLanguage is a cComAutomationObject
3012
    Import_Class_Protocol cComILanguage
3013

    
3014
    Procedure Construct_Object
3015
        Forward Send Construct_Object
3016
        Set psProgID to "{636C078C-32F1-4809-A883-D02CD0E1580C}"
3017
        Set peAutoCreate to acNoAutoCreate
3018
    End_Procedure
3019
End_Class
3020

    
3021
// CLSID: {73342D82-1EFC-4199-A9E2-EB54BAF7C179}
3022
// ITokenSet Interface
3023
Class cComITokenSet is a Mixin
3024

    
3025
    // The language which owns this object
3026
    { MethodType=Property DesignTime=False }
3027
    Function ComParent Returns Variant
3028
        Handle hDispatchDriver
3029
        Variant retVal
3030
        Get phDispatchDriver to hDispatchDriver
3031
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
3032
        Function_Return retVal
3033
    End_Function
3034

    
3035
    // The name of the tokenset
3036
    { MethodType=Property DesignTime=False }
3037
    Procedure Set ComName String value
3038
        Handle hDispatchDriver
3039
        Get phDispatchDriver to hDispatchDriver
3040
        Send PrepareParams to hDispatchDriver 1
3041
        Set ComProperty of hDispatchDriver -800 OLE_VT_BSTR to value
3042
    End_Procedure
3043

    
3044
    // The name of the tokenset
3045
    { MethodType=Property DesignTime=False }
3046
    Function ComName Returns String
3047
        Handle hDispatchDriver
3048
        String retVal
3049
        Get phDispatchDriver to hDispatchDriver
3050
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
3051
        Function_Return retVal
3052
    End_Function
3053

    
3054
    // Tokenset identifier
3055
    { MethodType=Property DesignTime=False }
3056
    Procedure Set ComId OLEcmTokenSetID value
3057
        Handle hDispatchDriver
3058
        Get phDispatchDriver to hDispatchDriver
3059
        Send PrepareParams to hDispatchDriver 1
3060
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
3061
    End_Procedure
3062

    
3063
    // Tokenset identifier
3064
    { MethodType=Property DesignTime=False }
3065
    Function ComId Returns OLEcmTokenSetID
3066
        Handle hDispatchDriver
3067
        OLEcmTokenSetID retVal
3068
        Get phDispatchDriver to hDispatchDriver
3069
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
3070
        Function_Return retVal
3071
    End_Function
3072

    
3073
    // Tokenset type (scope or keyword list)
3074
    { MethodType=Property DesignTime=False }
3075
    Procedure Set ComType OLEcmTokenSetType value
3076
        Handle hDispatchDriver
3077
        Get phDispatchDriver to hDispatchDriver
3078
        Send PrepareParams to hDispatchDriver 1
3079
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
3080
    End_Procedure
3081

    
3082
    // Tokenset type (scope or keyword list)
3083
    { MethodType=Property DesignTime=False }
3084
    Function ComType Returns OLEcmTokenSetType
3085
        Handle hDispatchDriver
3086
        OLEcmTokenSetType retVal
3087
        Get phDispatchDriver to hDispatchDriver
3088
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3089
        Function_Return retVal
3090
    End_Function
3091

    
3092
    // Tokenset is case-sensitive
3093
    { MethodType=Property DesignTime=False }
3094
    Procedure Set ComCaseSensitive Boolean value
3095
        Handle hDispatchDriver
3096
        Get phDispatchDriver to hDispatchDriver
3097
        Send PrepareParams to hDispatchDriver 1
3098
        Set ComProperty of hDispatchDriver 2 OLE_VT_BOOL to value
3099
    End_Procedure
3100

    
3101
    // Tokenset is case-sensitive
3102
    { MethodType=Property DesignTime=False }
3103
    Function ComCaseSensitive Returns Boolean
3104
        Handle hDispatchDriver
3105
        Boolean retVal
3106
        Get phDispatchDriver to hDispatchDriver
3107
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
3108
        Function_Return retVal
3109
    End_Function
3110

    
3111
    // Fixup keyword case on-the-fly (on/off)
3112
    { MethodType=Property DesignTime=False }
3113
    Procedure Set ComNormalizeCase Boolean value
3114
        Handle hDispatchDriver
3115
        Get phDispatchDriver to hDispatchDriver
3116
        Send PrepareParams to hDispatchDriver 1
3117
        Set ComProperty of hDispatchDriver 3 OLE_VT_BOOL to value
3118
    End_Procedure
3119

    
3120
    // Fixup keyword case on-the-fly (on/off)
3121
    { MethodType=Property DesignTime=False }
3122
    Function ComNormalizeCase Returns Boolean
3123
        Handle hDispatchDriver
3124
        Boolean retVal
3125
        Get phDispatchDriver to hDispatchDriver
3126
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BOOL to retVal
3127
        Function_Return retVal
3128
    End_Function
3129

    
3130
    // font style (bold, italic, underline, normal, etc.)
3131
    { MethodType=Property DesignTime=False }
3132
    Procedure Set ComFontStyle OLEcmFontStyle value
3133
        Handle hDispatchDriver
3134
        Get phDispatchDriver to hDispatchDriver
3135
        Send PrepareParams to hDispatchDriver 1
3136
        Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
3137
    End_Procedure
3138

    
3139
    // font style (bold, italic, underline, normal, etc.)
3140
    { MethodType=Property DesignTime=False }
3141
    Function ComFontStyle Returns OLEcmFontStyle
3142
        Handle hDispatchDriver
3143
        OLEcmFontStyle retVal
3144
        Get phDispatchDriver to hDispatchDriver
3145
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
3146
        Function_Return retVal
3147
    End_Function
3148

    
3149
    // foreground color
3150
    { MethodType=Property DesignTime=False }
3151
    Procedure Set ComForeColor Integer value
3152
        Handle hDispatchDriver
3153
        Get phDispatchDriver to hDispatchDriver
3154
        Send PrepareParams to hDispatchDriver 1
3155
        Set ComProperty of hDispatchDriver -513 OLE_VT_I4 to value
3156
    End_Procedure
3157

    
3158
    // foreground color
3159
    { MethodType=Property DesignTime=False }
3160
    Function ComForeColor Returns Integer
3161
        Handle hDispatchDriver
3162
        Integer retVal
3163
        Get phDispatchDriver to hDispatchDriver
3164
        Get InvokeComMethod of hDispatchDriver -513 OLE_VT_I4 to retVal
3165
        Function_Return retVal
3166
    End_Function
3167

    
3168
    // background color
3169
    { MethodType=Property DesignTime=False }
3170
    Procedure Set ComBackColor Integer value
3171
        Handle hDispatchDriver
3172
        Get phDispatchDriver to hDispatchDriver
3173
        Send PrepareParams to hDispatchDriver 1
3174
        Set ComProperty of hDispatchDriver -501 OLE_VT_I4 to value
3175
    End_Procedure
3176

    
3177
    // background color
3178
    { MethodType=Property DesignTime=False }
3179
    Function ComBackColor Returns Integer
3180
        Handle hDispatchDriver
3181
        Integer retVal
3182
        Get phDispatchDriver to hDispatchDriver
3183
        Get InvokeComMethod of hDispatchDriver -501 OLE_VT_I4 to retVal
3184
        Function_Return retVal
3185
    End_Function
3186

    
3187
    // Tokenset definition is hidden to the user
3188
    { MethodType=Property DesignTime=False }
3189
    Procedure Set ComHidden Boolean value
3190
        Handle hDispatchDriver
3191
        Get phDispatchDriver to hDispatchDriver
3192
        Send PrepareParams to hDispatchDriver 1
3193
        Set ComProperty of hDispatchDriver 5 OLE_VT_BOOL to value
3194
    End_Procedure
3195

    
3196
    // Tokenset definition is hidden to the user
3197
    { MethodType=Property DesignTime=False }
3198
    Function ComHidden Returns Boolean
3199
        Handle hDispatchDriver
3200
        Boolean retVal
3201
        Get phDispatchDriver to hDispatchDriver
3202
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
3203
        Function_Return retVal
3204
    End_Function
3205

    
3206
    // Tokenset represents scope which supports auto-indent
3207
    { MethodType=Property DesignTime=False }
3208
    Procedure Set ComAutoIndent Boolean value
3209
        Handle hDispatchDriver
3210
        Get phDispatchDriver to hDispatchDriver
3211
        Send PrepareParams to hDispatchDriver 1
3212
        Set ComProperty of hDispatchDriver 14 OLE_VT_BOOL to value
3213
    End_Procedure
3214

    
3215
    // Tokenset represents scope which supports auto-indent
3216
    { MethodType=Property DesignTime=False }
3217
    Function ComAutoIndent Returns Boolean
3218
        Handle hDispatchDriver
3219
        Boolean retVal
3220
        Get phDispatchDriver to hDispatchDriver
3221
        Get InvokeComMethod of hDispatchDriver 14 OLE_VT_BOOL to retVal
3222
        Function_Return retVal
3223
    End_Function
3224

    
3225
    // Tokenset represents scope which auto-terminates at end of line
3226
    { MethodType=Property DesignTime=False }
3227
    Procedure Set ComSingleLineScope Boolean value
3228
        Handle hDispatchDriver
3229
        Get phDispatchDriver to hDispatchDriver
3230
        Send PrepareParams to hDispatchDriver 1
3231
        Set ComProperty of hDispatchDriver 15 OLE_VT_BOOL to value
3232
    End_Procedure
3233

    
3234
    // Tokenset represents scope which auto-terminates at end of line
3235
    { MethodType=Property DesignTime=False }
3236
    Function ComSingleLineScope Returns Boolean
3237
        Handle hDispatchDriver
3238
        Boolean retVal
3239
        Get phDispatchDriver to hDispatchDriver
3240
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_BOOL to retVal
3241
        Function_Return retVal
3242
    End_Function
3243

    
3244
    // Tokenset represents scope which can chain together with itself (e.g. if else else else end)
3245
    { MethodType=Property DesignTime=False }
3246
    Procedure Set ComChain Boolean value
3247
        Handle hDispatchDriver
3248
        Get phDispatchDriver to hDispatchDriver
3249
        Send PrepareParams to hDispatchDriver 1
3250
        Set ComProperty of hDispatchDriver 16 OLE_VT_BOOL to value
3251
    End_Procedure
3252

    
3253
    // Tokenset represents scope which can chain together with itself (e.g. if else else else end)
3254
    { MethodType=Property DesignTime=False }
3255
    Function ComChain Returns Boolean
3256
        Handle hDispatchDriver
3257
        Boolean retVal
3258
        Get phDispatchDriver to hDispatchDriver
3259
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_BOOL to retVal
3260
        Function_Return retVal
3261
    End_Function
3262

    
3263
    // Tokenset to inherit color and font settings from
3264
    { MethodType=Property DesignTime=False }
3265
    Procedure Set ComInheritFrom Variant value
3266
        Handle hDispatchDriver
3267
        Get phDispatchDriver to hDispatchDriver
3268
        Send PrepareParams to hDispatchDriver 1
3269
        Set ComProperty of hDispatchDriver 17 OLE_VT_DISPATCH to value
3270
    End_Procedure
3271

    
3272
    // Tokenset to inherit color and font settings from
3273
    { MethodType=Property DesignTime=False }
3274
    Function ComInheritFrom Returns Variant
3275
        Handle hDispatchDriver
3276
        Variant retVal
3277
        Get phDispatchDriver to hDispatchDriver
3278
        Get InvokeComMethod of hDispatchDriver 17 OLE_VT_DISPATCH to retVal
3279
        Function_Return retVal
3280
    End_Function
3281

    
3282
    // The scopes this tokenset is valid in
3283
    { MethodType=Property DesignTime=False }
3284
    Function ComValidScopes Returns Variant
3285
        Handle hDispatchDriver
3286
        Variant retVal
3287
        Get phDispatchDriver to hDispatchDriver
3288
        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_DISPATCH to retVal
3289
        Function_Return retVal
3290
    End_Function
3291

    
3292
    // The primary token collection
3293
    { MethodType=Property DesignTime=False }
3294
    Function ComTokens Returns Variant
3295
        Handle hDispatchDriver
3296
        Variant retVal
3297
        Get phDispatchDriver to hDispatchDriver
3298
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_DISPATCH to retVal
3299
        Function_Return retVal
3300
    End_Function
3301

    
3302
    // The secondary token collection
3303
    { MethodType=Property DesignTime=False }
3304
    Function ComTokens2 Returns Variant
3305
        Handle hDispatchDriver
3306
        Variant retVal
3307
        Get phDispatchDriver to hDispatchDriver
3308
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_DISPATCH to retVal
3309
        Function_Return retVal
3310
    End_Function
3311

    
3312
    // Match scope end tokens only if interior scopes are fully closed
3313
    { MethodType=Property DesignTime=False }
3314
    Procedure Set ComSymmetrical Boolean value
3315
        Handle hDispatchDriver
3316
        Get phDispatchDriver to hDispatchDriver
3317
        Send PrepareParams to hDispatchDriver 1
3318
        Set ComProperty of hDispatchDriver 21 OLE_VT_BOOL to value
3319
    End_Procedure
3320

    
3321
    // Match scope end tokens only if interior scopes are fully closed
3322
    { MethodType=Property DesignTime=False }
3323
    Function ComSymmetrical Returns Boolean
3324
        Handle hDispatchDriver
3325
        Boolean retVal
3326
        Get phDispatchDriver to hDispatchDriver
3327
        Get InvokeComMethod of hDispatchDriver 21 OLE_VT_BOOL to retVal
3328
        Function_Return retVal
3329
    End_Function
3330

    
3331
    // The member list to display when invoked by the user while the caret is inside this scope or immediately after a token in this collection
3332
    { MethodType=Property DesignTime=False }
3333
    Function ComMemberList Returns Variant
3334
        Handle hDispatchDriver
3335
        Variant retVal
3336
        Get phDispatchDriver to hDispatchDriver
3337
        Get InvokeComMethod of hDispatchDriver 22 OLE_VT_DISPATCH to retVal
3338
        Function_Return retVal
3339
    End_Function
3340

    
3341
    // The member list to display when invoked by the user while the caret is inside this scope or immediately after a token in this collection
3342
    { MethodType=Property DesignTime=False }
3343
    Procedure Set ComMemberList Variant value
3344
        Handle hDispatchDriver
3345
        Get phDispatchDriver to hDispatchDriver
3346
        Send PrepareParams to hDispatchDriver 1
3347
        Set ComProperty of hDispatchDriver 22 OLE_VT_DISPATCH to value
3348
    End_Procedure
3349

    
3350
    // Allow brace matching to occur on this tokenset
3351
    { MethodType=Property DesignTime=False }
3352
    Procedure Set ComMatchBraces Boolean value
3353
        Handle hDispatchDriver
3354
        Get phDispatchDriver to hDispatchDriver
3355
        Send PrepareParams to hDispatchDriver 1
3356
        Set ComProperty of hDispatchDriver 23 OLE_VT_BOOL to value
3357
    End_Procedure
3358

    
3359
    // Allow brace matching to occur on this tokenset
3360
    { MethodType=Property DesignTime=False }
3361
    Function ComMatchBraces Returns Boolean
3362
        Handle hDispatchDriver
3363
        Boolean retVal
3364
        Get phDispatchDriver to hDispatchDriver
3365
        Get InvokeComMethod of hDispatchDriver 23 OLE_VT_BOOL to retVal
3366
        Function_Return retVal
3367
    End_Function
3368

    
3369
    // Enable/disable tokenset while parsing (True = Enable)
3370
    { MethodType=Property DesignTime=False }
3371
    Procedure Set ComEnabled Boolean value
3372
        Handle hDispatchDriver
3373
        Get phDispatchDriver to hDispatchDriver
3374
        Send PrepareParams to hDispatchDriver 1
3375
        Set ComProperty of hDispatchDriver 24 OLE_VT_BOOL to value
3376
    End_Procedure
3377

    
3378
    // Enable/disable tokenset while parsing (True = Enable)
3379
    { MethodType=Property DesignTime=False }
3380
    Function ComEnabled Returns Boolean
3381
        Handle hDispatchDriver
3382
        Boolean retVal
3383
        Get phDispatchDriver to hDispatchDriver
3384
        Get InvokeComMethod of hDispatchDriver 24 OLE_VT_BOOL to retVal
3385
        Function_Return retVal
3386
    End_Function
3387
End_Class
3388

    
3389
// CoClass
3390
// ProgID: CodeMax.TokenSet.4
3391
// CLSID: {5F449D4B-2D24-43F8-B5EC-647397498D7F}
3392
// TokenSet Class
3393
Class cComTokenSet is a cComAutomationObject
3394
    Import_Class_Protocol cComITokenSet
3395

    
3396
    Procedure Construct_Object
3397
        Forward Send Construct_Object
3398
        Set psProgID to "{5F449D4B-2D24-43F8-B5EC-647397498D7F}"
3399
        Set peAutoCreate to acNoAutoCreate
3400
    End_Procedure
3401
End_Class
3402

    
3403
// CLSID: {9179C900-05C8-4DC3-A88D-C154B19F6E76}
3404
// HotKey Interface
3405
Class cComIHotKey is a Mixin
3406

    
3407
    // The modifiers for keystroke #1
3408
    { MethodType=Property DesignTime=False }
3409
    Procedure Set ComModifiers1 Integer value
3410
        Handle hDispatchDriver
3411
        Get phDispatchDriver to hDispatchDriver
3412
        Send PrepareParams to hDispatchDriver 1
3413
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
3414
    End_Procedure
3415

    
3416
    // The modifiers for keystroke #1
3417
    { MethodType=Property DesignTime=False }
3418
    Function ComModifiers1 Returns Integer
3419
        Handle hDispatchDriver
3420
        Integer retVal
3421
        Get phDispatchDriver to hDispatchDriver
3422
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3423
        Function_Return retVal
3424
    End_Function
3425

    
3426
    // The virtual key for keystroke #1 as a one-character string
3427
    { MethodType=Property DesignTime=False }
3428
    Procedure Set ComVirtKey1 String value
3429
        Handle hDispatchDriver
3430
        Get phDispatchDriver to hDispatchDriver
3431
        Send PrepareParams to hDispatchDriver 1
3432
        Set ComProperty of hDispatchDriver 2 OLE_VT_BSTR to value
3433
    End_Procedure
3434

    
3435
    // The virtual key for keystroke #1 as a one-character string
3436
    { MethodType=Property DesignTime=False }
3437
    Function ComVirtKey1 Returns String
3438
        Handle hDispatchDriver
3439
        String retVal
3440
        Get phDispatchDriver to hDispatchDriver
3441
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
3442
        Function_Return retVal
3443
    End_Function
3444

    
3445
    // The modifiers for keystroke #2
3446
    { MethodType=Property DesignTime=False }
3447
    Procedure Set ComModifiers2 Integer value
3448
        Handle hDispatchDriver
3449
        Get phDispatchDriver to hDispatchDriver
3450
        Send PrepareParams to hDispatchDriver 1
3451
        Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
3452
    End_Procedure
3453

    
3454
    // The modifiers for keystroke #2
3455
    { MethodType=Property DesignTime=False }
3456
    Function ComModifiers2 Returns Integer
3457
        Handle hDispatchDriver
3458
        Integer retVal
3459
        Get phDispatchDriver to hDispatchDriver
3460
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
3461
        Function_Return retVal
3462
    End_Function
3463

    
3464
    // The virtual key for keystroke #2 as a one-character string
3465
    { MethodType=Property DesignTime=False }
3466
    Procedure Set ComVirtKey2 String value
3467
        Handle hDispatchDriver
3468
        Get phDispatchDriver to hDispatchDriver
3469
        Send PrepareParams to hDispatchDriver 1
3470
        Set ComProperty of hDispatchDriver 4 OLE_VT_BSTR to value
3471
    End_Procedure
3472

    
3473
    // The virtual key for keystroke #2 as a one-character string
3474
    { MethodType=Property DesignTime=False }
3475
    Function ComVirtKey2 Returns String
3476
        Handle hDispatchDriver
3477
        String retVal
3478
        Get phDispatchDriver to hDispatchDriver
3479
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BSTR to retVal
3480
        Function_Return retVal
3481
    End_Function
3482

    
3483
    // Bind this hotkey to a CodeMax command
3484
    Procedure ComBindTo OLEcmCommand llCmd
3485
        Handle hDispatchDriver
3486
        Get phDispatchDriver to hDispatchDriver
3487
        Send PrepareParams to hDispatchDriver 1
3488
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3489
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
3490
    End_Procedure
3491

    
3492
    // Unbind this hotkey from its associated CodeMax command
3493
    Procedure ComUnbind
3494
        Handle hDispatchDriver
3495
        Get phDispatchDriver to hDispatchDriver
3496
        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
3497
    End_Procedure
3498
End_Class
3499

    
3500
// CoClass
3501
// ProgID: CodeMax.HotKey.4
3502
// CLSID: {04F253A0-1D62-4809-9AC0-AE318D78A509}
3503
// HotKey Class
3504
Class cComHotKey is a cComAutomationObject
3505
    Import_Class_Protocol cComIHotKey
3506

    
3507
    Procedure Construct_Object
3508
        Forward Send Construct_Object
3509
        Set psProgID to "{04F253A0-1D62-4809-9AC0-AE318D78A509}"
3510
        Set peAutoCreate to acNoAutoCreate
3511
    End_Procedure
3512
End_Class
3513

    
3514
// CLSID: {8DF81C28-1098-4626-9584-7C26519C6F7B}
3515
// IGlobals Interface
3516
Class cComIGlobals is a Mixin
3517

    
3518

    
3519
    // Sets the MRU list displayed in the Find/Find-Replace dialog boxes, delimited by 
3520
    // 
3521
    { MethodType=Property DesignTime=False }
3522
    Procedure Set ComFindMRUList String value
3523
        Handle hDispatchDriver
3524
        Get phDispatchDriver to hDispatchDriver
3525
        Send PrepareParams to hDispatchDriver 1
3526
        Set ComProperty of hDispatchDriver 0 OLE_VT_BSTR to value
3527
    End_Procedure
3528

    
3529

    
3530
    // Sets the MRU list displayed in the Find/Find-Replace dialog boxes, delimited by 
3531
    // 
3532
    { MethodType=Property DesignTime=False }
3533
    Function ComFindMRUList Returns String
3534
        Handle hDispatchDriver
3535
        String retVal
3536
        Get phDispatchDriver to hDispatchDriver
3537
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BSTR to retVal
3538
        Function_Return retVal
3539
    End_Function
3540

    
3541
    // Sets the MRU list displayed in the Find-Replace dialog box
3542
    { MethodType=Property DesignTime=False }
3543
    Procedure Set ComReplaceMRUList String value
3544
        Handle hDispatchDriver
3545
        Get phDispatchDriver to hDispatchDriver
3546
        Send PrepareParams to hDispatchDriver 1
3547
        Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
3548
    End_Procedure
3549

    
3550
    // Sets the MRU list displayed in the Find-Replace dialog box
3551
    { MethodType=Property DesignTime=False }
3552
    Function ComReplaceMRUList Returns String
3553
        Handle hDispatchDriver
3554
        String retVal
3555
        Get phDispatchDriver to hDispatchDriver
3556
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
3557
        Function_Return retVal
3558
    End_Function
3559

    
3560
    // Retrieves the keyboard assignments into a buffer
3561
    Procedure ComGetHotKeys UChar[] ByRef llHotKeysBuff
3562
        Handle hDispatchDriver
3563
        Get phDispatchDriver to hDispatchDriver
3564
        Send PrepareParams to hDispatchDriver 1
3565
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llHotKeysBuff
3566
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
3567
    End_Procedure
3568

    
3569
    // Loads the keyboard assignments into CodeMax from a buffer
3570
    Procedure ComSetHotKeys UChar[] ByRef llHotKeysBuff
3571
        Handle hDispatchDriver
3572
        Get phDispatchDriver to hDispatchDriver
3573
        Send PrepareParams to hDispatchDriver 1
3574
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llHotKeysBuff
3575
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
3576
    End_Procedure
3577

    
3578
    // Resets all keyboards settings back to the factory settings
3579
    Procedure ComResetDefaultHotKeys
3580
        Handle hDispatchDriver
3581
        Get phDispatchDriver to hDispatchDriver
3582
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
3583
    End_Procedure
3584

    
3585
    // Returns the collection of hotkeys assigned to a CodeMax command
3586
    Function ComGetHotKeysForCmd OLEcmCommand llCmd Returns Variant
3587
        Handle hDispatchDriver
3588
        Variant retVal
3589
        Get phDispatchDriver to hDispatchDriver
3590
        Send PrepareParams to hDispatchDriver 1
3591
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3592
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_DISPATCH to retVal
3593
        Function_Return retVal
3594
    End_Function
3595

    
3596
    // Retrieves a human-readable title or description of a CodeMax command
3597
    Function ComGetCmdString OLEcmCommand llCmd Boolean llDescription Returns String
3598
        Handle hDispatchDriver
3599
        String retVal
3600
        Get phDispatchDriver to hDispatchDriver
3601
        Send PrepareParams to hDispatchDriver 2
3602
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3603
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llDescription
3604
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
3605
        Function_Return retVal
3606
    End_Function
3607

    
3608
    // Retrieves a macro definition into a byte buffer
3609
    Procedure ComGetMacro Integer llMacro UChar[] ByRef llMacroBuff
3610
        Handle hDispatchDriver
3611
        Get phDispatchDriver to hDispatchDriver
3612
        Send PrepareParams to hDispatchDriver 2
3613
        Send DefineParam to hDispatchDriver OLE_VT_I4 llMacro
3614
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llMacroBuff
3615
        Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
3616
    End_Procedure
3617

    
3618
    // Loads a macro into CodeMax from a buffer
3619
    Procedure ComSetMacro Integer llMacro UChar[] ByRef llMacroBuff
3620
        Handle hDispatchDriver
3621
        Get phDispatchDriver to hDispatchDriver
3622
        Send PrepareParams to hDispatchDriver 2
3623
        Send DefineParam to hDispatchDriver OLE_VT_I4 llMacro
3624
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llMacroBuff
3625
        Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
3626
    End_Procedure
3627

    
3628
    // Registers a custom command
3629
    Procedure ComRegisterCmd Integer llCmd String llName String llDescription
3630
        Handle hDispatchDriver
3631
        Get phDispatchDriver to hDispatchDriver
3632
        Send PrepareParams to hDispatchDriver 3
3633
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3634
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llName
3635
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llDescription
3636
        Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
3637
    End_Procedure
3638

    
3639
    // Unregisters a custom command registered with RegisterCommand()
3640
    Procedure ComUnregisterCmd Integer llCmd
3641
        Handle hDispatchDriver
3642
        Get phDispatchDriver to hDispatchDriver
3643
        Send PrepareParams to hDispatchDriver 1
3644
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3645
        Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
3646
    End_Procedure
3647

    
3648
    // Saves all global user settings to the Windows Registry
3649
    Procedure ComSaveSettingsToRegistry String llRegistryKeyPath
3650
        Handle hDispatchDriver
3651
        Get phDispatchDriver to hDispatchDriver
3652
        Send PrepareParams to hDispatchDriver 1
3653
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegistryKeyPath
3654
        Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
3655
    End_Procedure
3656

    
3657
    // Loads all global user settings from the Windows Registry
3658
    Procedure ComLoadSettingsFromRegistry String llRegistryKeyPath
3659
        Handle hDispatchDriver
3660
        Get phDispatchDriver to hDispatchDriver
3661
        Send PrepareParams to hDispatchDriver 1
3662
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegistryKeyPath
3663
        Send InvokeComMethod to hDispatchDriver 12 OLE_VT_VOID
3664
    End_Procedure
3665

    
3666
    // Saves all global user settings to a stream
3667
    Procedure ComSaveSettingsToStream Variant llStream
3668
        Handle hDispatchDriver
3669
        Get phDispatchDriver to hDispatchDriver
3670
        Send PrepareParams to hDispatchDriver 1
3671
        Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llStream
3672
        Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
3673
    End_Procedure
3674

    
3675
    // Loads all global user settings from a stream
3676
    Procedure ComLoadSettingsFromStream Variant llStream
3677
        Handle hDispatchDriver
3678
        Get phDispatchDriver to hDispatchDriver
3679
        Send PrepareParams to hDispatchDriver 1
3680
        Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llStream
3681
        Send InvokeComMethod to hDispatchDriver 14 OLE_VT_VOID
3682
    End_Procedure
3683

    
3684
    // Registers a custom token parsing rule
3685
    Procedure ComRegisterTokenRule Variant llTokenRule
3686
        Handle hDispatchDriver
3687
        Get phDispatchDriver to hDispatchDriver
3688
        Send PrepareParams to hDispatchDriver 1
3689
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llTokenRule
3690
        Send InvokeComMethod to hDispatchDriver 15 OLE_VT_VOID
3691
    End_Procedure
3692

    
3693
    // Unregisters a custom token parsing rule
3694
    Procedure ComUnregisterTokenRule Variant llTokenRule
3695
        Handle hDispatchDriver
3696
        Get phDispatchDriver to hDispatchDriver
3697
        Send PrepareParams to hDispatchDriver 1
3698
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llTokenRule
3699
        Send InvokeComMethod to hDispatchDriver 16 OLE_VT_VOID
3700
    End_Procedure
3701

    
3702
    // The master collection of all registered languages
3703
    { MethodType=Property DesignTime=False }
3704
    Function ComLanguages Returns Variant
3705
        Handle hDispatchDriver
3706
        Variant retVal
3707
        Get phDispatchDriver to hDispatchDriver
3708
        Get InvokeComMethod of hDispatchDriver 17 OLE_VT_DISPATCH to retVal
3709
        Function_Return retVal
3710
    End_Function
3711

    
3712
    // Test a regular expression for syntax errors
3713
    Function ComValidateRegExp String llRegExp Integer ByRef llErrorCol String ByRef llErrMsg Returns Boolean
3714
        Handle hDispatchDriver
3715
        Boolean retVal
3716
        Get phDispatchDriver to hDispatchDriver
3717
        Send PrepareParams to hDispatchDriver 3
3718
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegExp
3719
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llErrorCol
3720
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llErrMsg
3721
        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_BOOL to retVal
3722
        Function_Return retVal
3723
    End_Function
3724

    
3725
    // specifies how progress feedback should behave.
3726
    { MethodType=Property DesignTime=False }
3727
    Procedure Set ComProgressBehavior OLEcmProgressFlags value
3728
        Handle hDispatchDriver
3729
        Get phDispatchDriver to hDispatchDriver
3730
        Send PrepareParams to hDispatchDriver 1
3731
        Set ComProperty of hDispatchDriver 19 OLE_VT_I4 to value
3732
    End_Procedure
3733

    
3734
    // specifies how progress feedback should behave.
3735
    { MethodType=Property DesignTime=False }
3736
    Function ComProgressBehavior Returns OLEcmProgressFlags
3737
        Handle hDispatchDriver
3738
        OLEcmProgressFlags retVal
3739
        Get phDispatchDriver to hDispatchDriver
3740
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_I4 to retVal
3741
        Function_Return retVal
3742
    End_Function
3743

    
3744
    // A DLL whose resources should override those in the CodeMax DLL.
3745
    { MethodType=Property DesignTime=False }
3746
    Procedure Set ComResourceOverrideDLL String value
3747
        Handle hDispatchDriver
3748
        Get phDispatchDriver to hDispatchDriver
3749
        Send PrepareParams to hDispatchDriver 1
3750
        Set ComProperty of hDispatchDriver 20 OLE_VT_BSTR to value
3751
    End_Procedure
3752

    
3753
    // A DLL whose resources should override those in the CodeMax DLL.
3754
    { MethodType=Property DesignTime=False }
3755
    Function ComResourceOverrideDLL Returns String
3756
        Handle hDispatchDriver
3757
        String retVal
3758
        Get phDispatchDriver to hDispatchDriver
3759
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_BSTR to retVal
3760
        Function_Return retVal
3761
    End_Function
3762

    
3763
    // The master collection of all registered memberlists
3764
    { MethodType=Property DesignTime=False }
3765
    Function ComMemberLists Returns Variant
3766
        Handle hDispatchDriver
3767
        Variant retVal
3768
        Get phDispatchDriver to hDispatchDriver
3769
        Get InvokeComMethod of hDispatchDriver 21 OLE_VT_DISPATCH to retVal
3770
        Function_Return retVal
3771
    End_Function
3772
End_Class
3773

    
3774
// CoClass
3775
// ProgID: CodeMax.Globals.4
3776
// CLSID: {14503377-EC4A-410B-A065-6A5E27C66297}
3777
// Globals Class
3778
Class cComGlobals is a cComAutomationObject
3779
    Import_Class_Protocol cComIGlobals
3780

    
3781
    Procedure Construct_Object
3782
        Forward Send Construct_Object
3783
        Set psProgID to "{14503377-EC4A-410B-A065-6A5E27C66297}"
3784
        Set peAutoCreate to acNoAutoCreate
3785
    End_Procedure
3786
End_Class
3787

    
3788
// CLSID: {671D1FB6-1E93-45E0-8E29-23C9E459B7F4}
3789
// IRect Interface
3790
Class cComIRect is a Mixin
3791

    
3792
    // left
3793
    { MethodType=Property DesignTime=False }
3794
    Procedure Set ComLeft Integer value
3795
        Handle hDispatchDriver
3796
        Get phDispatchDriver to hDispatchDriver
3797
        Send PrepareParams to hDispatchDriver 1
3798
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
3799
    End_Procedure
3800

    
3801
    // left
3802
    { MethodType=Property DesignTime=False }
3803
    Function ComLeft Returns Integer
3804
        Handle hDispatchDriver
3805
        Integer retVal
3806
        Get phDispatchDriver to hDispatchDriver
3807
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
3808
        Function_Return retVal
3809
    End_Function
3810

    
3811
    // top
3812
    { MethodType=Property DesignTime=False }
3813
    Procedure Set ComTop Integer value
3814
        Handle hDispatchDriver
3815
        Get phDispatchDriver to hDispatchDriver
3816
        Send PrepareParams to hDispatchDriver 1
3817
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
3818
    End_Procedure
3819

    
3820
    // top
3821
    { MethodType=Property DesignTime=False }
3822
    Function ComTop Returns Integer
3823
        Handle hDispatchDriver
3824
        Integer retVal
3825
        Get phDispatchDriver to hDispatchDriver
3826
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3827
        Function_Return retVal
3828
    End_Function
3829

    
3830
    // right
3831
    { MethodType=Property DesignTime=False }
3832
    Procedure Set ComRight Integer value
3833
        Handle hDispatchDriver
3834
        Get phDispatchDriver to hDispatchDriver
3835
        Send PrepareParams to hDispatchDriver 1
3836
        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
3837
    End_Procedure
3838

    
3839
    // right
3840
    { MethodType=Property DesignTime=False }
3841
    Function ComRight Returns Integer
3842
        Handle hDispatchDriver
3843
        Integer retVal
3844
        Get phDispatchDriver to hDispatchDriver
3845
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
3846
        Function_Return retVal
3847
    End_Function
3848

    
3849
    // bottom
3850
    { MethodType=Property DesignTime=False }
3851
    Procedure Set ComBottom Integer value
3852
        Handle hDispatchDriver
3853
        Get phDispatchDriver to hDispatchDriver
3854
        Send PrepareParams to hDispatchDriver 1
3855
        Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
3856
    End_Procedure
3857

    
3858
    // bottom
3859
    { MethodType=Property DesignTime=False }
3860
    Function ComBottom Returns Integer
3861
        Handle hDispatchDriver
3862
        Integer retVal
3863
        Get phDispatchDriver to hDispatchDriver
3864
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
3865
        Function_Return retVal
3866
    End_Function
3867
End_Class
3868

    
3869
// CoClass
3870
// ProgID: CodeMax.Rect.4
3871
// CLSID: {EF8516DB-E70B-4431-B728-77627D36DAEF}
3872
// Rect Class
3873
Class cComRect is a cComAutomationObject
3874
    Import_Class_Protocol cComIRect
3875

    
3876
    Procedure Construct_Object
3877
        Forward Send Construct_Object
3878
        Set psProgID to "{EF8516DB-E70B-4431-B728-77627D36DAEF}"
3879
        Set peAutoCreate to acNoAutoCreate
3880
    End_Procedure
3881
End_Class
3882

    
3883
// CLSID: {4747B452-C1C9-459E-A941-0718544E3CED}
3884
// IMemberList Interface
3885
Class cComIMemberList is a Mixin
3886

    
3887
    // Get member by text or zero-based index
3888
    { MethodType=Property DesignTime=False }
3889
    Function ComItem Variant llIndex Returns Variant
3890
        Handle hDispatchDriver
3891
        Variant retVal
3892
        Get phDispatchDriver to hDispatchDriver
3893
        Send PrepareParams to hDispatchDriver 1
3894
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
3895
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
3896
        Function_Return retVal
3897
    End_Function
3898

    
3899
    // The associated language
3900
    { MethodType=Property DesignTime=False }
3901
    Procedure Set ComLanguage Variant value
3902
        Handle hDispatchDriver
3903
        Get phDispatchDriver to hDispatchDriver
3904
        Send PrepareParams to hDispatchDriver 1
3905
        Set ComProperty of hDispatchDriver 1 OLE_VT_DISPATCH to value
3906
    End_Procedure
3907

    
3908
    // The associated language
3909
    { MethodType=Property DesignTime=False }
3910
    Function ComLanguage Returns Variant
3911
        Handle hDispatchDriver
3912
        Variant retVal
3913
        Get phDispatchDriver to hDispatchDriver
3914
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_DISPATCH to retVal
3915
        Function_Return retVal
3916
    End_Function
3917

    
3918
    // Total number of members
3919
    { MethodType=Property DesignTime=False }
3920
    Function ComCount Returns Integer
3921
        Handle hDispatchDriver
3922
        Integer retVal
3923
        Get phDispatchDriver to hDispatchDriver
3924
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
3925
        Function_Return retVal
3926
    End_Function
3927

    
3928
    // The name of the member list
3929
    { MethodType=Property DesignTime=False }
3930
    Procedure Set ComName String value
3931
        Handle hDispatchDriver
3932
        Get phDispatchDriver to hDispatchDriver
3933
        Send PrepareParams to hDispatchDriver 1
3934
        Set ComProperty of hDispatchDriver -800 OLE_VT_BSTR to value
3935
    End_Procedure
3936

    
3937
    // The name of the member list
3938
    { MethodType=Property DesignTime=False }
3939
    Function ComName Returns String
3940
        Handle hDispatchDriver
3941
        String retVal
3942
        Get phDispatchDriver to hDispatchDriver
3943
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
3944
        Function_Return retVal
3945
    End_Function
3946

    
3947
    // Create and add a member to the collection
3948
    Function ComAdd String llName String llPrototype Short llImage Returns Variant
3949
        Handle hDispatchDriver
3950
        Variant retVal
3951
        Get phDispatchDriver to hDispatchDriver
3952
        Send PrepareParams to hDispatchDriver 3
3953
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llName
3954
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llPrototype
3955
        Send DefineParam to hDispatchDriver OLE_VT_I2 llImage
3956
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_DISPATCH to retVal
3957
        Function_Return retVal
3958
    End_Function
3959

    
3960
    // Additional member lists to include when this list displayed in the UI.
3961
    { MethodType=Property DesignTime=False }
3962
    Function ComInheritedLists Returns Variant
3963
        Handle hDispatchDriver
3964
        Variant retVal
3965
        Get phDispatchDriver to hDispatchDriver
3966
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_DISPATCH to retVal
3967
        Function_Return retVal
3968
    End_Function
3969

    
3970
    // removes a member from the collection by name, zero-based index, or object
3971
    Procedure ComRemove Variant llMember
3972
        Handle hDispatchDriver
3973
        Get phDispatchDriver to hDispatchDriver
3974
        Send PrepareParams to hDispatchDriver 1
3975
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llMember
3976
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
3977
    End_Procedure
3978

    
3979
    // removes all members
3980
    Procedure ComRemoveAll
3981
        Handle hDispatchDriver
3982
        Get phDispatchDriver to hDispatchDriver
3983
        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
3984
    End_Procedure
3985

    
3986
    // sets the line margin images
3987
    { MethodType=Property DesignTime=False }
3988
    Procedure Set ComHImageList OLE_HANDLE value
3989
        Handle hDispatchDriver
3990
        Get phDispatchDriver to hDispatchDriver
3991
        Send PrepareParams to hDispatchDriver 1
3992
        Set ComProperty of hDispatchDriver 7 OLE_VT_I4 to value
3993
    End_Procedure
3994

    
3995
    // sets the line margin images
3996
    { MethodType=Property DesignTime=False }
3997
    Function ComHImageList Returns OLE_HANDLE
3998
        Handle hDispatchDriver
3999
        OLE_HANDLE retVal
4000
        Get phDispatchDriver to hDispatchDriver
4001
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
4002
        Function_Return retVal
4003
    End_Function
4004

    
4005
    // retrieves the ImageList control to be used.  Try Imember.hImageList property if this fails.
4006
    { MethodType=Property DesignTime=False }
4007
    Function ComImageList Returns Variant
4008
        Handle hDispatchDriver
4009
        Variant retVal
4010
        Get phDispatchDriver to hDispatchDriver
4011
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_DISPATCH to retVal
4012
        Function_Return retVal
4013
    End_Function
4014

    
4015
    // retrieves the ImageList control to be used.  Try Imember.hImageList property if this fails.
4016
    { MethodType=Property DesignTime=False }
4017
    Procedure Set ComImageList Variant value
4018
        Handle hDispatchDriver
4019
        Get phDispatchDriver to hDispatchDriver
4020
        Send PrepareParams to hDispatchDriver 1
4021
        Set ComProperty of hDispatchDriver 8 OLE_VT_DISPATCH to value
4022
    End_Procedure
4023

    
4024
    // retrieves the ImageList control to be used.  Try Imember.hImageList property if this fails.
4025
    { MethodType=Property DesignTime=False }
4026
    Procedure Set ComImageListRef Variant value
4027
        Handle hDispatchDriver
4028
        Get phDispatchDriver to hDispatchDriver
4029
        Send PrepareParams to hDispatchDriver 1
4030
        Set ComProperty of hDispatchDriver 8 OLE_VT_DISPATCH to value
4031
    End_Procedure
4032

    
4033
    // Display images next to members
4034
    { MethodType=Property DesignTime=False }
4035
    Procedure Set ComShowImages Boolean value
4036
        Handle hDispatchDriver
4037
        Get phDispatchDriver to hDispatchDriver
4038
        Send PrepareParams to hDispatchDriver 1
4039
        Set ComProperty of hDispatchDriver 9 OLE_VT_BOOL to value
4040
    End_Procedure
4041

    
4042
    // Display images next to members
4043
    { MethodType=Property DesignTime=False }
4044
    Function ComShowImages Returns Boolean
4045
        Handle hDispatchDriver
4046
        Boolean retVal
4047
        Get phDispatchDriver to hDispatchDriver
4048
        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BOOL to retVal
4049
        Function_Return retVal
4050
    End_Function
4051

    
4052
    // the member list definition as XML
4053
    { MethodType=Property DesignTime=False }
4054
    Procedure Set ComXml String value
4055
        Handle hDispatchDriver
4056
        Get phDispatchDriver to hDispatchDriver
4057
        Send PrepareParams to hDispatchDriver 1
4058
        Set ComProperty of hDispatchDriver 10 OLE_VT_BSTR to value
4059
    End_Procedure
4060

    
4061
    // the member list definition as XML
4062
    { MethodType=Property DesignTime=False }
4063
    Function ComXml Returns String
4064
        Handle hDispatchDriver
4065
        String retVal
4066
        Get phDispatchDriver to hDispatchDriver
4067
        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_BSTR to retVal
4068
        Function_Return retVal
4069
    End_Function
4070

    
4071
    // Retrieves a member list definition from an XML file
4072
    Procedure ComLoadXmlDefinition String llFileName
4073
        Handle hDispatchDriver
4074
        Get phDispatchDriver to hDispatchDriver
4075
        Send PrepareParams to hDispatchDriver 1
4076
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
4077
        Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
4078
    End_Procedure
4079

    
4080
    // Saves a member list definition to an XML file
4081
    Procedure ComSaveXmlDefinition String llFileName
4082
        Handle hDispatchDriver
4083
        Get phDispatchDriver to hDispatchDriver
4084
        Send PrepareParams to hDispatchDriver 1
4085
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
4086
        Send InvokeComMethod to hDispatchDriver 12 OLE_VT_VOID
4087
    End_Procedure
4088

    
4089
    // Registers a memberlist to be referenced later
4090
    Procedure ComRegister
4091
        Handle hDispatchDriver
4092
        Get phDispatchDriver to hDispatchDriver
4093
        Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
4094
    End_Procedure
4095

    
4096
    // Unregisters a memberlist by name or object
4097
    Procedure ComUnregister
4098
        Handle hDispatchDriver
4099
        Get phDispatchDriver to hDispatchDriver
4100
        Send InvokeComMethod to hDispatchDriver 14 OLE_VT_VOID
4101
    End_Procedure
4102

    
4103
    // Width (in characters) of memberlist popup window.  Set to -1 for auto-size.
4104
    { MethodType=Property DesignTime=False }
4105
    Procedure Set ComWidth Short value
4106
        Handle hDispatchDriver
4107
        Get phDispatchDriver to hDispatchDriver
4108
        Send PrepareParams to hDispatchDriver 1
4109
        Set ComProperty of hDispatchDriver 15 OLE_VT_I2 to value
4110
    End_Procedure
4111

    
4112
    // Width (in characters) of memberlist popup window.  Set to -1 for auto-size.
4113
    { MethodType=Property DesignTime=False }
4114
    Function ComWidth Returns Short
4115
        Handle hDispatchDriver
4116
        Short retVal
4117
        Get phDispatchDriver to hDispatchDriver
4118
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_I2 to retVal
4119
        Function_Return retVal
4120
    End_Function
4121

    
4122
    // member list is case-sensitive
4123
    { MethodType=Property DesignTime=False }
4124
    Procedure Set ComCaseSensitive Boolean value
4125
        Handle hDispatchDriver
4126
        Get phDispatchDriver to hDispatchDriver
4127
        Send PrepareParams to hDispatchDriver 1
4128
        Set ComProperty of hDispatchDriver 16 OLE_VT_BOOL to value
4129
    End_Procedure
4130

    
4131
    // member list is case-sensitive
4132
    { MethodType=Property DesignTime=False }
4133
    Function ComCaseSensitive Returns Boolean
4134
        Handle hDispatchDriver
4135
        Boolean retVal
4136
        Get phDispatchDriver to hDispatchDriver
4137
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_BOOL to retVal
4138
        Function_Return retVal
4139
    End_Function
4140

    
4141
    // member list styles
4142
    { MethodType=Property DesignTime=False }
4143
    Procedure Set ComStyle OLEcmMemberListStyle value
4144
        Handle hDispatchDriver
4145
        Get phDispatchDriver to hDispatchDriver
4146
        Send PrepareParams to hDispatchDriver 1
4147
        Set ComProperty of hDispatchDriver 500 OLE_VT_I4 to value
4148
    End_Procedure
4149

    
4150
    // member list styles
4151
    { MethodType=Property DesignTime=False }
4152
    Function ComStyle Returns OLEcmMemberListStyle
4153
        Handle hDispatchDriver
4154
        OLEcmMemberListStyle retVal
4155
        Get phDispatchDriver to hDispatchDriver
4156
        Get InvokeComMethod of hDispatchDriver 500 OLE_VT_I4 to retVal
4157
        Function_Return retVal
4158
    End_Function
4159
End_Class
4160

    
4161
// CoClass
4162
// ProgID: CodeMax.MemberList.4
4163
// CLSID: {1BB350AD-3699-40DB-A4DC-446D8EAD1A2D}
4164
// MemberList Class
4165
Class cComMemberList is a cComAutomationObject
4166
    Import_Class_Protocol cComIMemberList
4167

    
4168
    Procedure Construct_Object
4169
        Forward Send Construct_Object
4170
        Set psProgID to "{1BB350AD-3699-40DB-A4DC-446D8EAD1A2D}"
4171
        Set peAutoCreate to acNoAutoCreate
4172
    End_Procedure
4173
End_Class
4174

    
4175
// CLSID: {4034F903-785B-4AA0-A00B-366B68852B11}
4176
// ILanguages Interface
4177
Class cComILanguages is a cComAutomationObject
4178

    
4179
    // Get language by name or zero-based index
4180
    { MethodType=Property DesignTime=False }
4181
    Function ComItem Variant llIndex Returns Variant
4182
        Handle hDispatchDriver
4183
        Variant retVal
4184
        Get phDispatchDriver to hDispatchDriver
4185
        Send PrepareParams to hDispatchDriver 1
4186
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4187
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4188
        Function_Return retVal
4189
    End_Function
4190

    
4191
    // Total number of registered languages
4192
    { MethodType=Property DesignTime=False }
4193
    Function ComCount Returns Integer
4194
        Handle hDispatchDriver
4195
        Integer retVal
4196
        Get phDispatchDriver to hDispatchDriver
4197
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4198
        Function_Return retVal
4199
    End_Function
4200

    
4201
    // register a language for use in a CodeMax control
4202
    Procedure ComAdd Variant llLanguage
4203
        Handle hDispatchDriver
4204
        Get phDispatchDriver to hDispatchDriver
4205
        Send PrepareParams to hDispatchDriver 1
4206
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llLanguage
4207
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4208
    End_Procedure
4209

    
4210
    // Unregister a language
4211
    Procedure ComRemove Variant llLanguage
4212
        Handle hDispatchDriver
4213
        Get phDispatchDriver to hDispatchDriver
4214
        Send PrepareParams to hDispatchDriver 1
4215
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llLanguage
4216
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4217
    End_Procedure
4218

    
4219
    // Unregister all languages
4220
    Procedure ComRemoveAll
4221
        Handle hDispatchDriver
4222
        Get phDispatchDriver to hDispatchDriver
4223
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4224
    End_Procedure
4225
End_Class
4226

    
4227
// CLSID: {3CC8BE31-A968-447D-8420-C954DA52A6C3}
4228
// ITokenSets Interface
4229
Class cComITokenSets is a cComAutomationObject
4230

    
4231
    // Get tokenset by name or zero-based index
4232
    { MethodType=Property DesignTime=False }
4233
    Function ComItem Variant llIndex Returns Variant
4234
        Handle hDispatchDriver
4235
        Variant retVal
4236
        Get phDispatchDriver to hDispatchDriver
4237
        Send PrepareParams to hDispatchDriver 1
4238
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4239
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4240
        Function_Return retVal
4241
    End_Function
4242

    
4243
    // Total number of tokensets
4244
    { MethodType=Property DesignTime=False }
4245
    Function ComCount Returns Integer
4246
        Handle hDispatchDriver
4247
        Integer retVal
4248
        Get phDispatchDriver to hDispatchDriver
4249
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4250
        Function_Return retVal
4251
    End_Function
4252

    
4253
    // add a tokenset to the collection
4254
    Procedure ComAdd Variant llTokenSet
4255
        Handle hDispatchDriver
4256
        Get phDispatchDriver to hDispatchDriver
4257
        Send PrepareParams to hDispatchDriver 1
4258
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llTokenSet
4259
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4260
    End_Procedure
4261

    
4262
    // removes a tokenset from the collection
4263
    Procedure ComRemove Variant llTokenSet
4264
        Handle hDispatchDriver
4265
        Get phDispatchDriver to hDispatchDriver
4266
        Send PrepareParams to hDispatchDriver 1
4267
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llTokenSet
4268
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4269
    End_Procedure
4270
End_Class
4271

    
4272
// CLSID: {B5EAA363-1823-42EC-B7B8-62AF517EAF75}
4273
// ITokens Interface
4274
Class cComITokens is a cComAutomationObject
4275

    
4276
    // The TokenSet that owns this collection
4277
    { MethodType=Property DesignTime=False }
4278
    Function ComParent Returns Variant
4279
        Handle hDispatchDriver
4280
        Variant retVal
4281
        Get phDispatchDriver to hDispatchDriver
4282
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
4283
        Function_Return retVal
4284
    End_Function
4285

    
4286
    // Get token by text or zero-based index
4287
    { MethodType=Property DesignTime=False }
4288
    Function ComItem Variant llIndex Returns Variant
4289
        Handle hDispatchDriver
4290
        Variant retVal
4291
        Get phDispatchDriver to hDispatchDriver
4292
        Send PrepareParams to hDispatchDriver 1
4293
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4294
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4295
        Function_Return retVal
4296
    End_Function
4297

    
4298
    // Total number of tokens
4299
    { MethodType=Property DesignTime=False }
4300
    Function ComCount Returns Integer
4301
        Handle hDispatchDriver
4302
        Integer retVal
4303
        Get phDispatchDriver to hDispatchDriver
4304
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4305
        Function_Return retVal
4306
    End_Function
4307

    
4308
    // Create and add a token to the collection
4309
    Function ComAdd String llText Boolean llRegExp Variant llRule Returns Variant
4310
        Handle hDispatchDriver
4311
        Variant retVal
4312
        Get phDispatchDriver to hDispatchDriver
4313
        Send PrepareParams to hDispatchDriver 3
4314
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
4315
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llRegExp
4316
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llRule
4317
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_DISPATCH to retVal
4318
        Function_Return retVal
4319
    End_Function
4320

    
4321
    // removes a token from the collection by text, zero-based index, or object
4322
    Procedure ComRemove Variant llToken
4323
        Handle hDispatchDriver
4324
        Get phDispatchDriver to hDispatchDriver
4325
        Send PrepareParams to hDispatchDriver 1
4326
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llToken
4327
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4328
    End_Procedure
4329

    
4330
    // removes all tokens
4331
    Procedure ComRemoveAll
4332
        Handle hDispatchDriver
4333
        Get phDispatchDriver to hDispatchDriver
4334
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4335
    End_Procedure
4336
End_Class
4337

    
4338
// CLSID: {564C0558-39FB-4F17-B5E0-B6B0A3A5F9B1}
4339
// IToken Interface
4340
Class cComIToken is a cComAutomationObject
4341

    
4342
    // The text of the token
4343
    { MethodType=Property DesignTime=False }
4344
    Procedure Set ComText String value
4345
        Handle hDispatchDriver
4346
        Get phDispatchDriver to hDispatchDriver
4347
        Send PrepareParams to hDispatchDriver 1
4348
        Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
4349
    End_Procedure
4350

    
4351
    // The text of the token
4352
    { MethodType=Property DesignTime=False }
4353
    Function ComText Returns String
4354
        Handle hDispatchDriver
4355
        String retVal
4356
        Get phDispatchDriver to hDispatchDriver
4357
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
4358
        Function_Return retVal
4359
    End_Function
4360

    
4361
    // True if the token text is a regular expression
4362
    { MethodType=Property DesignTime=False }
4363
    Procedure Set ComRegExp Boolean value
4364
        Handle hDispatchDriver
4365
        Get phDispatchDriver to hDispatchDriver
4366
        Send PrepareParams to hDispatchDriver 1
4367
        Set ComProperty of hDispatchDriver 2 OLE_VT_BOOL to value
4368
    End_Procedure
4369

    
4370
    // True if the token text is a regular expression
4371
    { MethodType=Property DesignTime=False }
4372
    Function ComRegExp Returns Boolean
4373
        Handle hDispatchDriver
4374
        Boolean retVal
4375
        Get phDispatchDriver to hDispatchDriver
4376
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
4377
        Function_Return retVal
4378
    End_Function
4379

    
4380
    // The verification rule to invoke when token text is matched
4381
    { MethodType=Property DesignTime=False }
4382
    Procedure Set ComRule Variant value
4383
        Handle hDispatchDriver
4384
        Get phDispatchDriver to hDispatchDriver
4385
        Send PrepareParams to hDispatchDriver 1
4386
        Set ComProperty of hDispatchDriver 3 OLE_VT_VARIANT to value
4387
    End_Procedure
4388

    
4389
    // The verification rule to invoke when token text is matched
4390
    { MethodType=Property DesignTime=False }
4391
    Function ComRule Returns Variant
4392
        Handle hDispatchDriver
4393
        Variant retVal
4394
        Get phDispatchDriver to hDispatchDriver
4395
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_DISPATCH to retVal
4396
        Function_Return retVal
4397
    End_Function
4398

    
4399
    // Action to take when token text is typed by user
4400
    { MethodType=Property DesignTime=False }
4401
    Procedure Set ComAction OLEcmCommand value
4402
        Handle hDispatchDriver
4403
        Get phDispatchDriver to hDispatchDriver
4404
        Send PrepareParams to hDispatchDriver 1
4405
        Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
4406
    End_Procedure
4407

    
4408
    // Action to take when token text is typed by user
4409
    { MethodType=Property DesignTime=False }
4410
    Function ComAction Returns OLEcmCommand
4411
        Handle hDispatchDriver
4412
        OLEcmCommand retVal
4413
        Get phDispatchDriver to hDispatchDriver
4414
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
4415
        Function_Return retVal
4416
    End_Function
4417
End_Class
4418

    
4419
// CLSID: {E1211D9E-A402-4CB8-A3BB-D660A2D7304A}
4420
// ITokenRule Interface
4421
Class cComITokenRule is a cComAutomationObject
4422

    
4423
    // Called when a token is detected and needs final approval
4424
    Function ComVerifyToken Variant llParser Returns Boolean
4425
        Handle hDispatchDriver
4426
        Boolean retVal
4427
        Get phDispatchDriver to hDispatchDriver
4428
        Send PrepareParams to hDispatchDriver 1
4429
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llParser
4430
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BOOL to retVal
4431
        Function_Return retVal
4432
    End_Function
4433

    
4434
    // The name of the token rule
4435
    { MethodType=Property DesignTime=False }
4436
    Function ComName Returns String
4437
        Handle hDispatchDriver
4438
        String retVal
4439
        Get phDispatchDriver to hDispatchDriver
4440
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
4441
        Function_Return retVal
4442
    End_Function
4443
End_Class
4444

    
4445
// CLSID: {B19143E1-25A0-43FD-9120-8B6ED3304518}
4446
// IParser Interface
4447
Class cComILineParser is a cComAutomationObject
4448

    
4449
    // The language to parse with
4450
    { MethodType=Property DesignTime=False }
4451
    Function ComLanguage Returns Variant
4452
        Handle hDispatchDriver
4453
        Variant retVal
4454
        Get phDispatchDriver to hDispatchDriver
4455
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4456
        Function_Return retVal
4457
    End_Function
4458

    
4459
    // parser is locked against updates -- you may only query properties
4460
    { MethodType=Property DesignTime=False }
4461
    Function ComReadOnly Returns Boolean
4462
        Handle hDispatchDriver
4463
        Boolean retVal
4464
        Get phDispatchDriver to hDispatchDriver
4465
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BOOL to retVal
4466
        Function_Return retVal
4467
    End_Function
4468

    
4469
    // current buffer line number (zero-based)
4470
    { MethodType=Property DesignTime=False }
4471
    Procedure Set ComLineNo Integer value
4472
        Handle hDispatchDriver
4473
        Get phDispatchDriver to hDispatchDriver
4474
        Send PrepareParams to hDispatchDriver 1
4475
        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
4476
    End_Procedure
4477

    
4478
    // current buffer line number (zero-based)
4479
    { MethodType=Property DesignTime=False }
4480
    Function ComLineNo Returns Integer
4481
        Handle hDispatchDriver
4482
        Integer retVal
4483
        Get phDispatchDriver to hDispatchDriver
4484
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
4485
        Function_Return retVal
4486
    End_Function
4487

    
4488
    // Scan in the next token
4489
    Procedure ComGetNextToken OLEcmParseDirection llDirection OLEcmParseFlags llFlags
4490
        Handle hDispatchDriver
4491
        Get phDispatchDriver to hDispatchDriver
4492
        Send PrepareParams to hDispatchDriver 2
4493
        Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
4494
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFlags
4495
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4496
    End_Procedure
4497

    
4498
    // True if a line has been fully parsed in a particular direction
4499
    { MethodType=Property DesignTime=False }
4500
    Function ComDone OLEcmParseDirection llDirection Returns Boolean
4501
        Handle hDispatchDriver
4502
        Boolean retVal
4503
        Get phDispatchDriver to hDispatchDriver
4504
        Send PrepareParams to hDispatchDriver 1
4505
        Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
4506
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
4507
        Function_Return retVal
4508
    End_Function
4509

    
4510
    // current token text
4511
    { MethodType=Property DesignTime=False }
4512
    Function ComTokenText Returns String
4513
        Handle hDispatchDriver
4514
        String retVal
4515
        Get phDispatchDriver to hDispatchDriver
4516
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
4517
        Function_Return retVal
4518
    End_Function
4519

    
4520
    // current token length
4521
    { MethodType=Property DesignTime=False }
4522
    Function ComTokenLength Returns Integer
4523
        Handle hDispatchDriver
4524
        Integer retVal
4525
        Get phDispatchDriver to hDispatchDriver
4526
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
4527
        Function_Return retVal
4528
    End_Function
4529

    
4530
    // The tokenset which holds the current token
4531
    { MethodType=Property DesignTime=False }
4532
    Function ComTokenSet Returns Variant
4533
        Handle hDispatchDriver
4534
        Variant retVal
4535
        Get phDispatchDriver to hDispatchDriver
4536
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_DISPATCH to retVal
4537
        Function_Return retVal
4538
    End_Function
4539

    
4540
    // index of current token in tokenset
4541
    { MethodType=Property DesignTime=False }
4542
    Function ComTokenIndex Returns Integer
4543
        Handle hDispatchDriver
4544
        Integer retVal
4545
        Get phDispatchDriver to hDispatchDriver
4546
        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_I4 to retVal
4547
        Function_Return retVal
4548
    End_Function
4549

    
4550
    // token subset of current token
4551
    { MethodType=Property DesignTime=False }
4552
    Function ComTokenSubset Returns OLEcmTokenSubset
4553
        Handle hDispatchDriver
4554
        OLEcmTokenSubset retVal
4555
        Get phDispatchDriver to hDispatchDriver
4556
        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_I4 to retVal
4557
        Function_Return retVal
4558
    End_Function
4559

    
4560
    // start buffer column number of current token (zero-based)
4561
    { MethodType=Property DesignTime=False }
4562
    Function ComTokenStartColNo Returns Integer
4563
        Handle hDispatchDriver
4564
        Integer retVal
4565
        Get phDispatchDriver to hDispatchDriver
4566
        Get InvokeComMethod of hDispatchDriver 11 OLE_VT_I4 to retVal
4567
        Function_Return retVal
4568
    End_Function
4569

    
4570
    // End buffer column number of current token (zero-based)
4571
    { MethodType=Property DesignTime=False }
4572
    Function ComTokenEndColNo Returns Integer
4573
        Handle hDispatchDriver
4574
        Integer retVal
4575
        Get phDispatchDriver to hDispatchDriver
4576
        Get InvokeComMethod of hDispatchDriver 12 OLE_VT_I4 to retVal
4577
        Function_Return retVal
4578
    End_Function
4579

    
4580
    // The first character of the current token
4581
    { MethodType=Property DesignTime=False }
4582
    Function ComTokenStartChar Returns Integer
4583
        Handle hDispatchDriver
4584
        Integer retVal
4585
        Get phDispatchDriver to hDispatchDriver
4586
        Get InvokeComMethod of hDispatchDriver 13 OLE_VT_I4 to retVal
4587
        Function_Return retVal
4588
    End_Function
4589

    
4590
    // The last character of the current token
4591
    { MethodType=Property DesignTime=False }
4592
    Function ComTokenEndChar Returns Integer
4593
        Handle hDispatchDriver
4594
        Integer retVal
4595
        Get phDispatchDriver to hDispatchDriver
4596
        Get InvokeComMethod of hDispatchDriver 14 OLE_VT_I4 to retVal
4597
        Function_Return retVal
4598
    End_Function
4599

    
4600
    // The character immediately before the start of the current token
4601
    { MethodType=Property DesignTime=False }
4602
    Function ComTokenLeadingChar Returns Integer
4603
        Handle hDispatchDriver
4604
        Integer retVal
4605
        Get phDispatchDriver to hDispatchDriver
4606
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_I4 to retVal
4607
        Function_Return retVal
4608
    End_Function
4609

    
4610
    // The character immediately after the end of the current token
4611
    { MethodType=Property DesignTime=False }
4612
    Function ComTokenTrailingChar Returns Integer
4613
        Handle hDispatchDriver
4614
        Integer retVal
4615
        Get phDispatchDriver to hDispatchDriver
4616
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_I4 to retVal
4617
        Function_Return retVal
4618
    End_Function
4619

    
4620
    // point parser at a different column (zero-based), possibly at the start of the current token
4621
    { MethodType=Property DesignTime=False }
4622
    Procedure Set ComColNo Integer value
4623
        Handle hDispatchDriver
4624
        Get phDispatchDriver to hDispatchDriver
4625
        Send PrepareParams to hDispatchDriver 1
4626
        Set ComProperty of hDispatchDriver 17 OLE_VT_I4 to value
4627
    End_Procedure
4628

    
4629
    // point parser at a different column (zero-based), possibly at the end of the current token
4630
    { MethodType=Property DesignTime=False }
4631
    Procedure Set ComColNoAfterToken Integer value
4632
        Handle hDispatchDriver
4633
        Get phDispatchDriver to hDispatchDriver
4634
        Send PrepareParams to hDispatchDriver 1
4635
        Set ComProperty of hDispatchDriver 18 OLE_VT_I4 to value
4636
    End_Procedure
4637

    
4638
    // Automatically wrap to adjacent lines while parsing
4639
    { MethodType=Property DesignTime=False }
4640
    Procedure Set ComWrap Boolean value
4641
        Handle hDispatchDriver
4642
        Get phDispatchDriver to hDispatchDriver
4643
        Send PrepareParams to hDispatchDriver 1
4644
        Set ComProperty of hDispatchDriver 19 OLE_VT_BOOL to value
4645
    End_Procedure
4646

    
4647
    // Automatically wrap to adjacent lines while parsing
4648
    { MethodType=Property DesignTime=False }
4649
    Function ComWrap Returns Boolean
4650
        Handle hDispatchDriver
4651
        Boolean retVal
4652
        Get phDispatchDriver to hDispatchDriver
4653
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_BOOL to retVal
4654
        Function_Return retVal
4655
    End_Function
4656

    
4657
    // Advance parser to matching scope keyword
4658
    Function ComMatchBraces OLEcmParseDirection llDirection Integer llSearchDist Returns Boolean
4659
        Handle hDispatchDriver
4660
        Boolean retVal
4661
        Get phDispatchDriver to hDispatchDriver
4662
        Send PrepareParams to hDispatchDriver 2
4663
        Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
4664
        Send DefineParam to hDispatchDriver OLE_VT_I4 llSearchDist
4665
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_BOOL to retVal
4666
        Function_Return retVal
4667
    End_Function
4668
End_Class
4669

    
4670
// CLSID: {C11F0EEF-C29C-4D77-9158-BD7CFA45BED1}
4671
// IMember Interface
4672
Class cComIMember is a cComAutomationObject
4673

    
4674
    // The memberlist that contains this member
4675
    { MethodType=Property DesignTime=False }
4676
    Function ComParent Returns Variant
4677
        Handle hDispatchDriver
4678
        Variant retVal
4679
        Get phDispatchDriver to hDispatchDriver
4680
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
4681
        Function_Return retVal
4682
    End_Function
4683

    
4684
    // The name of the member with no parameters or qualifiers
4685
    { MethodType=Property DesignTime=False }
4686
    Function ComName Returns String
4687
        Handle hDispatchDriver
4688
        String retVal
4689
        Get phDispatchDriver to hDispatchDriver
4690
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
4691
        Function_Return retVal
4692
    End_Function
4693

    
4694
    // The full prototype of the member
4695
    { MethodType=Property DesignTime=False }
4696
    Function ComPrototype Returns String
4697
        Handle hDispatchDriver
4698
        String retVal
4699
        Get phDispatchDriver to hDispatchDriver
4700
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
4701
        Function_Return retVal
4702
    End_Function
4703

    
4704
    // The image to display in the member list.  Specified as a zero-based index into the members collection's imagelist
4705
    { MethodType=Property DesignTime=False }
4706
    Procedure Set ComImage Short value
4707
        Handle hDispatchDriver
4708
        Get phDispatchDriver to hDispatchDriver
4709
        Send PrepareParams to hDispatchDriver 1
4710
        Set ComProperty of hDispatchDriver 2 OLE_VT_I2 to value
4711
    End_Procedure
4712

    
4713
    // The image to display in the member list.  Specified as a zero-based index into the members collection's imagelist
4714
    { MethodType=Property DesignTime=False }
4715
    Function ComImage Returns Short
4716
        Handle hDispatchDriver
4717
        Short retVal
4718
        Get phDispatchDriver to hDispatchDriver
4719
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I2 to retVal
4720
        Function_Return retVal
4721
    End_Function
4722

    
4723
    // Text to display in a tooltip when the member is selected in a list
4724
    { MethodType=Property DesignTime=False }
4725
    Procedure Set ComHelpString String value
4726
        Handle hDispatchDriver
4727
        Get phDispatchDriver to hDispatchDriver
4728
        Send PrepareParams to hDispatchDriver 1
4729
        Set ComProperty of hDispatchDriver 3 OLE_VT_BSTR to value
4730
    End_Procedure
4731

    
4732
    // Text to display in a tooltip when the member is selected in a list
4733
    { MethodType=Property DesignTime=False }
4734
    Function ComHelpString Returns String
4735
        Handle hDispatchDriver
4736
        String retVal
4737
        Get phDispatchDriver to hDispatchDriver
4738
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
4739
        Function_Return retVal
4740
    End_Function
4741

    
4742
    // Whether the member is a sublist
4743
    { MethodType=Property DesignTime=False }
4744
    Procedure Set ComSubList Boolean value
4745
        Handle hDispatchDriver
4746
        Get phDispatchDriver to hDispatchDriver
4747
        Send PrepareParams to hDispatchDriver 1
4748
        Set ComProperty of hDispatchDriver 500 OLE_VT_BOOL to value
4749
    End_Procedure
4750

    
4751
    // Whether the member is a sublist
4752
    { MethodType=Property DesignTime=False }
4753
    Function ComSubList Returns Boolean
4754
        Handle hDispatchDriver
4755
        Boolean retVal
4756
        Get phDispatchDriver to hDispatchDriver
4757
        Get InvokeComMethod of hDispatchDriver 500 OLE_VT_BOOL to retVal
4758
        Function_Return retVal
4759
    End_Function
4760

    
4761
    // The text to be inserted, if not the same as the name
4762
    { MethodType=Property DesignTime=False }
4763
    Procedure Set ComText String value
4764
        Handle hDispatchDriver
4765
        Get phDispatchDriver to hDispatchDriver
4766
        Send PrepareParams to hDispatchDriver 1
4767
        Set ComProperty of hDispatchDriver 501 OLE_VT_BSTR to value
4768
    End_Procedure
4769

    
4770
    // The text to be inserted, if not the same as the name
4771
    { MethodType=Property DesignTime=False }
4772
    Function ComText Returns String
4773
        Handle hDispatchDriver
4774
        String retVal
4775
        Get phDispatchDriver to hDispatchDriver
4776
        Get InvokeComMethod of hDispatchDriver 501 OLE_VT_BSTR to retVal
4777
        Function_Return retVal
4778
    End_Function
4779

    
4780
    // Whether the member should be considered in find best match algorithm
4781
    { MethodType=Property DesignTime=False }
4782
    Procedure Set ComEnableMatch Boolean value
4783
        Handle hDispatchDriver
4784
        Get phDispatchDriver to hDispatchDriver
4785
        Send PrepareParams to hDispatchDriver 1
4786
        Set ComProperty of hDispatchDriver 502 OLE_VT_BOOL to value
4787
    End_Procedure
4788

    
4789
    // Whether the member should be considered in find best match algorithm
4790
    { MethodType=Property DesignTime=False }
4791
    Function ComEnableMatch Returns Boolean
4792
        Handle hDispatchDriver
4793
        Boolean retVal
4794
        Get phDispatchDriver to hDispatchDriver
4795
        Get InvokeComMethod of hDispatchDriver 502 OLE_VT_BOOL to retVal
4796
        Function_Return retVal
4797
    End_Function
4798
End_Class
4799

    
4800
// CLSID: {94AA5B02-4304-4257-9E04-FCD4EC3B3DB1}
4801
// IMemberLists Interface
4802
Class cComIMemberLists is a cComAutomationObject
4803

    
4804
    // Retrieve a member list by name or zero-based index
4805
    { MethodType=Property DesignTime=False }
4806
    Function ComItem Variant llIndex Returns Variant
4807
        Handle hDispatchDriver
4808
        Variant retVal
4809
        Get phDispatchDriver to hDispatchDriver
4810
        Send PrepareParams to hDispatchDriver 1
4811
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4812
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4813
        Function_Return retVal
4814
    End_Function
4815

    
4816
    // Total number of member lists
4817
    { MethodType=Property DesignTime=False }
4818
    Function ComCount Returns Integer
4819
        Handle hDispatchDriver
4820
        Integer retVal
4821
        Get phDispatchDriver to hDispatchDriver
4822
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4823
        Function_Return retVal
4824
    End_Function
4825

    
4826
    // Add a member list to the collection
4827
    Procedure ComAdd Variant llMemberList
4828
        Handle hDispatchDriver
4829
        Get phDispatchDriver to hDispatchDriver
4830
        Send PrepareParams to hDispatchDriver 1
4831
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llMemberList
4832
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4833
    End_Procedure
4834

    
4835
    // removes a member list from the collection by name, zero-based index, or object
4836
    Procedure ComRemove Variant llMemberList
4837
        Handle hDispatchDriver
4838
        Get phDispatchDriver to hDispatchDriver
4839
        Send PrepareParams to hDispatchDriver 1
4840
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llMemberList
4841
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4842
    End_Procedure
4843

    
4844
    // removes all member lists
4845
    Procedure ComRemoveAll
4846
        Handle hDispatchDriver
4847
        Get phDispatchDriver to hDispatchDriver
4848
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4849
    End_Procedure
4850
End_Class
4851

    
4852
// CLSID: {DF1606FB-9EF2-4375-9360-5813FFDB6887}
4853
// IHotKeys Interface
4854
Class cComIHotKeys is a cComAutomationObject
4855

    
4856
    // Get hotkey by zero-based index
4857
    { MethodType=Property DesignTime=False }
4858
    Function ComItem Variant llIndex Returns Variant
4859
        Handle hDispatchDriver
4860
        Variant retVal
4861
        Get phDispatchDriver to hDispatchDriver
4862
        Send PrepareParams to hDispatchDriver 1
4863
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4864
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4865
        Function_Return retVal
4866
    End_Function
4867

    
4868
    // Total number of HotKeys
4869
    { MethodType=Property DesignTime=False }
4870
    Function ComCount Returns Integer
4871
        Handle hDispatchDriver
4872
        Integer retVal
4873
        Get phDispatchDriver to hDispatchDriver
4874
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4875
        Function_Return retVal
4876
    End_Function
4877

    
4878
    // binds a hotkey to the command associated with this collection
4879
    Procedure ComAdd Variant llHotKey
4880
        Handle hDispatchDriver
4881
        Get phDispatchDriver to hDispatchDriver
4882
        Send PrepareParams to hDispatchDriver 1
4883
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llHotKey
4884
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4885
    End_Procedure
4886

    
4887
    // unbinds a hotkey from the command associated with this collection
4888
    Procedure ComRemove Variant llHotKey
4889
        Handle hDispatchDriver
4890
        Get phDispatchDriver to hDispatchDriver
4891
        Send PrepareParams to hDispatchDriver 1
4892
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llHotKey
4893
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4894
    End_Procedure
4895
End_Class