Project

General

Profile

Statistics
| Revision:

vdfsplat / AppSrc / cComCodeMax180.pkg @ 58

History | View | Annotate | Download (187 KB)

1
// DataFlex COM proxy classes generated from  .\DataFlex 18.0\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
    Define OLEcmMemberListSpaceAllowed for 2
418

    
419
Struct _LARGE_INTEGER
420
    BigInt QuadPart
421
End_Struct
422

    
423
Struct _ULARGE_INTEGER
424
    UBigInt QuadPart
425
End_Struct
426

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

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

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

    
453
// CLSID: {2A6F6FC7-342B-4418-B773-CD220CF2CF0B}
454
// ICodeMax Interface
455
Class cComICodeMax is a Mixin
456

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    
2437
    // Changes the current selection, like SetSel but without cancelling the current mode
2438
    Procedure ComSetSel2 Variant llSel Boolean llMakeVisible
2439
        Handle hDispatchDriver
2440
        Get phDispatchDriver to hDispatchDriver
2441
        Send PrepareParams to hDispatchDriver 2
2442
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llSel
2443
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llMakeVisible
2444
        Send InvokeComMethod to hDispatchDriver 511 OLE_VT_VOID
2445
    End_Procedure
2446
End_Class
2447

    
2448
// CLSID: {E66F0728-F34F-46EA-94DA-EBA845E9ED2B}
2449
// ICodeMaxEvents Interface
2450
Class cComICodeMaxEvents is a Mixin
2451

    
2452
    // The buffer changed
2453
    { MethodType=Event }
2454
    Procedure OnComChange
2455
    End_Procedure
2456

    
2457
    // A view was scrolled horizontally
2458
    { MethodType=Event }
2459
    Procedure OnComHScroll
2460
    End_Procedure
2461

    
2462
    // A view was scrolled vertically
2463
    { MethodType=Event }
2464
    Procedure OnComVScroll
2465
    End_Procedure
2466

    
2467
    // The caret position changed
2468
    { MethodType=Event }
2469
    Procedure OnComSelChange
2470
    End_Procedure
2471

    
2472
    // The active view changed
2473
    { MethodType=Event }
2474
    Procedure OnComViewChange
2475
    End_Procedure
2476

    
2477
    // The modified flag changed state
2478
    { MethodType=Event }
2479
    Procedure OnComModifiedChange
2480
    End_Procedure
2481

    
2482
    // The user requested to show the properties dialog box
2483
    { MethodType=Event }
2484
    Procedure OnComShowProps
2485
    End_Procedure
2486

    
2487
    // The user pressed the Apply or OK button in the Window Properties dialog box
2488
    { MethodType=Event }
2489
    Procedure OnComPropsChange
2490
    End_Procedure
2491

    
2492
    // A CodeMax window was created
2493
    { MethodType=Event }
2494
    Procedure OnComCreate
2495
    End_Procedure
2496

    
2497
    // A CodeMax window was destroyed
2498
    { MethodType=Event }
2499
    Procedure OnComDestroy
2500
    End_Procedure
2501

    
2502
    // A CodeMax window received the input focus
2503
    { MethodType=Event }
2504
    Procedure OnComSetFocus
2505
    End_Procedure
2506

    
2507
    // A CodeMax window lost the input focus
2508
    { MethodType=Event }
2509
    Procedure OnComKillFocus
2510
    End_Procedure
2511

    
2512
    // The user invoked the context menu
2513
    { MethodType=Event }
2514
    Procedure OnComContextMenu Integer llX Integer llY
2515
    End_Procedure
2516

    
2517
    // The user deleted a line
2518
    { MethodType=Event }
2519
    Procedure OnComDeleteLine Integer llLine Integer llItemData
2520
    End_Procedure
2521

    
2522
    // A keystroke command failed
2523
    { MethodType=Event }
2524
    Procedure OnComCmdFailure OLEcmCommand llCmd OLEcmCommandErr llErr
2525
    End_Procedure
2526

    
2527
    // A registered command has been invoked
2528
    { MethodType=Event }
2529
    Procedure OnComRegisteredCmd OLEcmCommand llCmd
2530
    End_Procedure
2531

    
2532
    // A key was pressed
2533
    { MethodType=Event }
2534
    Procedure OnComKeyDown Integer llKeyCode OLEcmKeyMod llModifiers
2535
    End_Procedure
2536

    
2537
    // A key was released
2538
    { MethodType=Event }
2539
    Procedure OnComKeyUp Integer llKeyCode OLEcmKeyMod llModifiers
2540
    End_Procedure
2541

    
2542
    // A key was pressed and released
2543
    { MethodType=Event }
2544
    Procedure OnComKeyPress Integer llKeyAscii OLEcmKeyMod llModifiers
2545
    End_Procedure
2546

    
2547
    // A mouse button was pressed
2548
    { MethodType=Event }
2549
    Procedure OnComMouseDown OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2550
    End_Procedure
2551

    
2552
    // The mouse pointer moved
2553
    { MethodType=Event }
2554
    Procedure OnComMouseMove OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2555
    End_Procedure
2556

    
2557
    // A mouse button was released
2558
    { MethodType=Event }
2559
    Procedure OnComMouseUp OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2560
    End_Procedure
2561

    
2562
    // A mouse button was double clicked
2563
    { MethodType=Event }
2564
    Procedure OnComMouseDblClick OLEcmMouseBtn llButton OLEcmKeyMod llModifiers Integer llX Integer llY
2565
    End_Procedure
2566

    
2567
    // The overtype mode has changed
2568
    { MethodType=Event }
2569
    Procedure OnComOvertypeChange
2570
    End_Procedure
2571

    
2572
    // A search operation wrapped to the start or end of the buffer
2573
    { MethodType=Event }
2574
    Procedure OnComFindWrapped OLEcmCommand llCmd Boolean llForward
2575
    End_Procedure
2576

    
2577
    // Files were dragged from Explorer and dropped onto CodeMax
2578
    { MethodType=Event }
2579
    Procedure OnComDropFiles String llFiles
2580
    End_Procedure
2581

    
2582
    // A member list is about to be displayed
2583
    { MethodType=Event }
2584
    Procedure OnComQueryMemberList OLEcmCommand llCmd Boolean llAutoList Variant llItem Variant llList
2585
    End_Procedure
2586

    
2587
    // A lengthy process has reported progress toward completion
2588
    { MethodType=Event }
2589
    Procedure OnComProgress OLEcmProgressPhase llPhase Integer llPercentComplete Boolean llCanceled
2590
    End_Procedure
2591

    
2592
    // A QuickInfo tooltip is about to be displayed
2593
    { MethodType=Event }
2594
    Procedure OnComQuickInfo Integer llLine Integer llColumn String ByRef llTipText
2595
    End_Procedure
2596

    
2597
    // A member's bounds are being calculated as part of a statement completion operation
2598
    { MethodType=Event }
2599
    Procedure OnComQueryMemberBounds Variant llBounds Variant llItem
2600
    End_Procedure
2601

    
2602
    // a hyperlink was clicked
2603
    { MethodType=Event }
2604
    Procedure OnComHyperlink String llUrl
2605
    End_Procedure
2606

    
2607
    // A parameter block start position is calculated as part of ParameterInfo
2608
    { MethodType=Event }
2609
    Procedure OnComQueryParameterBlock Integer ByRef llStartLine Integer ByRef llStartCol Integer ByRef llArgIndex Integer ByRef llArgCount OLEcmQueryParamaterBlockResult ByRef llFoundParameterBlock
2610
    End_Procedure
2611

    
2612
    // A parameter position in prototype string is calculated as part of ParameterInfo
2613
    { MethodType=Event }
2614
    Procedure OnComQueryParameterPosition String llPrototype Integer llParameter Integer llParameterCount Integer ByRef llStartIndex Integer ByRef llEndIndex OLEcmQueryParamaterPositionResult ByRef llFoundParameter
2615
    End_Procedure
2616

    
2617
    // A cmCmdCompleteWord command was completed
2618
    { MethodType=Event }
2619
    Procedure OnComAfterCompleteWord
2620
    End_Procedure
2621

    
2622
    // After a key was pressed and released and the character was inserted
2623
    { MethodType=Event }
2624
    Procedure OnComKeyPress2 Integer llKeyAscii OLEcmKeyMod llModifiers
2625
    End_Procedure
2626

    
2627
    { Visibility=Private }
2628
    Procedure RegisterComEvents
2629
        Send RegisterComEvent 0 msg_OnComChange
2630
        Send RegisterComEvent 1 msg_OnComHScroll
2631
        Send RegisterComEvent 2 msg_OnComVScroll
2632
        Send RegisterComEvent 3 msg_OnComSelChange
2633
        Send RegisterComEvent 4 msg_OnComViewChange
2634
        Send RegisterComEvent 5 msg_OnComModifiedChange
2635
        Send RegisterComEvent 6 msg_OnComShowProps
2636
        Send RegisterComEvent 7 msg_OnComPropsChange
2637
        Send RegisterComEvent 8 msg_OnComCreate
2638
        Send RegisterComEvent 9 msg_OnComDestroy
2639
        Send RegisterComEvent 10 msg_OnComSetFocus
2640
        Send RegisterComEvent 11 msg_OnComKillFocus
2641
        Send RegisterComEvent 12 msg_OnComContextMenu
2642
        Send RegisterComEvent 13 msg_OnComDeleteLine
2643
        Send RegisterComEvent 14 msg_OnComCmdFailure
2644
        Send RegisterComEvent 15 msg_OnComRegisteredCmd
2645
        Send RegisterComEvent 16 msg_OnComKeyDown
2646
        Send RegisterComEvent 17 msg_OnComKeyUp
2647
        Send RegisterComEvent 18 msg_OnComKeyPress
2648
        Send RegisterComEvent 19 msg_OnComMouseDown
2649
        Send RegisterComEvent 20 msg_OnComMouseMove
2650
        Send RegisterComEvent 21 msg_OnComMouseUp
2651
        Send RegisterComEvent 22 msg_OnComMouseDblClick
2652
        Send RegisterComEvent 23 msg_OnComOvertypeChange
2653
        Send RegisterComEvent 24 msg_OnComFindWrapped
2654
        Send RegisterComEvent 25 msg_OnComDropFiles
2655
        Send RegisterComEvent 26 msg_OnComQueryMemberList
2656
        Send RegisterComEvent 27 msg_OnComProgress
2657
        Send RegisterComEvent 28 msg_OnComQuickInfo
2658
        Send RegisterComEvent 29 msg_OnComQueryMemberBounds
2659
        Send RegisterComEvent 30 msg_OnComHyperlink
2660
        Send RegisterComEvent 500 msg_OnComQueryParameterBlock
2661
        Send RegisterComEvent 501 msg_OnComQueryParameterPosition
2662
        Send RegisterComEvent 502 msg_OnComAfterCompleteWord
2663
        Send RegisterComEvent 503 msg_OnComKeyPress2
2664
    End_Procedure
2665
End_Class
2666

    
2667
// CoClass
2668
// ProgID: VDFCodeMax.Control.18.0
2669
// CLSID: {E933E8A8-9126-4029-AAC1-1ADA0A6E4BFA}
2670
// VDFCodeMax 4.0 Edit Control
2671
{ CLSID="{E933E8A8-9126-4029-AAC1-1ADA0A6E4BFA}" }
2672
Class cComCodeMax is a cComActiveXControl
2673
    Import_Class_Protocol cComICodeMax
2674
    Import_Class_Protocol cComICodeMaxEvents
2675

    
2676
    Procedure Construct_Object
2677
        Forward Send Construct_Object
2678
        Set psProgID to "{E933E8A8-9126-4029-AAC1-1ADA0A6E4BFA}"
2679
        Set psEventId to "{E66F0728-F34F-46EA-94DA-EBA845E9ED2B}"
2680
        Set peAutoCreate to acDeferredAutoCreate
2681
    End_Procedure
2682
End_Class
2683

    
2684
// CLSID: {EF19E8D0-D0B4-4657-8D4B-69B781AA51D4}
2685
// IRange Interface
2686
Class cComIRange is a Mixin
2687

    
2688
    // The anchor line pos
2689
    { MethodType=Property DesignTime=False }
2690
    Procedure Set ComStartLineNo Integer value
2691
        Handle hDispatchDriver
2692
        Get phDispatchDriver to hDispatchDriver
2693
        Send PrepareParams to hDispatchDriver 1
2694
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
2695
    End_Procedure
2696

    
2697
    // The anchor line pos
2698
    { MethodType=Property DesignTime=False }
2699
    Function ComStartLineNo Returns Integer
2700
        Handle hDispatchDriver
2701
        Integer retVal
2702
        Get phDispatchDriver to hDispatchDriver
2703
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
2704
        Function_Return retVal
2705
    End_Function
2706

    
2707
    // The anchor column pos
2708
    { MethodType=Property DesignTime=False }
2709
    Procedure Set ComStartColNo Integer value
2710
        Handle hDispatchDriver
2711
        Get phDispatchDriver to hDispatchDriver
2712
        Send PrepareParams to hDispatchDriver 1
2713
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
2714
    End_Procedure
2715

    
2716
    // The anchor column pos
2717
    { MethodType=Property DesignTime=False }
2718
    Function ComStartColNo Returns Integer
2719
        Handle hDispatchDriver
2720
        Integer retVal
2721
        Get phDispatchDriver to hDispatchDriver
2722
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2723
        Function_Return retVal
2724
    End_Function
2725

    
2726
    // The extension line pos
2727
    { MethodType=Property DesignTime=False }
2728
    Procedure Set ComEndLineNo Integer value
2729
        Handle hDispatchDriver
2730
        Get phDispatchDriver to hDispatchDriver
2731
        Send PrepareParams to hDispatchDriver 1
2732
        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
2733
    End_Procedure
2734

    
2735
    // The extension line pos
2736
    { MethodType=Property DesignTime=False }
2737
    Function ComEndLineNo Returns Integer
2738
        Handle hDispatchDriver
2739
        Integer retVal
2740
        Get phDispatchDriver to hDispatchDriver
2741
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
2742
        Function_Return retVal
2743
    End_Function
2744

    
2745
    // The extension col pos
2746
    { MethodType=Property DesignTime=False }
2747
    Procedure Set ComEndColNo Integer value
2748
        Handle hDispatchDriver
2749
        Get phDispatchDriver to hDispatchDriver
2750
        Send PrepareParams to hDispatchDriver 1
2751
        Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
2752
    End_Procedure
2753

    
2754
    // The extension col pos
2755
    { MethodType=Property DesignTime=False }
2756
    Function ComEndColNo Returns Integer
2757
        Handle hDispatchDriver
2758
        Integer retVal
2759
        Get phDispatchDriver to hDispatchDriver
2760
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
2761
        Function_Return retVal
2762
    End_Function
2763

    
2764
    // Column selection mode - on/off
2765
    { MethodType=Property DesignTime=False }
2766
    Procedure Set ComColumnSel Boolean value
2767
        Handle hDispatchDriver
2768
        Get phDispatchDriver to hDispatchDriver
2769
        Send PrepareParams to hDispatchDriver 1
2770
        Set ComProperty of hDispatchDriver 7 OLE_VT_BOOL to value
2771
    End_Procedure
2772

    
2773
    // Column selection mode - on/off
2774
    { MethodType=Property DesignTime=False }
2775
    Function ComColumnSel Returns Boolean
2776
        Handle hDispatchDriver
2777
        Boolean retVal
2778
        Get phDispatchDriver to hDispatchDriver
2779
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
2780
        Function_Return retVal
2781
    End_Function
2782

    
2783
    // True if range is empty
2784
    Function ComIsEmpty Returns Boolean
2785
        Handle hDispatchDriver
2786
        Boolean retVal
2787
        Get phDispatchDriver to hDispatchDriver
2788
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BOOL to retVal
2789
        Function_Return retVal
2790
    End_Function
2791

    
2792
    // Makes the range empty
2793
    Procedure ComEmpty
2794
        Handle hDispatchDriver
2795
        Get phDispatchDriver to hDispatchDriver
2796
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
2797
    End_Procedure
2798

    
2799
    // Makes sure the anchor is before the extension
2800
    Procedure ComNormalize
2801
        Handle hDispatchDriver
2802
        Get phDispatchDriver to hDispatchDriver
2803
        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
2804
    End_Procedure
2805
End_Class
2806

    
2807
// CoClass
2808
// ProgID: CodeMax.Range.4
2809
// CLSID: {1DB5984A-0588-42C6-878A-71D8E0934EBB}
2810
// Range Class
2811
Class cComRange is a cComAutomationObject
2812
    Import_Class_Protocol cComIRange
2813

    
2814
    Procedure Construct_Object
2815
        Forward Send Construct_Object
2816
        Set psProgID to "{1DB5984A-0588-42C6-878A-71D8E0934EBB}"
2817
        Set peAutoCreate to acNoAutoCreate
2818
    End_Procedure
2819
End_Class
2820

    
2821
// CLSID: {997876D8-DC50-4D5D-A1F7-6C3D348BA48F}
2822
// IPosition Interface
2823
Class cComIPosition is a Mixin
2824

    
2825
    // The line position
2826
    { MethodType=Property DesignTime=False }
2827
    Procedure Set ComLineNo Integer value
2828
        Handle hDispatchDriver
2829
        Get phDispatchDriver to hDispatchDriver
2830
        Send PrepareParams to hDispatchDriver 1
2831
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
2832
    End_Procedure
2833

    
2834
    // The line position
2835
    { MethodType=Property DesignTime=False }
2836
    Function ComLineNo Returns Integer
2837
        Handle hDispatchDriver
2838
        Integer retVal
2839
        Get phDispatchDriver to hDispatchDriver
2840
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
2841
        Function_Return retVal
2842
    End_Function
2843

    
2844
    // The line position
2845
    { MethodType=Property DesignTime=False }
2846
    Procedure Set ComColNo Integer value
2847
        Handle hDispatchDriver
2848
        Get phDispatchDriver to hDispatchDriver
2849
        Send PrepareParams to hDispatchDriver 1
2850
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
2851
    End_Procedure
2852

    
2853
    // The line position
2854
    { MethodType=Property DesignTime=False }
2855
    Function ComColNo Returns Integer
2856
        Handle hDispatchDriver
2857
        Integer retVal
2858
        Get phDispatchDriver to hDispatchDriver
2859
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2860
        Function_Return retVal
2861
    End_Function
2862
End_Class
2863

    
2864
// CoClass
2865
// ProgID: CodeMax.Position.4
2866
// CLSID: {CC745A2E-A80C-4910-8D76-99EB36FC4F74}
2867
// Position Class
2868
Class cComPosition is a cComAutomationObject
2869
    Import_Class_Protocol cComIPosition
2870

    
2871
    Procedure Construct_Object
2872
        Forward Send Construct_Object
2873
        Set psProgID to "{CC745A2E-A80C-4910-8D76-99EB36FC4F74}"
2874
        Set peAutoCreate to acNoAutoCreate
2875
    End_Procedure
2876
End_Class
2877

    
2878
// CLSID: {3FAFA7FA-DA82-4CD3-9ED5-FB2A8C044093}
2879
// ILanguage Interface
2880
Class cComILanguage is a Mixin
2881

    
2882
    // The global collection of registered languages, if language registered
2883
    { MethodType=Property DesignTime=False }
2884
    Function ComParent Returns Variant
2885
        Handle hDispatchDriver
2886
        Variant retVal
2887
        Get phDispatchDriver to hDispatchDriver
2888
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
2889
        Function_Return retVal
2890
    End_Function
2891

    
2892
    // The name of the language
2893
    { MethodType=Property DesignTime=False }
2894
    Procedure Set ComName String value
2895
        Handle hDispatchDriver
2896
        Get phDispatchDriver to hDispatchDriver
2897
        Send PrepareParams to hDispatchDriver 1
2898
        Set ComProperty of hDispatchDriver -800 OLE_VT_BSTR to value
2899
    End_Procedure
2900

    
2901
    // The name of the language
2902
    { MethodType=Property DesignTime=False }
2903
    Function ComName Returns String
2904
        Handle hDispatchDriver
2905
        String retVal
2906
        Get phDispatchDriver to hDispatchDriver
2907
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
2908
        Function_Return retVal
2909
    End_Function
2910

    
2911
    // Registers a language for use in CodeMax controls
2912
    Procedure ComRegister
2913
        Handle hDispatchDriver
2914
        Get phDispatchDriver to hDispatchDriver
2915
        Send InvokeComMethod to hDispatchDriver 0 OLE_VT_VOID
2916
    End_Procedure
2917

    
2918
    // Unregisters a language by name or object
2919
    Procedure ComUnregister
2920
        Handle hDispatchDriver
2921
        Get phDispatchDriver to hDispatchDriver
2922
        Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
2923
    End_Procedure
2924

    
2925
    // the collection of tokensets
2926
    { MethodType=Property DesignTime=False }
2927
    Function ComTokenSets Returns Variant
2928
        Handle hDispatchDriver
2929
        Variant retVal
2930
        Get phDispatchDriver to hDispatchDriver
2931
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_DISPATCH to retVal
2932
        Function_Return retVal
2933
    End_Function
2934

    
2935
    // the language definition as XML
2936
    { MethodType=Property DesignTime=False }
2937
    Procedure Set ComXml String value
2938
        Handle hDispatchDriver
2939
        Get phDispatchDriver to hDispatchDriver
2940
        Send PrepareParams to hDispatchDriver 1
2941
        Set ComProperty of hDispatchDriver 3 OLE_VT_BSTR to value
2942
    End_Procedure
2943

    
2944
    // the language definition as XML
2945
    { MethodType=Property DesignTime=False }
2946
    Function ComXml Returns String
2947
        Handle hDispatchDriver
2948
        String retVal
2949
        Get phDispatchDriver to hDispatchDriver
2950
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
2951
        Function_Return retVal
2952
    End_Function
2953

    
2954
    // Retrieves a language definition from an XML file
2955
    Procedure ComLoadXmlDefinition String llFileName
2956
        Handle hDispatchDriver
2957
        Get phDispatchDriver to hDispatchDriver
2958
        Send PrepareParams to hDispatchDriver 1
2959
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
2960
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
2961
    End_Procedure
2962

    
2963
    // Saves a language definition to an XML file
2964
    Procedure ComSaveXmlDefinition String llFileName
2965
        Handle hDispatchDriver
2966
        Get phDispatchDriver to hDispatchDriver
2967
        Send PrepareParams to hDispatchDriver 1
2968
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
2969
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
2970
    End_Procedure
2971

    
2972
    // The characters defining an identifier.  Must be a regular expression (e.g. [a-zA-Z_] or [w]).
2973
    { MethodType=Property DesignTime=False }
2974
    Procedure Set ComWordChars String value
2975
        Handle hDispatchDriver
2976
        Get phDispatchDriver to hDispatchDriver
2977
        Send PrepareParams to hDispatchDriver 1
2978
        Set ComProperty of hDispatchDriver 6 OLE_VT_BSTR to value
2979
    End_Procedure
2980

    
2981
    // The characters defining an identifier.  Must be a regular expression (e.g. [a-zA-Z_] or [w]).
2982
    { MethodType=Property DesignTime=False }
2983
    Function ComWordChars Returns String
2984
        Handle hDispatchDriver
2985
        String retVal
2986
        Get phDispatchDriver to hDispatchDriver
2987
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
2988
        Function_Return retVal
2989
    End_Function
2990

    
2991
    // The default member list to display when invoked by the user
2992
    { MethodType=Property DesignTime=False }
2993
    Function ComMemberList Returns Variant
2994
        Handle hDispatchDriver
2995
        Variant retVal
2996
        Get phDispatchDriver to hDispatchDriver
2997
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_DISPATCH to retVal
2998
        Function_Return retVal
2999
    End_Function
3000

    
3001
    // The default member list to display when invoked by the user
3002
    { MethodType=Property DesignTime=False }
3003
    Procedure Set ComMemberList Variant value
3004
        Handle hDispatchDriver
3005
        Get phDispatchDriver to hDispatchDriver
3006
        Send PrepareParams to hDispatchDriver 1
3007
        Set ComProperty of hDispatchDriver 7 OLE_VT_DISPATCH to value
3008
    End_Procedure
3009

    
3010
    // True if whitespace can start a parameter block
3011
    { MethodType=Property DesignTime=False }
3012
    Function ComWhitespaceAsParamBlock Returns Boolean
3013
        Handle hDispatchDriver
3014
        Boolean retVal
3015
        Get phDispatchDriver to hDispatchDriver
3016
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal
3017
        Function_Return retVal
3018
    End_Function
3019

    
3020
    // True if whitespace can start a parameter block
3021
    { MethodType=Property DesignTime=False }
3022
    Procedure Set ComWhitespaceAsParamBlock Boolean value
3023
        Handle hDispatchDriver
3024
        Get phDispatchDriver to hDispatchDriver
3025
        Send PrepareParams to hDispatchDriver 1
3026
        Set ComProperty of hDispatchDriver 8 OLE_VT_BOOL to value
3027
    End_Procedure
3028
End_Class
3029

    
3030
// CoClass
3031
// ProgID: CodeMax.Language.4
3032
// CLSID: {6A7A40C2-A6ED-42F6-B19B-EEB52C65CCFD}
3033
// Language Class
3034
Class cComLanguage is a cComAutomationObject
3035
    Import_Class_Protocol cComILanguage
3036

    
3037
    Procedure Construct_Object
3038
        Forward Send Construct_Object
3039
        Set psProgID to "{6A7A40C2-A6ED-42F6-B19B-EEB52C65CCFD}"
3040
        Set peAutoCreate to acNoAutoCreate
3041
    End_Procedure
3042
End_Class
3043

    
3044
// CLSID: {DB276CB2-6D53-4AA8-8DDA-FA86404B9D86}
3045
// ITokenSet Interface
3046
Class cComITokenSet is a Mixin
3047

    
3048
    // The language which owns this object
3049
    { MethodType=Property DesignTime=False }
3050
    Function ComParent Returns Variant
3051
        Handle hDispatchDriver
3052
        Variant retVal
3053
        Get phDispatchDriver to hDispatchDriver
3054
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
3055
        Function_Return retVal
3056
    End_Function
3057

    
3058
    // The name of the tokenset
3059
    { MethodType=Property DesignTime=False }
3060
    Procedure Set ComName String value
3061
        Handle hDispatchDriver
3062
        Get phDispatchDriver to hDispatchDriver
3063
        Send PrepareParams to hDispatchDriver 1
3064
        Set ComProperty of hDispatchDriver -800 OLE_VT_BSTR to value
3065
    End_Procedure
3066

    
3067
    // The name of the tokenset
3068
    { MethodType=Property DesignTime=False }
3069
    Function ComName Returns String
3070
        Handle hDispatchDriver
3071
        String retVal
3072
        Get phDispatchDriver to hDispatchDriver
3073
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
3074
        Function_Return retVal
3075
    End_Function
3076

    
3077
    // Tokenset identifier
3078
    { MethodType=Property DesignTime=False }
3079
    Procedure Set ComId OLEcmTokenSetID value
3080
        Handle hDispatchDriver
3081
        Get phDispatchDriver to hDispatchDriver
3082
        Send PrepareParams to hDispatchDriver 1
3083
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
3084
    End_Procedure
3085

    
3086
    // Tokenset identifier
3087
    { MethodType=Property DesignTime=False }
3088
    Function ComId Returns OLEcmTokenSetID
3089
        Handle hDispatchDriver
3090
        OLEcmTokenSetID retVal
3091
        Get phDispatchDriver to hDispatchDriver
3092
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
3093
        Function_Return retVal
3094
    End_Function
3095

    
3096
    // Tokenset type (scope or keyword list)
3097
    { MethodType=Property DesignTime=False }
3098
    Procedure Set ComType OLEcmTokenSetType value
3099
        Handle hDispatchDriver
3100
        Get phDispatchDriver to hDispatchDriver
3101
        Send PrepareParams to hDispatchDriver 1
3102
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
3103
    End_Procedure
3104

    
3105
    // Tokenset type (scope or keyword list)
3106
    { MethodType=Property DesignTime=False }
3107
    Function ComType Returns OLEcmTokenSetType
3108
        Handle hDispatchDriver
3109
        OLEcmTokenSetType retVal
3110
        Get phDispatchDriver to hDispatchDriver
3111
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3112
        Function_Return retVal
3113
    End_Function
3114

    
3115
    // Tokenset is case-sensitive
3116
    { MethodType=Property DesignTime=False }
3117
    Procedure Set ComCaseSensitive Boolean value
3118
        Handle hDispatchDriver
3119
        Get phDispatchDriver to hDispatchDriver
3120
        Send PrepareParams to hDispatchDriver 1
3121
        Set ComProperty of hDispatchDriver 2 OLE_VT_BOOL to value
3122
    End_Procedure
3123

    
3124
    // Tokenset is case-sensitive
3125
    { MethodType=Property DesignTime=False }
3126
    Function ComCaseSensitive Returns Boolean
3127
        Handle hDispatchDriver
3128
        Boolean retVal
3129
        Get phDispatchDriver to hDispatchDriver
3130
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
3131
        Function_Return retVal
3132
    End_Function
3133

    
3134
    // Fixup keyword case on-the-fly (on/off)
3135
    { MethodType=Property DesignTime=False }
3136
    Procedure Set ComNormalizeCase Boolean value
3137
        Handle hDispatchDriver
3138
        Get phDispatchDriver to hDispatchDriver
3139
        Send PrepareParams to hDispatchDriver 1
3140
        Set ComProperty of hDispatchDriver 3 OLE_VT_BOOL to value
3141
    End_Procedure
3142

    
3143
    // Fixup keyword case on-the-fly (on/off)
3144
    { MethodType=Property DesignTime=False }
3145
    Function ComNormalizeCase Returns Boolean
3146
        Handle hDispatchDriver
3147
        Boolean retVal
3148
        Get phDispatchDriver to hDispatchDriver
3149
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BOOL to retVal
3150
        Function_Return retVal
3151
    End_Function
3152

    
3153
    // font style (bold, italic, underline, normal, etc.)
3154
    { MethodType=Property DesignTime=False }
3155
    Procedure Set ComFontStyle OLEcmFontStyle value
3156
        Handle hDispatchDriver
3157
        Get phDispatchDriver to hDispatchDriver
3158
        Send PrepareParams to hDispatchDriver 1
3159
        Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
3160
    End_Procedure
3161

    
3162
    // font style (bold, italic, underline, normal, etc.)
3163
    { MethodType=Property DesignTime=False }
3164
    Function ComFontStyle Returns OLEcmFontStyle
3165
        Handle hDispatchDriver
3166
        OLEcmFontStyle retVal
3167
        Get phDispatchDriver to hDispatchDriver
3168
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
3169
        Function_Return retVal
3170
    End_Function
3171

    
3172
    // foreground color
3173
    { MethodType=Property DesignTime=False }
3174
    Procedure Set ComForeColor Integer value
3175
        Handle hDispatchDriver
3176
        Get phDispatchDriver to hDispatchDriver
3177
        Send PrepareParams to hDispatchDriver 1
3178
        Set ComProperty of hDispatchDriver -513 OLE_VT_I4 to value
3179
    End_Procedure
3180

    
3181
    // foreground color
3182
    { MethodType=Property DesignTime=False }
3183
    Function ComForeColor Returns Integer
3184
        Handle hDispatchDriver
3185
        Integer retVal
3186
        Get phDispatchDriver to hDispatchDriver
3187
        Get InvokeComMethod of hDispatchDriver -513 OLE_VT_I4 to retVal
3188
        Function_Return retVal
3189
    End_Function
3190

    
3191
    // background color
3192
    { MethodType=Property DesignTime=False }
3193
    Procedure Set ComBackColor Integer value
3194
        Handle hDispatchDriver
3195
        Get phDispatchDriver to hDispatchDriver
3196
        Send PrepareParams to hDispatchDriver 1
3197
        Set ComProperty of hDispatchDriver -501 OLE_VT_I4 to value
3198
    End_Procedure
3199

    
3200
    // background color
3201
    { MethodType=Property DesignTime=False }
3202
    Function ComBackColor Returns Integer
3203
        Handle hDispatchDriver
3204
        Integer retVal
3205
        Get phDispatchDriver to hDispatchDriver
3206
        Get InvokeComMethod of hDispatchDriver -501 OLE_VT_I4 to retVal
3207
        Function_Return retVal
3208
    End_Function
3209

    
3210
    // Tokenset definition is hidden to the user
3211
    { MethodType=Property DesignTime=False }
3212
    Procedure Set ComHidden Boolean value
3213
        Handle hDispatchDriver
3214
        Get phDispatchDriver to hDispatchDriver
3215
        Send PrepareParams to hDispatchDriver 1
3216
        Set ComProperty of hDispatchDriver 5 OLE_VT_BOOL to value
3217
    End_Procedure
3218

    
3219
    // Tokenset definition is hidden to the user
3220
    { MethodType=Property DesignTime=False }
3221
    Function ComHidden Returns Boolean
3222
        Handle hDispatchDriver
3223
        Boolean retVal
3224
        Get phDispatchDriver to hDispatchDriver
3225
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
3226
        Function_Return retVal
3227
    End_Function
3228

    
3229
    // Tokenset represents scope which supports auto-indent
3230
    { MethodType=Property DesignTime=False }
3231
    Procedure Set ComAutoIndent Boolean value
3232
        Handle hDispatchDriver
3233
        Get phDispatchDriver to hDispatchDriver
3234
        Send PrepareParams to hDispatchDriver 1
3235
        Set ComProperty of hDispatchDriver 14 OLE_VT_BOOL to value
3236
    End_Procedure
3237

    
3238
    // Tokenset represents scope which supports auto-indent
3239
    { MethodType=Property DesignTime=False }
3240
    Function ComAutoIndent Returns Boolean
3241
        Handle hDispatchDriver
3242
        Boolean retVal
3243
        Get phDispatchDriver to hDispatchDriver
3244
        Get InvokeComMethod of hDispatchDriver 14 OLE_VT_BOOL to retVal
3245
        Function_Return retVal
3246
    End_Function
3247

    
3248
    // Tokenset represents scope which auto-terminates at end of line
3249
    { MethodType=Property DesignTime=False }
3250
    Procedure Set ComSingleLineScope Boolean value
3251
        Handle hDispatchDriver
3252
        Get phDispatchDriver to hDispatchDriver
3253
        Send PrepareParams to hDispatchDriver 1
3254
        Set ComProperty of hDispatchDriver 15 OLE_VT_BOOL to value
3255
    End_Procedure
3256

    
3257
    // Tokenset represents scope which auto-terminates at end of line
3258
    { MethodType=Property DesignTime=False }
3259
    Function ComSingleLineScope Returns Boolean
3260
        Handle hDispatchDriver
3261
        Boolean retVal
3262
        Get phDispatchDriver to hDispatchDriver
3263
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_BOOL to retVal
3264
        Function_Return retVal
3265
    End_Function
3266

    
3267
    // Tokenset represents scope which can chain together with itself (e.g. if else else else end)
3268
    { MethodType=Property DesignTime=False }
3269
    Procedure Set ComChain Boolean value
3270
        Handle hDispatchDriver
3271
        Get phDispatchDriver to hDispatchDriver
3272
        Send PrepareParams to hDispatchDriver 1
3273
        Set ComProperty of hDispatchDriver 16 OLE_VT_BOOL to value
3274
    End_Procedure
3275

    
3276
    // Tokenset represents scope which can chain together with itself (e.g. if else else else end)
3277
    { MethodType=Property DesignTime=False }
3278
    Function ComChain Returns Boolean
3279
        Handle hDispatchDriver
3280
        Boolean retVal
3281
        Get phDispatchDriver to hDispatchDriver
3282
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_BOOL to retVal
3283
        Function_Return retVal
3284
    End_Function
3285

    
3286
    // Tokenset to inherit color and font settings from
3287
    { MethodType=Property DesignTime=False }
3288
    Procedure Set ComInheritFrom Variant value
3289
        Handle hDispatchDriver
3290
        Get phDispatchDriver to hDispatchDriver
3291
        Send PrepareParams to hDispatchDriver 1
3292
        Set ComProperty of hDispatchDriver 17 OLE_VT_DISPATCH to value
3293
    End_Procedure
3294

    
3295
    // Tokenset to inherit color and font settings from
3296
    { MethodType=Property DesignTime=False }
3297
    Function ComInheritFrom Returns Variant
3298
        Handle hDispatchDriver
3299
        Variant retVal
3300
        Get phDispatchDriver to hDispatchDriver
3301
        Get InvokeComMethod of hDispatchDriver 17 OLE_VT_DISPATCH to retVal
3302
        Function_Return retVal
3303
    End_Function
3304

    
3305
    // The scopes this tokenset is valid in
3306
    { MethodType=Property DesignTime=False }
3307
    Function ComValidScopes Returns Variant
3308
        Handle hDispatchDriver
3309
        Variant retVal
3310
        Get phDispatchDriver to hDispatchDriver
3311
        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_DISPATCH to retVal
3312
        Function_Return retVal
3313
    End_Function
3314

    
3315
    // The primary token collection
3316
    { MethodType=Property DesignTime=False }
3317
    Function ComTokens Returns Variant
3318
        Handle hDispatchDriver
3319
        Variant retVal
3320
        Get phDispatchDriver to hDispatchDriver
3321
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_DISPATCH to retVal
3322
        Function_Return retVal
3323
    End_Function
3324

    
3325
    // The secondary token collection
3326
    { MethodType=Property DesignTime=False }
3327
    Function ComTokens2 Returns Variant
3328
        Handle hDispatchDriver
3329
        Variant retVal
3330
        Get phDispatchDriver to hDispatchDriver
3331
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_DISPATCH to retVal
3332
        Function_Return retVal
3333
    End_Function
3334

    
3335
    // Match scope end tokens only if interior scopes are fully closed
3336
    { MethodType=Property DesignTime=False }
3337
    Procedure Set ComSymmetrical Boolean value
3338
        Handle hDispatchDriver
3339
        Get phDispatchDriver to hDispatchDriver
3340
        Send PrepareParams to hDispatchDriver 1
3341
        Set ComProperty of hDispatchDriver 21 OLE_VT_BOOL to value
3342
    End_Procedure
3343

    
3344
    // Match scope end tokens only if interior scopes are fully closed
3345
    { MethodType=Property DesignTime=False }
3346
    Function ComSymmetrical Returns Boolean
3347
        Handle hDispatchDriver
3348
        Boolean retVal
3349
        Get phDispatchDriver to hDispatchDriver
3350
        Get InvokeComMethod of hDispatchDriver 21 OLE_VT_BOOL to retVal
3351
        Function_Return retVal
3352
    End_Function
3353

    
3354
    // 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
3355
    { MethodType=Property DesignTime=False }
3356
    Function ComMemberList Returns Variant
3357
        Handle hDispatchDriver
3358
        Variant retVal
3359
        Get phDispatchDriver to hDispatchDriver
3360
        Get InvokeComMethod of hDispatchDriver 22 OLE_VT_DISPATCH to retVal
3361
        Function_Return retVal
3362
    End_Function
3363

    
3364
    // 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
3365
    { MethodType=Property DesignTime=False }
3366
    Procedure Set ComMemberList Variant value
3367
        Handle hDispatchDriver
3368
        Get phDispatchDriver to hDispatchDriver
3369
        Send PrepareParams to hDispatchDriver 1
3370
        Set ComProperty of hDispatchDriver 22 OLE_VT_DISPATCH to value
3371
    End_Procedure
3372

    
3373
    // Allow brace matching to occur on this tokenset
3374
    { MethodType=Property DesignTime=False }
3375
    Procedure Set ComMatchBraces Boolean value
3376
        Handle hDispatchDriver
3377
        Get phDispatchDriver to hDispatchDriver
3378
        Send PrepareParams to hDispatchDriver 1
3379
        Set ComProperty of hDispatchDriver 23 OLE_VT_BOOL to value
3380
    End_Procedure
3381

    
3382
    // Allow brace matching to occur on this tokenset
3383
    { MethodType=Property DesignTime=False }
3384
    Function ComMatchBraces Returns Boolean
3385
        Handle hDispatchDriver
3386
        Boolean retVal
3387
        Get phDispatchDriver to hDispatchDriver
3388
        Get InvokeComMethod of hDispatchDriver 23 OLE_VT_BOOL to retVal
3389
        Function_Return retVal
3390
    End_Function
3391

    
3392
    // Enable/disable tokenset while parsing (True = Enable)
3393
    { MethodType=Property DesignTime=False }
3394
    Procedure Set ComEnabled Boolean value
3395
        Handle hDispatchDriver
3396
        Get phDispatchDriver to hDispatchDriver
3397
        Send PrepareParams to hDispatchDriver 1
3398
        Set ComProperty of hDispatchDriver 24 OLE_VT_BOOL to value
3399
    End_Procedure
3400

    
3401
    // Enable/disable tokenset while parsing (True = Enable)
3402
    { MethodType=Property DesignTime=False }
3403
    Function ComEnabled Returns Boolean
3404
        Handle hDispatchDriver
3405
        Boolean retVal
3406
        Get phDispatchDriver to hDispatchDriver
3407
        Get InvokeComMethod of hDispatchDriver 24 OLE_VT_BOOL to retVal
3408
        Function_Return retVal
3409
    End_Function
3410
End_Class
3411

    
3412
// CoClass
3413
// ProgID: CodeMax.TokenSet.4
3414
// CLSID: {C73F9B0A-0FE8-4FE3-9194-FB5C5FE3D07B}
3415
// TokenSet Class
3416
Class cComTokenSet is a cComAutomationObject
3417
    Import_Class_Protocol cComITokenSet
3418

    
3419
    Procedure Construct_Object
3420
        Forward Send Construct_Object
3421
        Set psProgID to "{C73F9B0A-0FE8-4FE3-9194-FB5C5FE3D07B}"
3422
        Set peAutoCreate to acNoAutoCreate
3423
    End_Procedure
3424
End_Class
3425

    
3426
// CLSID: {9E6DFFBD-D30E-423C-BEC7-41F58C74FF89}
3427
// HotKey Interface
3428
Class cComIHotKey is a Mixin
3429

    
3430
    // The modifiers for keystroke #1
3431
    { MethodType=Property DesignTime=False }
3432
    Procedure Set ComModifiers1 Integer value
3433
        Handle hDispatchDriver
3434
        Get phDispatchDriver to hDispatchDriver
3435
        Send PrepareParams to hDispatchDriver 1
3436
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
3437
    End_Procedure
3438

    
3439
    // The modifiers for keystroke #1
3440
    { MethodType=Property DesignTime=False }
3441
    Function ComModifiers1 Returns Integer
3442
        Handle hDispatchDriver
3443
        Integer retVal
3444
        Get phDispatchDriver to hDispatchDriver
3445
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3446
        Function_Return retVal
3447
    End_Function
3448

    
3449
    // The virtual key for keystroke #1 as a one-character string
3450
    { MethodType=Property DesignTime=False }
3451
    Procedure Set ComVirtKey1 String value
3452
        Handle hDispatchDriver
3453
        Get phDispatchDriver to hDispatchDriver
3454
        Send PrepareParams to hDispatchDriver 1
3455
        Set ComProperty of hDispatchDriver 2 OLE_VT_BSTR to value
3456
    End_Procedure
3457

    
3458
    // The virtual key for keystroke #1 as a one-character string
3459
    { MethodType=Property DesignTime=False }
3460
    Function ComVirtKey1 Returns String
3461
        Handle hDispatchDriver
3462
        String retVal
3463
        Get phDispatchDriver to hDispatchDriver
3464
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
3465
        Function_Return retVal
3466
    End_Function
3467

    
3468
    // The modifiers for keystroke #2
3469
    { MethodType=Property DesignTime=False }
3470
    Procedure Set ComModifiers2 Integer value
3471
        Handle hDispatchDriver
3472
        Get phDispatchDriver to hDispatchDriver
3473
        Send PrepareParams to hDispatchDriver 1
3474
        Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
3475
    End_Procedure
3476

    
3477
    // The modifiers for keystroke #2
3478
    { MethodType=Property DesignTime=False }
3479
    Function ComModifiers2 Returns Integer
3480
        Handle hDispatchDriver
3481
        Integer retVal
3482
        Get phDispatchDriver to hDispatchDriver
3483
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
3484
        Function_Return retVal
3485
    End_Function
3486

    
3487
    // The virtual key for keystroke #2 as a one-character string
3488
    { MethodType=Property DesignTime=False }
3489
    Procedure Set ComVirtKey2 String value
3490
        Handle hDispatchDriver
3491
        Get phDispatchDriver to hDispatchDriver
3492
        Send PrepareParams to hDispatchDriver 1
3493
        Set ComProperty of hDispatchDriver 4 OLE_VT_BSTR to value
3494
    End_Procedure
3495

    
3496
    // The virtual key for keystroke #2 as a one-character string
3497
    { MethodType=Property DesignTime=False }
3498
    Function ComVirtKey2 Returns String
3499
        Handle hDispatchDriver
3500
        String retVal
3501
        Get phDispatchDriver to hDispatchDriver
3502
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BSTR to retVal
3503
        Function_Return retVal
3504
    End_Function
3505

    
3506
    // Bind this hotkey to a CodeMax command
3507
    Procedure ComBindTo OLEcmCommand llCmd
3508
        Handle hDispatchDriver
3509
        Get phDispatchDriver to hDispatchDriver
3510
        Send PrepareParams to hDispatchDriver 1
3511
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3512
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
3513
    End_Procedure
3514

    
3515
    // Unbind this hotkey from its associated CodeMax command
3516
    Procedure ComUnbind
3517
        Handle hDispatchDriver
3518
        Get phDispatchDriver to hDispatchDriver
3519
        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
3520
    End_Procedure
3521
End_Class
3522

    
3523
// CoClass
3524
// ProgID: CodeMax.HotKey.4
3525
// CLSID: {98405A1F-5C74-4F2B-8022-93AC0B9C464B}
3526
// HotKey Class
3527
Class cComHotKey is a cComAutomationObject
3528
    Import_Class_Protocol cComIHotKey
3529

    
3530
    Procedure Construct_Object
3531
        Forward Send Construct_Object
3532
        Set psProgID to "{98405A1F-5C74-4F2B-8022-93AC0B9C464B}"
3533
        Set peAutoCreate to acNoAutoCreate
3534
    End_Procedure
3535
End_Class
3536

    
3537
// CLSID: {ABFC2310-7EDB-4178-B273-66A6AF94A743}
3538
// IGlobals Interface
3539
Class cComIGlobals is a Mixin
3540

    
3541

    
3542
    // Sets the MRU list displayed in the Find/Find-Replace dialog boxes, delimited by 
3543
    // 
3544
    { MethodType=Property DesignTime=False }
3545
    Procedure Set ComFindMRUList String value
3546
        Handle hDispatchDriver
3547
        Get phDispatchDriver to hDispatchDriver
3548
        Send PrepareParams to hDispatchDriver 1
3549
        Set ComProperty of hDispatchDriver 0 OLE_VT_BSTR to value
3550
    End_Procedure
3551

    
3552

    
3553
    // Sets the MRU list displayed in the Find/Find-Replace dialog boxes, delimited by 
3554
    // 
3555
    { MethodType=Property DesignTime=False }
3556
    Function ComFindMRUList Returns String
3557
        Handle hDispatchDriver
3558
        String retVal
3559
        Get phDispatchDriver to hDispatchDriver
3560
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BSTR to retVal
3561
        Function_Return retVal
3562
    End_Function
3563

    
3564
    // Sets the MRU list displayed in the Find-Replace dialog box
3565
    { MethodType=Property DesignTime=False }
3566
    Procedure Set ComReplaceMRUList String value
3567
        Handle hDispatchDriver
3568
        Get phDispatchDriver to hDispatchDriver
3569
        Send PrepareParams to hDispatchDriver 1
3570
        Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
3571
    End_Procedure
3572

    
3573
    // Sets the MRU list displayed in the Find-Replace dialog box
3574
    { MethodType=Property DesignTime=False }
3575
    Function ComReplaceMRUList Returns String
3576
        Handle hDispatchDriver
3577
        String retVal
3578
        Get phDispatchDriver to hDispatchDriver
3579
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
3580
        Function_Return retVal
3581
    End_Function
3582

    
3583
    // Retrieves the keyboard assignments into a buffer
3584
    Procedure ComGetHotKeys UChar[] ByRef llHotKeysBuff
3585
        Handle hDispatchDriver
3586
        Get phDispatchDriver to hDispatchDriver
3587
        Send PrepareParams to hDispatchDriver 1
3588
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llHotKeysBuff
3589
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
3590
    End_Procedure
3591

    
3592
    // Loads the keyboard assignments into CodeMax from a buffer
3593
    Procedure ComSetHotKeys UChar[] ByRef llHotKeysBuff
3594
        Handle hDispatchDriver
3595
        Get phDispatchDriver to hDispatchDriver
3596
        Send PrepareParams to hDispatchDriver 1
3597
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llHotKeysBuff
3598
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
3599
    End_Procedure
3600

    
3601
    // Resets all keyboards settings back to the factory settings
3602
    Procedure ComResetDefaultHotKeys
3603
        Handle hDispatchDriver
3604
        Get phDispatchDriver to hDispatchDriver
3605
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
3606
    End_Procedure
3607

    
3608
    // Returns the collection of hotkeys assigned to a CodeMax command
3609
    Function ComGetHotKeysForCmd OLEcmCommand llCmd Returns Variant
3610
        Handle hDispatchDriver
3611
        Variant retVal
3612
        Get phDispatchDriver to hDispatchDriver
3613
        Send PrepareParams to hDispatchDriver 1
3614
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3615
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_DISPATCH to retVal
3616
        Function_Return retVal
3617
    End_Function
3618

    
3619
    // Retrieves a human-readable title or description of a CodeMax command
3620
    Function ComGetCmdString OLEcmCommand llCmd Boolean llDescription Returns String
3621
        Handle hDispatchDriver
3622
        String retVal
3623
        Get phDispatchDriver to hDispatchDriver
3624
        Send PrepareParams to hDispatchDriver 2
3625
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3626
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llDescription
3627
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
3628
        Function_Return retVal
3629
    End_Function
3630

    
3631
    // Retrieves a macro definition into a byte buffer
3632
    Procedure ComGetMacro Integer llMacro UChar[] ByRef llMacroBuff
3633
        Handle hDispatchDriver
3634
        Get phDispatchDriver to hDispatchDriver
3635
        Send PrepareParams to hDispatchDriver 2
3636
        Send DefineParam to hDispatchDriver OLE_VT_I4 llMacro
3637
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llMacroBuff
3638
        Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
3639
    End_Procedure
3640

    
3641
    // Loads a macro into CodeMax from a buffer
3642
    Procedure ComSetMacro Integer llMacro UChar[] ByRef llMacroBuff
3643
        Handle hDispatchDriver
3644
        Get phDispatchDriver to hDispatchDriver
3645
        Send PrepareParams to hDispatchDriver 2
3646
        Send DefineParam to hDispatchDriver OLE_VT_I4 llMacro
3647
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_ARRAY ior OLE_VT_UI1)) llMacroBuff
3648
        Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
3649
    End_Procedure
3650

    
3651
    // Registers a custom command
3652
    Procedure ComRegisterCmd Integer llCmd String llName String llDescription
3653
        Handle hDispatchDriver
3654
        Get phDispatchDriver to hDispatchDriver
3655
        Send PrepareParams to hDispatchDriver 3
3656
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3657
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llName
3658
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llDescription
3659
        Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
3660
    End_Procedure
3661

    
3662
    // Unregisters a custom command registered with RegisterCommand()
3663
    Procedure ComUnregisterCmd Integer llCmd
3664
        Handle hDispatchDriver
3665
        Get phDispatchDriver to hDispatchDriver
3666
        Send PrepareParams to hDispatchDriver 1
3667
        Send DefineParam to hDispatchDriver OLE_VT_I4 llCmd
3668
        Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
3669
    End_Procedure
3670

    
3671
    // Saves all global user settings to the Windows Registry
3672
    Procedure ComSaveSettingsToRegistry String llRegistryKeyPath
3673
        Handle hDispatchDriver
3674
        Get phDispatchDriver to hDispatchDriver
3675
        Send PrepareParams to hDispatchDriver 1
3676
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegistryKeyPath
3677
        Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
3678
    End_Procedure
3679

    
3680
    // Loads all global user settings from the Windows Registry
3681
    Procedure ComLoadSettingsFromRegistry String llRegistryKeyPath
3682
        Handle hDispatchDriver
3683
        Get phDispatchDriver to hDispatchDriver
3684
        Send PrepareParams to hDispatchDriver 1
3685
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegistryKeyPath
3686
        Send InvokeComMethod to hDispatchDriver 12 OLE_VT_VOID
3687
    End_Procedure
3688

    
3689
    // Saves all global user settings to a stream
3690
    Procedure ComSaveSettingsToStream Variant llStream
3691
        Handle hDispatchDriver
3692
        Get phDispatchDriver to hDispatchDriver
3693
        Send PrepareParams to hDispatchDriver 1
3694
        Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llStream
3695
        Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
3696
    End_Procedure
3697

    
3698
    // Loads all global user settings from a stream
3699
    Procedure ComLoadSettingsFromStream Variant llStream
3700
        Handle hDispatchDriver
3701
        Get phDispatchDriver to hDispatchDriver
3702
        Send PrepareParams to hDispatchDriver 1
3703
        Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llStream
3704
        Send InvokeComMethod to hDispatchDriver 14 OLE_VT_VOID
3705
    End_Procedure
3706

    
3707
    // Registers a custom token parsing rule
3708
    Procedure ComRegisterTokenRule Variant llTokenRule
3709
        Handle hDispatchDriver
3710
        Get phDispatchDriver to hDispatchDriver
3711
        Send PrepareParams to hDispatchDriver 1
3712
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llTokenRule
3713
        Send InvokeComMethod to hDispatchDriver 15 OLE_VT_VOID
3714
    End_Procedure
3715

    
3716
    // Unregisters a custom token parsing rule
3717
    Procedure ComUnregisterTokenRule Variant llTokenRule
3718
        Handle hDispatchDriver
3719
        Get phDispatchDriver to hDispatchDriver
3720
        Send PrepareParams to hDispatchDriver 1
3721
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llTokenRule
3722
        Send InvokeComMethod to hDispatchDriver 16 OLE_VT_VOID
3723
    End_Procedure
3724

    
3725
    // The master collection of all registered languages
3726
    { MethodType=Property DesignTime=False }
3727
    Function ComLanguages Returns Variant
3728
        Handle hDispatchDriver
3729
        Variant retVal
3730
        Get phDispatchDriver to hDispatchDriver
3731
        Get InvokeComMethod of hDispatchDriver 17 OLE_VT_DISPATCH to retVal
3732
        Function_Return retVal
3733
    End_Function
3734

    
3735
    // Test a regular expression for syntax errors
3736
    Function ComValidateRegExp String llRegExp Integer ByRef llErrorCol String ByRef llErrMsg Returns Boolean
3737
        Handle hDispatchDriver
3738
        Boolean retVal
3739
        Get phDispatchDriver to hDispatchDriver
3740
        Send PrepareParams to hDispatchDriver 3
3741
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llRegExp
3742
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llErrorCol
3743
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llErrMsg
3744
        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_BOOL to retVal
3745
        Function_Return retVal
3746
    End_Function
3747

    
3748
    // specifies how progress feedback should behave.
3749
    { MethodType=Property DesignTime=False }
3750
    Procedure Set ComProgressBehavior OLEcmProgressFlags value
3751
        Handle hDispatchDriver
3752
        Get phDispatchDriver to hDispatchDriver
3753
        Send PrepareParams to hDispatchDriver 1
3754
        Set ComProperty of hDispatchDriver 19 OLE_VT_I4 to value
3755
    End_Procedure
3756

    
3757
    // specifies how progress feedback should behave.
3758
    { MethodType=Property DesignTime=False }
3759
    Function ComProgressBehavior Returns OLEcmProgressFlags
3760
        Handle hDispatchDriver
3761
        OLEcmProgressFlags retVal
3762
        Get phDispatchDriver to hDispatchDriver
3763
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_I4 to retVal
3764
        Function_Return retVal
3765
    End_Function
3766

    
3767
    // A DLL whose resources should override those in the CodeMax DLL.
3768
    { MethodType=Property DesignTime=False }
3769
    Procedure Set ComResourceOverrideDLL String value
3770
        Handle hDispatchDriver
3771
        Get phDispatchDriver to hDispatchDriver
3772
        Send PrepareParams to hDispatchDriver 1
3773
        Set ComProperty of hDispatchDriver 20 OLE_VT_BSTR to value
3774
    End_Procedure
3775

    
3776
    // A DLL whose resources should override those in the CodeMax DLL.
3777
    { MethodType=Property DesignTime=False }
3778
    Function ComResourceOverrideDLL Returns String
3779
        Handle hDispatchDriver
3780
        String retVal
3781
        Get phDispatchDriver to hDispatchDriver
3782
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_BSTR to retVal
3783
        Function_Return retVal
3784
    End_Function
3785

    
3786
    // The master collection of all registered memberlists
3787
    { MethodType=Property DesignTime=False }
3788
    Function ComMemberLists Returns Variant
3789
        Handle hDispatchDriver
3790
        Variant retVal
3791
        Get phDispatchDriver to hDispatchDriver
3792
        Get InvokeComMethod of hDispatchDriver 21 OLE_VT_DISPATCH to retVal
3793
        Function_Return retVal
3794
    End_Function
3795
End_Class
3796

    
3797
// CoClass
3798
// ProgID: CodeMax.Globals.4
3799
// CLSID: {B2710F3D-60D8-4380-AE4B-2E161F82CF97}
3800
// Globals Class
3801
Class cComGlobals is a cComAutomationObject
3802
    Import_Class_Protocol cComIGlobals
3803

    
3804
    Procedure Construct_Object
3805
        Forward Send Construct_Object
3806
        Set psProgID to "{B2710F3D-60D8-4380-AE4B-2E161F82CF97}"
3807
        Set peAutoCreate to acNoAutoCreate
3808
    End_Procedure
3809
End_Class
3810

    
3811
// CLSID: {0B0AA9C1-34C8-4A18-8480-A4E440FCA9CC}
3812
// IRect Interface
3813
Class cComIRect is a Mixin
3814

    
3815
    // left
3816
    { MethodType=Property DesignTime=False }
3817
    Procedure Set ComLeft Integer value
3818
        Handle hDispatchDriver
3819
        Get phDispatchDriver to hDispatchDriver
3820
        Send PrepareParams to hDispatchDriver 1
3821
        Set ComProperty of hDispatchDriver 0 OLE_VT_I4 to value
3822
    End_Procedure
3823

    
3824
    // left
3825
    { MethodType=Property DesignTime=False }
3826
    Function ComLeft Returns Integer
3827
        Handle hDispatchDriver
3828
        Integer retVal
3829
        Get phDispatchDriver to hDispatchDriver
3830
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
3831
        Function_Return retVal
3832
    End_Function
3833

    
3834
    // top
3835
    { MethodType=Property DesignTime=False }
3836
    Procedure Set ComTop Integer value
3837
        Handle hDispatchDriver
3838
        Get phDispatchDriver to hDispatchDriver
3839
        Send PrepareParams to hDispatchDriver 1
3840
        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
3841
    End_Procedure
3842

    
3843
    // top
3844
    { MethodType=Property DesignTime=False }
3845
    Function ComTop Returns Integer
3846
        Handle hDispatchDriver
3847
        Integer retVal
3848
        Get phDispatchDriver to hDispatchDriver
3849
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3850
        Function_Return retVal
3851
    End_Function
3852

    
3853
    // right
3854
    { MethodType=Property DesignTime=False }
3855
    Procedure Set ComRight Integer value
3856
        Handle hDispatchDriver
3857
        Get phDispatchDriver to hDispatchDriver
3858
        Send PrepareParams to hDispatchDriver 1
3859
        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
3860
    End_Procedure
3861

    
3862
    // right
3863
    { MethodType=Property DesignTime=False }
3864
    Function ComRight Returns Integer
3865
        Handle hDispatchDriver
3866
        Integer retVal
3867
        Get phDispatchDriver to hDispatchDriver
3868
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
3869
        Function_Return retVal
3870
    End_Function
3871

    
3872
    // bottom
3873
    { MethodType=Property DesignTime=False }
3874
    Procedure Set ComBottom Integer value
3875
        Handle hDispatchDriver
3876
        Get phDispatchDriver to hDispatchDriver
3877
        Send PrepareParams to hDispatchDriver 1
3878
        Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
3879
    End_Procedure
3880

    
3881
    // bottom
3882
    { MethodType=Property DesignTime=False }
3883
    Function ComBottom Returns Integer
3884
        Handle hDispatchDriver
3885
        Integer retVal
3886
        Get phDispatchDriver to hDispatchDriver
3887
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
3888
        Function_Return retVal
3889
    End_Function
3890
End_Class
3891

    
3892
// CoClass
3893
// ProgID: CodeMax.Rect.4
3894
// CLSID: {D608D3D5-152C-4927-B211-10DDA77797D4}
3895
// Rect Class
3896
Class cComRect is a cComAutomationObject
3897
    Import_Class_Protocol cComIRect
3898

    
3899
    Procedure Construct_Object
3900
        Forward Send Construct_Object
3901
        Set psProgID to "{D608D3D5-152C-4927-B211-10DDA77797D4}"
3902
        Set peAutoCreate to acNoAutoCreate
3903
    End_Procedure
3904
End_Class
3905

    
3906
// CLSID: {3D6D775C-0B28-4AAE-9C22-17E1A73A626D}
3907
// IMemberList Interface
3908
Class cComIMemberList is a Mixin
3909

    
3910
    // Get member by text or zero-based index
3911
    { MethodType=Property DesignTime=False }
3912
    Function ComItem Variant llIndex Returns Variant
3913
        Handle hDispatchDriver
3914
        Variant retVal
3915
        Get phDispatchDriver to hDispatchDriver
3916
        Send PrepareParams to hDispatchDriver 1
3917
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
3918
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
3919
        Function_Return retVal
3920
    End_Function
3921

    
3922
    // The associated language
3923
    { MethodType=Property DesignTime=False }
3924
    Procedure Set ComLanguage Variant value
3925
        Handle hDispatchDriver
3926
        Get phDispatchDriver to hDispatchDriver
3927
        Send PrepareParams to hDispatchDriver 1
3928
        Set ComProperty of hDispatchDriver 1 OLE_VT_DISPATCH to value
3929
    End_Procedure
3930

    
3931
    // The associated language
3932
    { MethodType=Property DesignTime=False }
3933
    Function ComLanguage Returns Variant
3934
        Handle hDispatchDriver
3935
        Variant retVal
3936
        Get phDispatchDriver to hDispatchDriver
3937
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_DISPATCH to retVal
3938
        Function_Return retVal
3939
    End_Function
3940

    
3941
    // Total number of members
3942
    { MethodType=Property DesignTime=False }
3943
    Function ComCount Returns Integer
3944
        Handle hDispatchDriver
3945
        Integer retVal
3946
        Get phDispatchDriver to hDispatchDriver
3947
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
3948
        Function_Return retVal
3949
    End_Function
3950

    
3951
    // The name of the member list
3952
    { MethodType=Property DesignTime=False }
3953
    Procedure Set ComName String value
3954
        Handle hDispatchDriver
3955
        Get phDispatchDriver to hDispatchDriver
3956
        Send PrepareParams to hDispatchDriver 1
3957
        Set ComProperty of hDispatchDriver -800 OLE_VT_BSTR to value
3958
    End_Procedure
3959

    
3960
    // The name of the member list
3961
    { MethodType=Property DesignTime=False }
3962
    Function ComName Returns String
3963
        Handle hDispatchDriver
3964
        String retVal
3965
        Get phDispatchDriver to hDispatchDriver
3966
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
3967
        Function_Return retVal
3968
    End_Function
3969

    
3970
    // Create and add a member to the collection
3971
    Function ComAdd String llName String llPrototype Short llImage Returns Variant
3972
        Handle hDispatchDriver
3973
        Variant retVal
3974
        Get phDispatchDriver to hDispatchDriver
3975
        Send PrepareParams to hDispatchDriver 3
3976
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llName
3977
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llPrototype
3978
        Send DefineParam to hDispatchDriver OLE_VT_I2 llImage
3979
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_DISPATCH to retVal
3980
        Function_Return retVal
3981
    End_Function
3982

    
3983
    // Additional member lists to include when this list displayed in the UI.
3984
    { MethodType=Property DesignTime=False }
3985
    Function ComInheritedLists Returns Variant
3986
        Handle hDispatchDriver
3987
        Variant retVal
3988
        Get phDispatchDriver to hDispatchDriver
3989
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_DISPATCH to retVal
3990
        Function_Return retVal
3991
    End_Function
3992

    
3993
    // removes a member from the collection by name, zero-based index, or object
3994
    Procedure ComRemove Variant llMember
3995
        Handle hDispatchDriver
3996
        Get phDispatchDriver to hDispatchDriver
3997
        Send PrepareParams to hDispatchDriver 1
3998
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llMember
3999
        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
4000
    End_Procedure
4001

    
4002
    // removes all members
4003
    Procedure ComRemoveAll
4004
        Handle hDispatchDriver
4005
        Get phDispatchDriver to hDispatchDriver
4006
        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
4007
    End_Procedure
4008

    
4009
    // sets the line margin images
4010
    { MethodType=Property DesignTime=False }
4011
    Procedure Set ComHImageList OLE_HANDLE value
4012
        Handle hDispatchDriver
4013
        Get phDispatchDriver to hDispatchDriver
4014
        Send PrepareParams to hDispatchDriver 1
4015
        Set ComProperty of hDispatchDriver 7 OLE_VT_I4 to value
4016
    End_Procedure
4017

    
4018
    // sets the line margin images
4019
    { MethodType=Property DesignTime=False }
4020
    Function ComHImageList Returns OLE_HANDLE
4021
        Handle hDispatchDriver
4022
        OLE_HANDLE retVal
4023
        Get phDispatchDriver to hDispatchDriver
4024
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
4025
        Function_Return retVal
4026
    End_Function
4027

    
4028
    // retrieves the ImageList control to be used.  Try Imember.hImageList property if this fails.
4029
    { MethodType=Property DesignTime=False }
4030
    Function ComImageList Returns Variant
4031
        Handle hDispatchDriver
4032
        Variant retVal
4033
        Get phDispatchDriver to hDispatchDriver
4034
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_DISPATCH to retVal
4035
        Function_Return retVal
4036
    End_Function
4037

    
4038
    // retrieves the ImageList control to be used.  Try Imember.hImageList property if this fails.
4039
    { MethodType=Property DesignTime=False }
4040
    Procedure Set ComImageList Variant value
4041
        Handle hDispatchDriver
4042
        Get phDispatchDriver to hDispatchDriver
4043
        Send PrepareParams to hDispatchDriver 1
4044
        Set ComProperty of hDispatchDriver 8 OLE_VT_DISPATCH to value
4045
    End_Procedure
4046

    
4047
    // retrieves the ImageList control to be used.  Try Imember.hImageList property if this fails.
4048
    { MethodType=Property DesignTime=False }
4049
    Procedure Set ComImageListRef Variant value
4050
        Handle hDispatchDriver
4051
        Get phDispatchDriver to hDispatchDriver
4052
        Send PrepareParams to hDispatchDriver 1
4053
        Set ComProperty of hDispatchDriver 8 OLE_VT_DISPATCH to value
4054
    End_Procedure
4055

    
4056
    // Display images next to members
4057
    { MethodType=Property DesignTime=False }
4058
    Procedure Set ComShowImages Boolean value
4059
        Handle hDispatchDriver
4060
        Get phDispatchDriver to hDispatchDriver
4061
        Send PrepareParams to hDispatchDriver 1
4062
        Set ComProperty of hDispatchDriver 9 OLE_VT_BOOL to value
4063
    End_Procedure
4064

    
4065
    // Display images next to members
4066
    { MethodType=Property DesignTime=False }
4067
    Function ComShowImages Returns Boolean
4068
        Handle hDispatchDriver
4069
        Boolean retVal
4070
        Get phDispatchDriver to hDispatchDriver
4071
        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BOOL to retVal
4072
        Function_Return retVal
4073
    End_Function
4074

    
4075
    // the member list definition as XML
4076
    { MethodType=Property DesignTime=False }
4077
    Procedure Set ComXml String value
4078
        Handle hDispatchDriver
4079
        Get phDispatchDriver to hDispatchDriver
4080
        Send PrepareParams to hDispatchDriver 1
4081
        Set ComProperty of hDispatchDriver 10 OLE_VT_BSTR to value
4082
    End_Procedure
4083

    
4084
    // the member list definition as XML
4085
    { MethodType=Property DesignTime=False }
4086
    Function ComXml Returns String
4087
        Handle hDispatchDriver
4088
        String retVal
4089
        Get phDispatchDriver to hDispatchDriver
4090
        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_BSTR to retVal
4091
        Function_Return retVal
4092
    End_Function
4093

    
4094
    // Retrieves a member list definition from an XML file
4095
    Procedure ComLoadXmlDefinition String llFileName
4096
        Handle hDispatchDriver
4097
        Get phDispatchDriver to hDispatchDriver
4098
        Send PrepareParams to hDispatchDriver 1
4099
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
4100
        Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
4101
    End_Procedure
4102

    
4103
    // Saves a member list definition to an XML file
4104
    Procedure ComSaveXmlDefinition String llFileName
4105
        Handle hDispatchDriver
4106
        Get phDispatchDriver to hDispatchDriver
4107
        Send PrepareParams to hDispatchDriver 1
4108
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
4109
        Send InvokeComMethod to hDispatchDriver 12 OLE_VT_VOID
4110
    End_Procedure
4111

    
4112
    // Registers a memberlist to be referenced later
4113
    Procedure ComRegister
4114
        Handle hDispatchDriver
4115
        Get phDispatchDriver to hDispatchDriver
4116
        Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
4117
    End_Procedure
4118

    
4119
    // Unregisters a memberlist by name or object
4120
    Procedure ComUnregister
4121
        Handle hDispatchDriver
4122
        Get phDispatchDriver to hDispatchDriver
4123
        Send InvokeComMethod to hDispatchDriver 14 OLE_VT_VOID
4124
    End_Procedure
4125

    
4126
    // Width (in characters) of memberlist popup window.  Set to -1 for auto-size.
4127
    { MethodType=Property DesignTime=False }
4128
    Procedure Set ComWidth Short value
4129
        Handle hDispatchDriver
4130
        Get phDispatchDriver to hDispatchDriver
4131
        Send PrepareParams to hDispatchDriver 1
4132
        Set ComProperty of hDispatchDriver 15 OLE_VT_I2 to value
4133
    End_Procedure
4134

    
4135
    // Width (in characters) of memberlist popup window.  Set to -1 for auto-size.
4136
    { MethodType=Property DesignTime=False }
4137
    Function ComWidth Returns Short
4138
        Handle hDispatchDriver
4139
        Short retVal
4140
        Get phDispatchDriver to hDispatchDriver
4141
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_I2 to retVal
4142
        Function_Return retVal
4143
    End_Function
4144

    
4145
    // member list is case-sensitive
4146
    { MethodType=Property DesignTime=False }
4147
    Procedure Set ComCaseSensitive Boolean value
4148
        Handle hDispatchDriver
4149
        Get phDispatchDriver to hDispatchDriver
4150
        Send PrepareParams to hDispatchDriver 1
4151
        Set ComProperty of hDispatchDriver 16 OLE_VT_BOOL to value
4152
    End_Procedure
4153

    
4154
    // member list is case-sensitive
4155
    { MethodType=Property DesignTime=False }
4156
    Function ComCaseSensitive Returns Boolean
4157
        Handle hDispatchDriver
4158
        Boolean retVal
4159
        Get phDispatchDriver to hDispatchDriver
4160
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_BOOL to retVal
4161
        Function_Return retVal
4162
    End_Function
4163

    
4164
    // member list styles
4165
    { MethodType=Property DesignTime=False }
4166
    Procedure Set ComStyle OLEcmMemberListStyle value
4167
        Handle hDispatchDriver
4168
        Get phDispatchDriver to hDispatchDriver
4169
        Send PrepareParams to hDispatchDriver 1
4170
        Set ComProperty of hDispatchDriver 500 OLE_VT_I4 to value
4171
    End_Procedure
4172

    
4173
    // member list styles
4174
    { MethodType=Property DesignTime=False }
4175
    Function ComStyle Returns OLEcmMemberListStyle
4176
        Handle hDispatchDriver
4177
        OLEcmMemberListStyle retVal
4178
        Get phDispatchDriver to hDispatchDriver
4179
        Get InvokeComMethod of hDispatchDriver 500 OLE_VT_I4 to retVal
4180
        Function_Return retVal
4181
    End_Function
4182
End_Class
4183

    
4184
// CoClass
4185
// ProgID: CodeMax.MemberList.4
4186
// CLSID: {0610B730-1BD8-4049-A878-440353520088}
4187
// MemberList Class
4188
Class cComMemberList is a cComAutomationObject
4189
    Import_Class_Protocol cComIMemberList
4190

    
4191
    Procedure Construct_Object
4192
        Forward Send Construct_Object
4193
        Set psProgID to "{0610B730-1BD8-4049-A878-440353520088}"
4194
        Set peAutoCreate to acNoAutoCreate
4195
    End_Procedure
4196
End_Class
4197

    
4198
// CLSID: {9497427D-B4B6-4E9F-BA30-A5A4A1F01CCC}
4199
// ILanguages Interface
4200
Class cComILanguages is a cComAutomationObject
4201

    
4202
    // Get language by name or zero-based index
4203
    { MethodType=Property DesignTime=False }
4204
    Function ComItem Variant llIndex Returns Variant
4205
        Handle hDispatchDriver
4206
        Variant retVal
4207
        Get phDispatchDriver to hDispatchDriver
4208
        Send PrepareParams to hDispatchDriver 1
4209
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4210
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4211
        Function_Return retVal
4212
    End_Function
4213

    
4214
    // Total number of registered languages
4215
    { MethodType=Property DesignTime=False }
4216
    Function ComCount Returns Integer
4217
        Handle hDispatchDriver
4218
        Integer retVal
4219
        Get phDispatchDriver to hDispatchDriver
4220
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4221
        Function_Return retVal
4222
    End_Function
4223

    
4224
    // register a language for use in a CodeMax control
4225
    Procedure ComAdd Variant llLanguage
4226
        Handle hDispatchDriver
4227
        Get phDispatchDriver to hDispatchDriver
4228
        Send PrepareParams to hDispatchDriver 1
4229
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llLanguage
4230
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4231
    End_Procedure
4232

    
4233
    // Unregister a language
4234
    Procedure ComRemove Variant llLanguage
4235
        Handle hDispatchDriver
4236
        Get phDispatchDriver to hDispatchDriver
4237
        Send PrepareParams to hDispatchDriver 1
4238
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llLanguage
4239
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4240
    End_Procedure
4241

    
4242
    // Unregister all languages
4243
    Procedure ComRemoveAll
4244
        Handle hDispatchDriver
4245
        Get phDispatchDriver to hDispatchDriver
4246
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4247
    End_Procedure
4248
End_Class
4249

    
4250
// CLSID: {A71CC118-F542-4883-8D23-B9BCDAD09CE2}
4251
// ITokenSets Interface
4252
Class cComITokenSets is a cComAutomationObject
4253

    
4254
    // Get tokenset by name or zero-based index
4255
    { MethodType=Property DesignTime=False }
4256
    Function ComItem Variant llIndex Returns Variant
4257
        Handle hDispatchDriver
4258
        Variant retVal
4259
        Get phDispatchDriver to hDispatchDriver
4260
        Send PrepareParams to hDispatchDriver 1
4261
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4262
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4263
        Function_Return retVal
4264
    End_Function
4265

    
4266
    // Total number of tokensets
4267
    { MethodType=Property DesignTime=False }
4268
    Function ComCount Returns Integer
4269
        Handle hDispatchDriver
4270
        Integer retVal
4271
        Get phDispatchDriver to hDispatchDriver
4272
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4273
        Function_Return retVal
4274
    End_Function
4275

    
4276
    // add a tokenset to the collection
4277
    Procedure ComAdd Variant llTokenSet
4278
        Handle hDispatchDriver
4279
        Get phDispatchDriver to hDispatchDriver
4280
        Send PrepareParams to hDispatchDriver 1
4281
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llTokenSet
4282
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4283
    End_Procedure
4284

    
4285
    // removes a tokenset from the collection
4286
    Procedure ComRemove Variant llTokenSet
4287
        Handle hDispatchDriver
4288
        Get phDispatchDriver to hDispatchDriver
4289
        Send PrepareParams to hDispatchDriver 1
4290
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llTokenSet
4291
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4292
    End_Procedure
4293
End_Class
4294

    
4295
// CLSID: {4E46A4A0-8C06-4E2A-8D7E-EA1B5380D4B5}
4296
// ITokens Interface
4297
Class cComITokens is a cComAutomationObject
4298

    
4299
    // The TokenSet that owns this collection
4300
    { MethodType=Property DesignTime=False }
4301
    Function ComParent Returns Variant
4302
        Handle hDispatchDriver
4303
        Variant retVal
4304
        Get phDispatchDriver to hDispatchDriver
4305
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
4306
        Function_Return retVal
4307
    End_Function
4308

    
4309
    // Get token by text or zero-based index
4310
    { MethodType=Property DesignTime=False }
4311
    Function ComItem Variant llIndex Returns Variant
4312
        Handle hDispatchDriver
4313
        Variant retVal
4314
        Get phDispatchDriver to hDispatchDriver
4315
        Send PrepareParams to hDispatchDriver 1
4316
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4317
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4318
        Function_Return retVal
4319
    End_Function
4320

    
4321
    // Total number of tokens
4322
    { MethodType=Property DesignTime=False }
4323
    Function ComCount Returns Integer
4324
        Handle hDispatchDriver
4325
        Integer retVal
4326
        Get phDispatchDriver to hDispatchDriver
4327
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4328
        Function_Return retVal
4329
    End_Function
4330

    
4331
    // Create and add a token to the collection
4332
    Function ComAdd String llText Boolean llRegExp Variant llRule Returns Variant
4333
        Handle hDispatchDriver
4334
        Variant retVal
4335
        Get phDispatchDriver to hDispatchDriver
4336
        Send PrepareParams to hDispatchDriver 3
4337
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
4338
        Send DefineParam to hDispatchDriver OLE_VT_BOOL llRegExp
4339
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llRule
4340
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_DISPATCH to retVal
4341
        Function_Return retVal
4342
    End_Function
4343

    
4344
    // removes a token from the collection by text, zero-based index, or object
4345
    Procedure ComRemove Variant llToken
4346
        Handle hDispatchDriver
4347
        Get phDispatchDriver to hDispatchDriver
4348
        Send PrepareParams to hDispatchDriver 1
4349
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llToken
4350
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4351
    End_Procedure
4352

    
4353
    // removes all tokens
4354
    Procedure ComRemoveAll
4355
        Handle hDispatchDriver
4356
        Get phDispatchDriver to hDispatchDriver
4357
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4358
    End_Procedure
4359
End_Class
4360

    
4361
// CLSID: {34CE7573-2DA7-4608-8F0D-A7AEFC33DC14}
4362
// IToken Interface
4363
Class cComIToken is a cComAutomationObject
4364

    
4365
    // The text of the token
4366
    { MethodType=Property DesignTime=False }
4367
    Procedure Set ComText String value
4368
        Handle hDispatchDriver
4369
        Get phDispatchDriver to hDispatchDriver
4370
        Send PrepareParams to hDispatchDriver 1
4371
        Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
4372
    End_Procedure
4373

    
4374
    // The text of the token
4375
    { MethodType=Property DesignTime=False }
4376
    Function ComText Returns String
4377
        Handle hDispatchDriver
4378
        String retVal
4379
        Get phDispatchDriver to hDispatchDriver
4380
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
4381
        Function_Return retVal
4382
    End_Function
4383

    
4384
    // True if the token text is a regular expression
4385
    { MethodType=Property DesignTime=False }
4386
    Procedure Set ComRegExp Boolean value
4387
        Handle hDispatchDriver
4388
        Get phDispatchDriver to hDispatchDriver
4389
        Send PrepareParams to hDispatchDriver 1
4390
        Set ComProperty of hDispatchDriver 2 OLE_VT_BOOL to value
4391
    End_Procedure
4392

    
4393
    // True if the token text is a regular expression
4394
    { MethodType=Property DesignTime=False }
4395
    Function ComRegExp Returns Boolean
4396
        Handle hDispatchDriver
4397
        Boolean retVal
4398
        Get phDispatchDriver to hDispatchDriver
4399
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
4400
        Function_Return retVal
4401
    End_Function
4402

    
4403
    // The verification rule to invoke when token text is matched
4404
    { MethodType=Property DesignTime=False }
4405
    Procedure Set ComRule Variant value
4406
        Handle hDispatchDriver
4407
        Get phDispatchDriver to hDispatchDriver
4408
        Send PrepareParams to hDispatchDriver 1
4409
        Set ComProperty of hDispatchDriver 3 OLE_VT_VARIANT to value
4410
    End_Procedure
4411

    
4412
    // The verification rule to invoke when token text is matched
4413
    { MethodType=Property DesignTime=False }
4414
    Function ComRule Returns Variant
4415
        Handle hDispatchDriver
4416
        Variant retVal
4417
        Get phDispatchDriver to hDispatchDriver
4418
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_DISPATCH to retVal
4419
        Function_Return retVal
4420
    End_Function
4421

    
4422
    // Action to take when token text is typed by user
4423
    { MethodType=Property DesignTime=False }
4424
    Procedure Set ComAction OLEcmCommand value
4425
        Handle hDispatchDriver
4426
        Get phDispatchDriver to hDispatchDriver
4427
        Send PrepareParams to hDispatchDriver 1
4428
        Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
4429
    End_Procedure
4430

    
4431
    // Action to take when token text is typed by user
4432
    { MethodType=Property DesignTime=False }
4433
    Function ComAction Returns OLEcmCommand
4434
        Handle hDispatchDriver
4435
        OLEcmCommand retVal
4436
        Get phDispatchDriver to hDispatchDriver
4437
        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
4438
        Function_Return retVal
4439
    End_Function
4440
End_Class
4441

    
4442
// CLSID: {9B17800D-4FBB-4198-8743-1DB5BA665FB5}
4443
// ITokenRule Interface
4444
Class cComITokenRule is a cComAutomationObject
4445

    
4446
    // Called when a token is detected and needs final approval
4447
    Function ComVerifyToken Variant llParser Returns Boolean
4448
        Handle hDispatchDriver
4449
        Boolean retVal
4450
        Get phDispatchDriver to hDispatchDriver
4451
        Send PrepareParams to hDispatchDriver 1
4452
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llParser
4453
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BOOL to retVal
4454
        Function_Return retVal
4455
    End_Function
4456

    
4457
    // The name of the token rule
4458
    { MethodType=Property DesignTime=False }
4459
    Function ComName Returns String
4460
        Handle hDispatchDriver
4461
        String retVal
4462
        Get phDispatchDriver to hDispatchDriver
4463
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
4464
        Function_Return retVal
4465
    End_Function
4466
End_Class
4467

    
4468
// CLSID: {08BECC12-C098-4F9C-A343-2D0A039A59A2}
4469
// IParser Interface
4470
Class cComILineParser is a cComAutomationObject
4471

    
4472
    // The language to parse with
4473
    { MethodType=Property DesignTime=False }
4474
    Function ComLanguage Returns Variant
4475
        Handle hDispatchDriver
4476
        Variant retVal
4477
        Get phDispatchDriver to hDispatchDriver
4478
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4479
        Function_Return retVal
4480
    End_Function
4481

    
4482
    // parser is locked against updates -- you may only query properties
4483
    { MethodType=Property DesignTime=False }
4484
    Function ComReadOnly Returns Boolean
4485
        Handle hDispatchDriver
4486
        Boolean retVal
4487
        Get phDispatchDriver to hDispatchDriver
4488
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BOOL to retVal
4489
        Function_Return retVal
4490
    End_Function
4491

    
4492
    // current buffer line number (zero-based)
4493
    { MethodType=Property DesignTime=False }
4494
    Procedure Set ComLineNo Integer value
4495
        Handle hDispatchDriver
4496
        Get phDispatchDriver to hDispatchDriver
4497
        Send PrepareParams to hDispatchDriver 1
4498
        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
4499
    End_Procedure
4500

    
4501
    // current buffer line number (zero-based)
4502
    { MethodType=Property DesignTime=False }
4503
    Function ComLineNo Returns Integer
4504
        Handle hDispatchDriver
4505
        Integer retVal
4506
        Get phDispatchDriver to hDispatchDriver
4507
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
4508
        Function_Return retVal
4509
    End_Function
4510

    
4511
    // Scan in the next token
4512
    Procedure ComGetNextToken OLEcmParseDirection llDirection OLEcmParseFlags llFlags
4513
        Handle hDispatchDriver
4514
        Get phDispatchDriver to hDispatchDriver
4515
        Send PrepareParams to hDispatchDriver 2
4516
        Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
4517
        Send DefineParam to hDispatchDriver OLE_VT_I4 llFlags
4518
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4519
    End_Procedure
4520

    
4521
    // True if a line has been fully parsed in a particular direction
4522
    { MethodType=Property DesignTime=False }
4523
    Function ComDone OLEcmParseDirection llDirection Returns Boolean
4524
        Handle hDispatchDriver
4525
        Boolean retVal
4526
        Get phDispatchDriver to hDispatchDriver
4527
        Send PrepareParams to hDispatchDriver 1
4528
        Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
4529
        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
4530
        Function_Return retVal
4531
    End_Function
4532

    
4533
    // current token text
4534
    { MethodType=Property DesignTime=False }
4535
    Function ComTokenText Returns String
4536
        Handle hDispatchDriver
4537
        String retVal
4538
        Get phDispatchDriver to hDispatchDriver
4539
        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
4540
        Function_Return retVal
4541
    End_Function
4542

    
4543
    // current token length
4544
    { MethodType=Property DesignTime=False }
4545
    Function ComTokenLength Returns Integer
4546
        Handle hDispatchDriver
4547
        Integer retVal
4548
        Get phDispatchDriver to hDispatchDriver
4549
        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
4550
        Function_Return retVal
4551
    End_Function
4552

    
4553
    // The tokenset which holds the current token
4554
    { MethodType=Property DesignTime=False }
4555
    Function ComTokenSet Returns Variant
4556
        Handle hDispatchDriver
4557
        Variant retVal
4558
        Get phDispatchDriver to hDispatchDriver
4559
        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_DISPATCH to retVal
4560
        Function_Return retVal
4561
    End_Function
4562

    
4563
    // index of current token in tokenset
4564
    { MethodType=Property DesignTime=False }
4565
    Function ComTokenIndex Returns Integer
4566
        Handle hDispatchDriver
4567
        Integer retVal
4568
        Get phDispatchDriver to hDispatchDriver
4569
        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_I4 to retVal
4570
        Function_Return retVal
4571
    End_Function
4572

    
4573
    // token subset of current token
4574
    { MethodType=Property DesignTime=False }
4575
    Function ComTokenSubset Returns OLEcmTokenSubset
4576
        Handle hDispatchDriver
4577
        OLEcmTokenSubset retVal
4578
        Get phDispatchDriver to hDispatchDriver
4579
        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_I4 to retVal
4580
        Function_Return retVal
4581
    End_Function
4582

    
4583
    // start buffer column number of current token (zero-based)
4584
    { MethodType=Property DesignTime=False }
4585
    Function ComTokenStartColNo Returns Integer
4586
        Handle hDispatchDriver
4587
        Integer retVal
4588
        Get phDispatchDriver to hDispatchDriver
4589
        Get InvokeComMethod of hDispatchDriver 11 OLE_VT_I4 to retVal
4590
        Function_Return retVal
4591
    End_Function
4592

    
4593
    // End buffer column number of current token (zero-based)
4594
    { MethodType=Property DesignTime=False }
4595
    Function ComTokenEndColNo Returns Integer
4596
        Handle hDispatchDriver
4597
        Integer retVal
4598
        Get phDispatchDriver to hDispatchDriver
4599
        Get InvokeComMethod of hDispatchDriver 12 OLE_VT_I4 to retVal
4600
        Function_Return retVal
4601
    End_Function
4602

    
4603
    // The first character of the current token
4604
    { MethodType=Property DesignTime=False }
4605
    Function ComTokenStartChar Returns Integer
4606
        Handle hDispatchDriver
4607
        Integer retVal
4608
        Get phDispatchDriver to hDispatchDriver
4609
        Get InvokeComMethod of hDispatchDriver 13 OLE_VT_I4 to retVal
4610
        Function_Return retVal
4611
    End_Function
4612

    
4613
    // The last character of the current token
4614
    { MethodType=Property DesignTime=False }
4615
    Function ComTokenEndChar Returns Integer
4616
        Handle hDispatchDriver
4617
        Integer retVal
4618
        Get phDispatchDriver to hDispatchDriver
4619
        Get InvokeComMethod of hDispatchDriver 14 OLE_VT_I4 to retVal
4620
        Function_Return retVal
4621
    End_Function
4622

    
4623
    // The character immediately before the start of the current token
4624
    { MethodType=Property DesignTime=False }
4625
    Function ComTokenLeadingChar Returns Integer
4626
        Handle hDispatchDriver
4627
        Integer retVal
4628
        Get phDispatchDriver to hDispatchDriver
4629
        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_I4 to retVal
4630
        Function_Return retVal
4631
    End_Function
4632

    
4633
    // The character immediately after the end of the current token
4634
    { MethodType=Property DesignTime=False }
4635
    Function ComTokenTrailingChar Returns Integer
4636
        Handle hDispatchDriver
4637
        Integer retVal
4638
        Get phDispatchDriver to hDispatchDriver
4639
        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_I4 to retVal
4640
        Function_Return retVal
4641
    End_Function
4642

    
4643
    // point parser at a different column (zero-based), possibly at the start of the current token
4644
    { MethodType=Property DesignTime=False }
4645
    Procedure Set ComColNo Integer value
4646
        Handle hDispatchDriver
4647
        Get phDispatchDriver to hDispatchDriver
4648
        Send PrepareParams to hDispatchDriver 1
4649
        Set ComProperty of hDispatchDriver 17 OLE_VT_I4 to value
4650
    End_Procedure
4651

    
4652
    // point parser at a different column (zero-based), possibly at the end of the current token
4653
    { MethodType=Property DesignTime=False }
4654
    Procedure Set ComColNoAfterToken Integer value
4655
        Handle hDispatchDriver
4656
        Get phDispatchDriver to hDispatchDriver
4657
        Send PrepareParams to hDispatchDriver 1
4658
        Set ComProperty of hDispatchDriver 18 OLE_VT_I4 to value
4659
    End_Procedure
4660

    
4661
    // Automatically wrap to adjacent lines while parsing
4662
    { MethodType=Property DesignTime=False }
4663
    Procedure Set ComWrap Boolean value
4664
        Handle hDispatchDriver
4665
        Get phDispatchDriver to hDispatchDriver
4666
        Send PrepareParams to hDispatchDriver 1
4667
        Set ComProperty of hDispatchDriver 19 OLE_VT_BOOL to value
4668
    End_Procedure
4669

    
4670
    // Automatically wrap to adjacent lines while parsing
4671
    { MethodType=Property DesignTime=False }
4672
    Function ComWrap Returns Boolean
4673
        Handle hDispatchDriver
4674
        Boolean retVal
4675
        Get phDispatchDriver to hDispatchDriver
4676
        Get InvokeComMethod of hDispatchDriver 19 OLE_VT_BOOL to retVal
4677
        Function_Return retVal
4678
    End_Function
4679

    
4680
    // Advance parser to matching scope keyword
4681
    Function ComMatchBraces OLEcmParseDirection llDirection Integer llSearchDist Returns Boolean
4682
        Handle hDispatchDriver
4683
        Boolean retVal
4684
        Get phDispatchDriver to hDispatchDriver
4685
        Send PrepareParams to hDispatchDriver 2
4686
        Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
4687
        Send DefineParam to hDispatchDriver OLE_VT_I4 llSearchDist
4688
        Get InvokeComMethod of hDispatchDriver 20 OLE_VT_BOOL to retVal
4689
        Function_Return retVal
4690
    End_Function
4691
End_Class
4692

    
4693
// CLSID: {37FAD769-6F8A-4FA5-9E7B-0DE71010F2DA}
4694
// IMember Interface
4695
Class cComIMember is a cComAutomationObject
4696

    
4697
    // The memberlist that contains this member
4698
    { MethodType=Property DesignTime=False }
4699
    Function ComParent Returns Variant
4700
        Handle hDispatchDriver
4701
        Variant retVal
4702
        Get phDispatchDriver to hDispatchDriver
4703
        Get InvokeComMethod of hDispatchDriver -803 OLE_VT_DISPATCH to retVal
4704
        Function_Return retVal
4705
    End_Function
4706

    
4707
    // The name of the member with no parameters or qualifiers
4708
    { MethodType=Property DesignTime=False }
4709
    Function ComName Returns String
4710
        Handle hDispatchDriver
4711
        String retVal
4712
        Get phDispatchDriver to hDispatchDriver
4713
        Get InvokeComMethod of hDispatchDriver -800 OLE_VT_BSTR to retVal
4714
        Function_Return retVal
4715
    End_Function
4716

    
4717
    // The full prototype of the member
4718
    { MethodType=Property DesignTime=False }
4719
    Function ComPrototype Returns String
4720
        Handle hDispatchDriver
4721
        String retVal
4722
        Get phDispatchDriver to hDispatchDriver
4723
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
4724
        Function_Return retVal
4725
    End_Function
4726

    
4727
    // The image to display in the member list.  Specified as a zero-based index into the members collection's imagelist
4728
    { MethodType=Property DesignTime=False }
4729
    Procedure Set ComImage Short value
4730
        Handle hDispatchDriver
4731
        Get phDispatchDriver to hDispatchDriver
4732
        Send PrepareParams to hDispatchDriver 1
4733
        Set ComProperty of hDispatchDriver 2 OLE_VT_I2 to value
4734
    End_Procedure
4735

    
4736
    // The image to display in the member list.  Specified as a zero-based index into the members collection's imagelist
4737
    { MethodType=Property DesignTime=False }
4738
    Function ComImage Returns Short
4739
        Handle hDispatchDriver
4740
        Short retVal
4741
        Get phDispatchDriver to hDispatchDriver
4742
        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I2 to retVal
4743
        Function_Return retVal
4744
    End_Function
4745

    
4746
    // Text to display in a tooltip when the member is selected in a list
4747
    { MethodType=Property DesignTime=False }
4748
    Procedure Set ComHelpString String value
4749
        Handle hDispatchDriver
4750
        Get phDispatchDriver to hDispatchDriver
4751
        Send PrepareParams to hDispatchDriver 1
4752
        Set ComProperty of hDispatchDriver 3 OLE_VT_BSTR to value
4753
    End_Procedure
4754

    
4755
    // Text to display in a tooltip when the member is selected in a list
4756
    { MethodType=Property DesignTime=False }
4757
    Function ComHelpString Returns String
4758
        Handle hDispatchDriver
4759
        String retVal
4760
        Get phDispatchDriver to hDispatchDriver
4761
        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
4762
        Function_Return retVal
4763
    End_Function
4764

    
4765
    // Whether the member is a sublist
4766
    { MethodType=Property DesignTime=False }
4767
    Procedure Set ComSubList Boolean value
4768
        Handle hDispatchDriver
4769
        Get phDispatchDriver to hDispatchDriver
4770
        Send PrepareParams to hDispatchDriver 1
4771
        Set ComProperty of hDispatchDriver 500 OLE_VT_BOOL to value
4772
    End_Procedure
4773

    
4774
    // Whether the member is a sublist
4775
    { MethodType=Property DesignTime=False }
4776
    Function ComSubList Returns Boolean
4777
        Handle hDispatchDriver
4778
        Boolean retVal
4779
        Get phDispatchDriver to hDispatchDriver
4780
        Get InvokeComMethod of hDispatchDriver 500 OLE_VT_BOOL to retVal
4781
        Function_Return retVal
4782
    End_Function
4783

    
4784
    // The text to be inserted, if not the same as the name
4785
    { MethodType=Property DesignTime=False }
4786
    Procedure Set ComText String value
4787
        Handle hDispatchDriver
4788
        Get phDispatchDriver to hDispatchDriver
4789
        Send PrepareParams to hDispatchDriver 1
4790
        Set ComProperty of hDispatchDriver 501 OLE_VT_BSTR to value
4791
    End_Procedure
4792

    
4793
    // The text to be inserted, if not the same as the name
4794
    { MethodType=Property DesignTime=False }
4795
    Function ComText Returns String
4796
        Handle hDispatchDriver
4797
        String retVal
4798
        Get phDispatchDriver to hDispatchDriver
4799
        Get InvokeComMethod of hDispatchDriver 501 OLE_VT_BSTR to retVal
4800
        Function_Return retVal
4801
    End_Function
4802

    
4803
    // Whether the member should be considered in find best match algorithm
4804
    { MethodType=Property DesignTime=False }
4805
    Procedure Set ComEnableMatch Boolean value
4806
        Handle hDispatchDriver
4807
        Get phDispatchDriver to hDispatchDriver
4808
        Send PrepareParams to hDispatchDriver 1
4809
        Set ComProperty of hDispatchDriver 502 OLE_VT_BOOL to value
4810
    End_Procedure
4811

    
4812
    // Whether the member should be considered in find best match algorithm
4813
    { MethodType=Property DesignTime=False }
4814
    Function ComEnableMatch Returns Boolean
4815
        Handle hDispatchDriver
4816
        Boolean retVal
4817
        Get phDispatchDriver to hDispatchDriver
4818
        Get InvokeComMethod of hDispatchDriver 502 OLE_VT_BOOL to retVal
4819
        Function_Return retVal
4820
    End_Function
4821
End_Class
4822

    
4823
// CLSID: {43D511D7-05B8-46E8-B5AD-BDA79BFDDD96}
4824
// IMemberLists Interface
4825
Class cComIMemberLists is a cComAutomationObject
4826

    
4827
    // Retrieve a member list by name or zero-based index
4828
    { MethodType=Property DesignTime=False }
4829
    Function ComItem Variant llIndex Returns Variant
4830
        Handle hDispatchDriver
4831
        Variant retVal
4832
        Get phDispatchDriver to hDispatchDriver
4833
        Send PrepareParams to hDispatchDriver 1
4834
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4835
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4836
        Function_Return retVal
4837
    End_Function
4838

    
4839
    // Total number of member lists
4840
    { MethodType=Property DesignTime=False }
4841
    Function ComCount Returns Integer
4842
        Handle hDispatchDriver
4843
        Integer retVal
4844
        Get phDispatchDriver to hDispatchDriver
4845
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4846
        Function_Return retVal
4847
    End_Function
4848

    
4849
    // Add a member list to the collection
4850
    Procedure ComAdd Variant llMemberList
4851
        Handle hDispatchDriver
4852
        Get phDispatchDriver to hDispatchDriver
4853
        Send PrepareParams to hDispatchDriver 1
4854
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llMemberList
4855
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4856
    End_Procedure
4857

    
4858
    // removes a member list from the collection by name, zero-based index, or object
4859
    Procedure ComRemove Variant llMemberList
4860
        Handle hDispatchDriver
4861
        Get phDispatchDriver to hDispatchDriver
4862
        Send PrepareParams to hDispatchDriver 1
4863
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llMemberList
4864
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4865
    End_Procedure
4866

    
4867
    // removes all member lists
4868
    Procedure ComRemoveAll
4869
        Handle hDispatchDriver
4870
        Get phDispatchDriver to hDispatchDriver
4871
        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
4872
    End_Procedure
4873
End_Class
4874

    
4875
// CLSID: {D7035BFD-C6C4-471F-859E-E3CCD3821BEC}
4876
// IHotKeys Interface
4877
Class cComIHotKeys is a cComAutomationObject
4878

    
4879
    // Get hotkey by zero-based index
4880
    { MethodType=Property DesignTime=False }
4881
    Function ComItem Variant llIndex Returns Variant
4882
        Handle hDispatchDriver
4883
        Variant retVal
4884
        Get phDispatchDriver to hDispatchDriver
4885
        Send PrepareParams to hDispatchDriver 1
4886
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
4887
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
4888
        Function_Return retVal
4889
    End_Function
4890

    
4891
    // Total number of HotKeys
4892
    { MethodType=Property DesignTime=False }
4893
    Function ComCount Returns Integer
4894
        Handle hDispatchDriver
4895
        Integer retVal
4896
        Get phDispatchDriver to hDispatchDriver
4897
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
4898
        Function_Return retVal
4899
    End_Function
4900

    
4901
    // binds a hotkey to the command associated with this collection
4902
    Procedure ComAdd Variant llHotKey
4903
        Handle hDispatchDriver
4904
        Get phDispatchDriver to hDispatchDriver
4905
        Send PrepareParams to hDispatchDriver 1
4906
        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llHotKey
4907
        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
4908
    End_Procedure
4909

    
4910
    // unbinds a hotkey from the command associated with this collection
4911
    Procedure ComRemove Variant llHotKey
4912
        Handle hDispatchDriver
4913
        Get phDispatchDriver to hDispatchDriver
4914
        Send PrepareParams to hDispatchDriver 1
4915
        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llHotKey
4916
        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
4917
    End_Procedure
4918
End_Class