Module cCrystalActiveXReportViewer.pkg
1// Visual DataFlex COM proxy classes generated from C:\Program Files\Common Files\Business Objects\3.0\crystalreportviewers11\ActiveXControls\CRViewer.dll
2Use FlexCom20.pkg
3
4
5Define CRLoadingType for Integer
6 Define crLoadingNothing for 0
7 Define crLoadingPages for 1
8 Define crLoadingTotaller for 2
9 Define crLoadingQueryInfo for 3
10
11Define CRDrillType for Integer
12 Define crDrillOnGroup for 0
13 Define crDrillOnGroupTree for 1
14 Define crDrillOnGraph for 2
15 Define crDrillOnMap for 3
16 Define crDrillOnSubreport for 4
17
18Define CRTrackCursor for Integer
19 Define crDefaultCursor for 0
20 Define crArrowCursor for 1
21 Define crCrossCursor for 2
22 Define crIBeamCursor for 3
23 Define crNoCursor for 10
24 Define crWaitCursor for 11
25 Define crAppStartingCursor for 12
26 Define crHelpCursor for 13
27 Define crMagnifyCursor for 99
28
29Define CRFieldType for Integer
30 Define crInt8 for 0
31 Define crInt16 for 1
32 Define crInt32 for 2
33 Define crNumber for 3
34 Define crCurrency for 4
35 Define crBoolean for 5
36 Define crDate for 6
37 Define crTime for 7
38 Define crDateTime for 8
39 Define crString for 9
40 Define crUnknownFieldType for 255
41
42Define CRObjectType for Integer
43 Define crUnknownFieldDefType for 0
44 Define crDatabaseFieldType for 1
45 Define crOLAPDimensionFieldType for 2
46 Define crOLAPDataFieldType for 3
47 Define crOLAPCrossTabFieldType for 4
48 Define crFormulaFieldType for 5
49 Define crSummaryFieldType for 6
50 Define crSpecialVarFieldType for 7
51 Define crGroupNameFieldType for 8
52 Define crPromptingVarFieldType for 9
53 Define crText for 100
54 Define crOLEObject for 101
55 Define crSubreport for 102
56 Define crBitmap for 103
57 Define crBlob for 104
58 Define crLine for 105
59 Define crBox for 106
60 Define crGroupChart for 107
61 Define crCrosstabChart for 108
62 Define crDetailChart for 109
63 Define crCrossTab for 110
64 Define crGraphic for 111
65 Define crOOPSubreport for 112
66 Define crOLAPChart for 113
67 Define crGroupMap for 114
68 Define crCrosstabMap for 115
69 Define crDetailMap for 116
70 Define crOLAPMap for 117
71 Define crGroupHeaderSection for 200
72 Define crGroupFooterSection for 201
73 Define crDetailSection for 202
74 Define crReportHeaderSection for 203
75 Define crReportFooterSection for 204
76 Define crPageHeaderSection for 205
77 Define crPageFooterSection for 206
78
79Struct tagRECT
80 Integer left
81 Integer top
82 Integer right
83 Integer bottom
84End_Struct
85
86// CLSID: {3FA3EA6B-D886-4689-87E5-2EFB3101F16B}
87// Interface to the Crystal Report Viewer Control
88Class cCrystalICrystalReportViewer11 is a Mixin
89
90 // Get the report source
91 { MethodType=Property }
92 Function ComReportSource Returns Variant
93 Handle hDispatchDriver
94 Variant retVal
95 Get phDispatchDriver to hDispatchDriver
96 Get InvokeComMethod of hDispatchDriver 250 OLE_VT_UNKNOWN to retVal
97 Function_Return retVal
98 End_Function
99
100 // Get the report source
101 { MethodType=Property }
102 { DesignTime=False }
103 Procedure Set ComReportSource Variant value
104 Handle hDispatchDriver
105 Get phDispatchDriver to hDispatchDriver
106 Send PrepareParams to hDispatchDriver 1
107 Set ComProperty of hDispatchDriver 250 OLE_VT_UNKNOWN to value
108 End_Procedure
109
110 // Determine if the group tree is visible
111 { MethodType=Property }
112 Function ComDisplayGroupTree Returns Boolean
113 Handle hDispatchDriver
114 Boolean retVal
115 Get phDispatchDriver to hDispatchDriver
116 Get InvokeComMethod of hDispatchDriver 251 OLE_VT_BOOL to retVal
117 Function_Return retVal
118 End_Function
119
120 // Determine if the group tree is visible
121 { MethodType=Property }
122 { InitialValue=True }
123 { Category=Appearance }
124 Procedure Set ComDisplayGroupTree Boolean value
125 Handle hDispatchDriver
126 Get phDispatchDriver to hDispatchDriver
127 Send PrepareParams to hDispatchDriver 1
128 Set ComProperty of hDispatchDriver 251 OLE_VT_BOOL to value
129 End_Procedure
130
131 // Determine if the toolbar is visible
132 { MethodType=Property }
133 Function ComDisplayToolbar Returns Boolean
134 Handle hDispatchDriver
135 Boolean retVal
136 Get phDispatchDriver to hDispatchDriver
137 Get InvokeComMethod of hDispatchDriver 252 OLE_VT_BOOL to retVal
138 Function_Return retVal
139 End_Function
140
141 // Determine if the toolbar is visible
142 { MethodType=Property }
143 { InitialValue=True }
144 { Category=Appearance }
145 Procedure Set ComDisplayToolbar Boolean value
146 Handle hDispatchDriver
147 Get phDispatchDriver to hDispatchDriver
148 Send PrepareParams to hDispatchDriver 1
149 Set ComProperty of hDispatchDriver 252 OLE_VT_BOOL to value
150 End_Procedure
151
152 // Determine if the group tree is available
153 { MethodType=Property }
154 Function ComEnableGroupTree Returns Boolean
155 Handle hDispatchDriver
156 Boolean retVal
157 Get phDispatchDriver to hDispatchDriver
158 Get InvokeComMethod of hDispatchDriver 253 OLE_VT_BOOL to retVal
159 Function_Return retVal
160 End_Function
161
162 // Determine if the group tree is available
163 { MethodType=Property }
164 { InitialValue=True }
165 { Category=Appearance }
166 Procedure Set ComEnableGroupTree Boolean value
167 Handle hDispatchDriver
168 Get phDispatchDriver to hDispatchDriver
169 Send PrepareParams to hDispatchDriver 1
170 Set ComProperty of hDispatchDriver 253 OLE_VT_BOOL to value
171 End_Procedure
172
173 // Determines if the viewer has navigation controls
174 { MethodType=Property }
175 Function ComEnableNavigationControls Returns Boolean
176 Handle hDispatchDriver
177 Boolean retVal
178 Get phDispatchDriver to hDispatchDriver
179 Get InvokeComMethod of hDispatchDriver 254 OLE_VT_BOOL to retVal
180 Function_Return retVal
181 End_Function
182
183 // Determines if the viewer has navigation controls
184 { MethodType=Property }
185 { InitialValue=True }
186 { Category=Appearance }
187 Procedure Set ComEnableNavigationControls Boolean value
188 Handle hDispatchDriver
189 Get phDispatchDriver to hDispatchDriver
190 Send PrepareParams to hDispatchDriver 1
191 Set ComProperty of hDispatchDriver 254 OLE_VT_BOOL to value
192 End_Procedure
193
194 // Determines if the viewer has a stop button
195 { MethodType=Property }
196 Function ComEnableStopButton Returns Boolean
197 Handle hDispatchDriver
198 Boolean retVal
199 Get phDispatchDriver to hDispatchDriver
200 Get InvokeComMethod of hDispatchDriver 255 OLE_VT_BOOL to retVal
201 Function_Return retVal
202 End_Function
203
204 // Determines if the viewer has a stop button
205 { MethodType=Property }
206 { InitialValue=True }
207 { Category=Appearance }
208 Procedure Set ComEnableStopButton Boolean value
209 Handle hDispatchDriver
210 Get phDispatchDriver to hDispatchDriver
211 Send PrepareParams to hDispatchDriver 1
212 Set ComProperty of hDispatchDriver 255 OLE_VT_BOOL to value
213 End_Procedure
214
215 // Determine if the print button is visible
216 { MethodType=Property }
217 Function ComEnablePrintButton Returns Boolean
218 Handle hDispatchDriver
219 Boolean retVal
220 Get phDispatchDriver to hDispatchDriver
221 Get InvokeComMethod of hDispatchDriver 256 OLE_VT_BOOL to retVal
222 Function_Return retVal
223 End_Function
224
225 // Determine if the print button is visible
226 { MethodType=Property }
227 { InitialValue=True }
228 { Category=Appearance }
229 Procedure Set ComEnablePrintButton Boolean value
230 Handle hDispatchDriver
231 Get phDispatchDriver to hDispatchDriver
232 Send PrepareParams to hDispatchDriver 1
233 Set ComProperty of hDispatchDriver 256 OLE_VT_BOOL to value
234 End_Procedure
235
236 // Determine if the zoom control is visible
237 { MethodType=Property }
238 Function ComEnableZoomControl Returns Boolean
239 Handle hDispatchDriver
240 Boolean retVal
241 Get phDispatchDriver to hDispatchDriver
242 Get InvokeComMethod of hDispatchDriver 257 OLE_VT_BOOL to retVal
243 Function_Return retVal
244 End_Function
245
246 // Determine if the zoom control is visible
247 { MethodType=Property }
248 { InitialValue=True }
249 { Category=Appearance }
250 Procedure Set ComEnableZoomControl Boolean value
251 Handle hDispatchDriver
252 Get phDispatchDriver to hDispatchDriver
253 Send PrepareParams to hDispatchDriver 1
254 Set ComProperty of hDispatchDriver 257 OLE_VT_BOOL to value
255 End_Procedure
256
257 // Determine if the close button is visible
258 { MethodType=Property }
259 Function ComEnableCloseButton Returns Boolean
260 Handle hDispatchDriver
261 Boolean retVal
262 Get phDispatchDriver to hDispatchDriver
263 Get InvokeComMethod of hDispatchDriver 258 OLE_VT_BOOL to retVal
264 Function_Return retVal
265 End_Function
266
267 // Determine if the close button is visible
268 { MethodType=Property }
269 { InitialValue=True }
270 { Category=Appearance }
271 Procedure Set ComEnableCloseButton Boolean value
272 Handle hDispatchDriver
273 Get phDispatchDriver to hDispatchDriver
274 Send PrepareParams to hDispatchDriver 1
275 Set ComProperty of hDispatchDriver 258 OLE_VT_BOOL to value
276 End_Procedure
277
278 // Determine if the progress control will be shown
279 { MethodType=Property }
280 Function ComEnableProgressControl Returns Boolean
281 Handle hDispatchDriver
282 Boolean retVal
283 Get phDispatchDriver to hDispatchDriver
284 Get InvokeComMethod of hDispatchDriver 259 OLE_VT_BOOL to retVal
285 Function_Return retVal
286 End_Function
287
288 // Determine if the progress control will be shown
289 { MethodType=Property }
290 { InitialValue=False }
291 { Category=Appearance }
292 Procedure Set ComEnableProgressControl Boolean value
293 Handle hDispatchDriver
294 Get phDispatchDriver to hDispatchDriver
295 Send PrepareParams to hDispatchDriver 1
296 Set ComProperty of hDispatchDriver 259 OLE_VT_BOOL to value
297 End_Procedure
298
299 // Determine if the search control is visible
300 { MethodType=Property }
301 Function ComEnableSearchControl Returns Boolean
302 Handle hDispatchDriver
303 Boolean retVal
304 Get phDispatchDriver to hDispatchDriver
305 Get InvokeComMethod of hDispatchDriver 260 OLE_VT_BOOL to retVal
306 Function_Return retVal
307 End_Function
308
309 // Determine if the search control is visible
310 { MethodType=Property }
311 { InitialValue=True }
312 { Category=Appearance }
313 Procedure Set ComEnableSearchControl Boolean value
314 Handle hDispatchDriver
315 Get phDispatchDriver to hDispatchDriver
316 Send PrepareParams to hDispatchDriver 1
317 Set ComProperty of hDispatchDriver 260 OLE_VT_BOOL to value
318 End_Procedure
319
320 // Determine if the Refresh button is visible
321 { MethodType=Property }
322 Function ComEnableRefreshButton Returns Boolean
323 Handle hDispatchDriver
324 Boolean retVal
325 Get phDispatchDriver to hDispatchDriver
326 Get InvokeComMethod of hDispatchDriver 261 OLE_VT_BOOL to retVal
327 Function_Return retVal
328 End_Function
329
330 // Determine if the Refresh button is visible
331 { MethodType=Property }
332 { InitialValue=True }
333 { Category=Appearance }
334 Procedure Set ComEnableRefreshButton Boolean value
335 Handle hDispatchDriver
336 Get phDispatchDriver to hDispatchDriver
337 Send PrepareParams to hDispatchDriver 1
338 Set ComProperty of hDispatchDriver 261 OLE_VT_BOOL to value
339 End_Procedure
340
341 // Deterimine if drill down is allowed
342 { MethodType=Property }
343 Function ComEnableDrillDown Returns Boolean
344 Handle hDispatchDriver
345 Boolean retVal
346 Get phDispatchDriver to hDispatchDriver
347 Get InvokeComMethod of hDispatchDriver 262 OLE_VT_BOOL to retVal
348 Function_Return retVal
349 End_Function
350
351 // Deterimine if drill down is allowed
352 { MethodType=Property }
353 { InitialValue=True }
354 { Category=Behavior }
355 Procedure Set ComEnableDrillDown Boolean value
356 Handle hDispatchDriver
357 Get phDispatchDriver to hDispatchDriver
358 Send PrepareParams to hDispatchDriver 1
359 Set ComProperty of hDispatchDriver 262 OLE_VT_BOOL to value
360 End_Procedure
361
362 // Determine if the animation control is visible
363 { MethodType=Property }
364 Function ComEnableAnimationCtrl Returns Boolean
365 Handle hDispatchDriver
366 Boolean retVal
367 Get phDispatchDriver to hDispatchDriver
368 Get InvokeComMethod of hDispatchDriver 263 OLE_VT_BOOL to retVal
369 Function_Return retVal
370 End_Function
371
372 // Determine if the animation control is visible
373 { MethodType=Property }
374 { InitialValue=True }
375 { Category=Behavior }
376 Procedure Set ComEnableAnimationCtrl Boolean value
377 Handle hDispatchDriver
378 Get phDispatchDriver to hDispatchDriver
379 Send PrepareParams to hDispatchDriver 1
380 Set ComProperty of hDispatchDriver 263 OLE_VT_BOOL to value
381 End_Procedure
382
383 // Determine if the Select Expert button is showing
384 { MethodType=Property }
385 Function ComEnableSelectExpertButton Returns Boolean
386 Handle hDispatchDriver
387 Boolean retVal
388 Get phDispatchDriver to hDispatchDriver
389 Get InvokeComMethod of hDispatchDriver 264 OLE_VT_BOOL to retVal
390 Function_Return retVal
391 End_Function
392
393 // Determine if the Select Expert button is showing
394 { MethodType=Property }
395 { InitialValue=False }
396 { Category=Appearance }
397 Procedure Set ComEnableSelectExpertButton Boolean value
398 Handle hDispatchDriver
399 Get phDispatchDriver to hDispatchDriver
400 Send PrepareParams to hDispatchDriver 1
401 Set ComProperty of hDispatchDriver 264 OLE_VT_BOOL to value
402 End_Procedure
403
404 // ViewReport
405 Procedure ComViewReport
406 Handle hDispatchDriver
407 Get phDispatchDriver to hDispatchDriver
408 Send InvokeComMethod to hDispatchDriver 265 OLE_VT_VOID
409 End_Procedure
410
411 // EnableToolbar indicates if the viewer has a toolbar (shown or hidden)
412 { MethodType=Property }
413 Function ComEnableToolbar Returns Boolean
414 Handle hDispatchDriver
415 Boolean retVal
416 Get phDispatchDriver to hDispatchDriver
417 Get InvokeComMethod of hDispatchDriver 340 OLE_VT_BOOL to retVal
418 Function_Return retVal
419 End_Function
420
421 // EnableToolbar indicates if the viewer has a toolbar (shown or hidden)
422 { MethodType=Property }
423 { InitialValue=True }
424 { Category=Appearance }
425 Procedure Set ComEnableToolbar Boolean value
426 Handle hDispatchDriver
427 Get phDispatchDriver to hDispatchDriver
428 Send PrepareParams to hDispatchDriver 1
429 Set ComProperty of hDispatchDriver 340 OLE_VT_BOOL to value
430 End_Procedure
431
432 // DisplayBorder indicates if the viewer has a border
433 { MethodType=Property }
434 Function ComDisplayBorder Returns Boolean
435 Handle hDispatchDriver
436 Boolean retVal
437 Get phDispatchDriver to hDispatchDriver
438 Get InvokeComMethod of hDispatchDriver 341 OLE_VT_BOOL to retVal
439 Function_Return retVal
440 End_Function
441
442 // DisplayBorder indicates if the viewer has a border
443 { MethodType=Property }
444 { InitialValue=True }
445 { Category=Appearance }
446 Procedure Set ComDisplayBorder Boolean value
447 Handle hDispatchDriver
448 Get phDispatchDriver to hDispatchDriver
449 Send PrepareParams to hDispatchDriver 1
450 Set ComProperty of hDispatchDriver 341 OLE_VT_BOOL to value
451 End_Procedure
452
453 // DisplayTabs indicates if the viewer has tabs for navigation between views
454 { MethodType=Property }
455 Function ComDisplayTabs Returns Boolean
456 Handle hDispatchDriver
457 Boolean retVal
458 Get phDispatchDriver to hDispatchDriver
459 Get InvokeComMethod of hDispatchDriver 342 OLE_VT_BOOL to retVal
460 Function_Return retVal
461 End_Function
462
463 // DisplayTabs indicates if the viewer has tabs for navigation between views
464 { MethodType=Property }
465 { InitialValue=True }
466 { Category=Appearance }
467 Procedure Set ComDisplayTabs Boolean value
468 Handle hDispatchDriver
469 Get phDispatchDriver to hDispatchDriver
470 Send PrepareParams to hDispatchDriver 1
471 Set ComProperty of hDispatchDriver 342 OLE_VT_BOOL to value
472 End_Procedure
473
474 // Determines if the report is offset from the edge of its view window.
475 { MethodType=Property }
476 Function ComDisplayBackgroundEdge Returns Boolean
477 Handle hDispatchDriver
478 Boolean retVal
479 Get phDispatchDriver to hDispatchDriver
480 Get InvokeComMethod of hDispatchDriver 343 OLE_VT_BOOL to retVal
481 Function_Return retVal
482 End_Function
483
484 // Determines if the report is offset from the edge of its view window.
485 { MethodType=Property }
486 { InitialValue=True }
487 { Category=Appearance }
488 Procedure Set ComDisplayBackgroundEdge Boolean value
489 Handle hDispatchDriver
490 Get phDispatchDriver to hDispatchDriver
491 Send PrepareParams to hDispatchDriver 1
492 Set ComProperty of hDispatchDriver 343 OLE_VT_BOOL to value
493 End_Procedure
494
495 // Get the TrackCursorInfo object
496 { MethodType=Property }
497 Function ComTrackCursorInfo Returns Variant
498 Handle hDispatchDriver
499 Variant retVal
500 Get phDispatchDriver to hDispatchDriver
501 Get InvokeComMethod of hDispatchDriver 345 OLE_VT_DISPATCH to retVal
502 Function_Return retVal
503 End_Function
504
505 // ActiveViewIndex returns the 1-based index of the current view (tab)
506 { MethodType=Property }
507 Function ComActiveViewIndex Returns Short
508 Handle hDispatchDriver
509 Short retVal
510 Get phDispatchDriver to hDispatchDriver
511 Get InvokeComMethod of hDispatchDriver 346 OLE_VT_I2 to retVal
512 Function_Return retVal
513 End_Function
514
515 // ViewCount returns the current number of views (tabs)
516 { MethodType=Property }
517 Function ComViewCount Returns Short
518 Handle hDispatchDriver
519 Short retVal
520 Get phDispatchDriver to hDispatchDriver
521 Get InvokeComMethod of hDispatchDriver 347 OLE_VT_I2 to retVal
522 Function_Return retVal
523 End_Function
524
525 // ActivateView activates a particular view by 1-based index
526 Procedure ComActivateView Variant llIndex
527 Handle hDispatchDriver
528 Get phDispatchDriver to hDispatchDriver
529 Send PrepareParams to hDispatchDriver 1
530 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
531 Send InvokeComMethod to hDispatchDriver 348 OLE_VT_VOID
532 End_Procedure
533
534 // AddView adds a new view (tab). GroupPath can be a colon-delimited string (Country:State:City), a safe array of strings (Country, State, City), or a safe array of longs (1, 2, 0).
535 Procedure ComAddView Variant llGroupPath
536 Handle hDispatchDriver
537 Get phDispatchDriver to hDispatchDriver
538 Send PrepareParams to hDispatchDriver 1
539 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llGroupPath
540 Send InvokeComMethod to hDispatchDriver 349 OLE_VT_VOID
541 End_Procedure
542
543 // CloseView closes the view, given the 1-based index number of the view. S_FALSE is returned if the user was prompted to close drill-down or subreport views and elected not to proceed.
544 Procedure ComCloseView Variant llIndex
545 Handle hDispatchDriver
546 Get phDispatchDriver to hDispatchDriver
547 Send PrepareParams to hDispatchDriver 1
548 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
549 Send InvokeComMethod to hDispatchDriver 350 OLE_VT_VOID
550 End_Procedure
551
552 // GetViewPath returns the path to the current view, given the 1-based index number of the view. Path contains a safe array of strings
553 Function ComGetViewPath Short llIndex Returns Variant
554 Handle hDispatchDriver
555 Variant retVal
556 Get phDispatchDriver to hDispatchDriver
557 Send PrepareParams to hDispatchDriver 1
558 Send DefineParam to hDispatchDriver OLE_VT_I2 llIndex
559 Get InvokeComMethod of hDispatchDriver 351 OLE_VT_VARIANT to retVal
560 Function_Return retVal
561 End_Function
562
563 // PrintReport initiates printing of the report in the current view
564 Procedure ComPrintReport
565 Handle hDispatchDriver
566 Get phDispatchDriver to hDispatchDriver
567 Send InvokeComMethod to hDispatchDriver 352 OLE_VT_VOID
568 End_Procedure
569
570 // Refresh causes the view information to be reloaded and displayed
571 Procedure ComRefresh
572 Handle hDispatchDriver
573 Get phDispatchDriver to hDispatchDriver
574 Send InvokeComMethod to hDispatchDriver 353 OLE_VT_VOID
575 End_Procedure
576
577 // SearchForText allows searching for text across pages of the current view
578 Procedure ComSearchForText String llText
579 Handle hDispatchDriver
580 Get phDispatchDriver to hDispatchDriver
581 Send PrepareParams to hDispatchDriver 1
582 Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
583 Send InvokeComMethod to hDispatchDriver 354 OLE_VT_VOID
584 End_Procedure
585
586 // ShowFirstPage shows the first page of the current view
587 Procedure ComShowFirstPage
588 Handle hDispatchDriver
589 Get phDispatchDriver to hDispatchDriver
590 Send InvokeComMethod to hDispatchDriver 355 OLE_VT_VOID
591 End_Procedure
592
593 // ShowNextPage shows the next page of the current view
594 Procedure ComShowNextPage
595 Handle hDispatchDriver
596 Get phDispatchDriver to hDispatchDriver
597 Send InvokeComMethod to hDispatchDriver 356 OLE_VT_VOID
598 End_Procedure
599
600 // ShowPreviousPage shows the previous page of the current view
601 Procedure ComShowPreviousPage
602 Handle hDispatchDriver
603 Get phDispatchDriver to hDispatchDriver
604 Send InvokeComMethod to hDispatchDriver 357 OLE_VT_VOID
605 End_Procedure
606
607 // ShowLastPage shows the last page of the current view
608 Procedure ComShowLastPage
609 Handle hDispatchDriver
610 Get phDispatchDriver to hDispatchDriver
611 Send InvokeComMethod to hDispatchDriver 358 OLE_VT_VOID
612 End_Procedure
613
614 // ShowNthPage shows the desired page of the current view
615 Procedure ComShowNthPage Short llPageNumber
616 Handle hDispatchDriver
617 Get phDispatchDriver to hDispatchDriver
618 Send PrepareParams to hDispatchDriver 1
619 Send DefineParam to hDispatchDriver OLE_VT_I2 llPageNumber
620 Send InvokeComMethod to hDispatchDriver 359 OLE_VT_VOID
621 End_Procedure
622
623 // Zoom changes the display of the report. All numbers are percentages except: 1 - fit width, 2 - fit page
624 Procedure ComZoom Short llZoomLevel
625 Handle hDispatchDriver
626 Get phDispatchDriver to hDispatchDriver
627 Send PrepareParams to hDispatchDriver 1
628 Send DefineParam to hDispatchDriver OLE_VT_I2 llZoomLevel
629 Send InvokeComMethod to hDispatchDriver 360 OLE_VT_VOID
630 End_Procedure
631
632 // GetCurrentPageNumber returns the page number of the report being viewed
633 Function ComGetCurrentPageNumber Returns Integer
634 Handle hDispatchDriver
635 Integer retVal
636 Get phDispatchDriver to hDispatchDriver
637 Get InvokeComMethod of hDispatchDriver 361 OLE_VT_I4 to retVal
638 Function_Return retVal
639 End_Function
640
641 // ShowGroup displays the indicated group in the current view. GroupPath can be a colon-delimited string (Country:State:City), a safe array of strings (Country, State, City), or a safe array of longs (1, 2, 0).
642 Procedure ComShowGroup Variant llGroupPath
643 Handle hDispatchDriver
644 Get phDispatchDriver to hDispatchDriver
645 Send PrepareParams to hDispatchDriver 1
646 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llGroupPath
647 Send InvokeComMethod to hDispatchDriver 362 OLE_VT_VOID
648 End_Procedure
649
650 // IsBusy indicates if the control is busy.
651 { MethodType=Property }
652 Function ComIsBusy Returns Boolean
653 Handle hDispatchDriver
654 Boolean retVal
655 Get phDispatchDriver to hDispatchDriver
656 Get InvokeComMethod of hDispatchDriver 363 OLE_VT_BOOL to retVal
657 Function_Return retVal
658 End_Function
659
660 // Determine if the pop menu is available
661 { MethodType=Property }
662 Function ComEnablePopupMenu Returns Boolean
663 Handle hDispatchDriver
664 Boolean retVal
665 Get phDispatchDriver to hDispatchDriver
666 Get InvokeComMethod of hDispatchDriver 364 OLE_VT_BOOL to retVal
667 Function_Return retVal
668 End_Function
669
670 // Determine if the pop menu is available
671 { MethodType=Property }
672 { InitialValue=True }
673 { Category=Appearance }
674 Procedure Set ComEnablePopupMenu Boolean value
675 Handle hDispatchDriver
676 Get phDispatchDriver to hDispatchDriver
677 Send PrepareParams to hDispatchDriver 1
678 Set ComProperty of hDispatchDriver 364 OLE_VT_BOOL to value
679 End_Procedure
680
681 // Status of the Export toolbar button
682 { MethodType=Property }
683 Function ComEnableExportButton Returns Boolean
684 Handle hDispatchDriver
685 Boolean retVal
686 Get phDispatchDriver to hDispatchDriver
687 Get InvokeComMethod of hDispatchDriver 365 OLE_VT_BOOL to retVal
688 Function_Return retVal
689 End_Function
690
691 // Status of the Export toolbar button
692 { MethodType=Property }
693 { InitialValue=True }
694 { Category=Appearance }
695 Procedure Set ComEnableExportButton Boolean value
696 Handle hDispatchDriver
697 Get phDispatchDriver to hDispatchDriver
698 Send PrepareParams to hDispatchDriver 1
699 Set ComProperty of hDispatchDriver 365 OLE_VT_BOOL to value
700 End_Procedure
701
702 // Status of the Search Expert toolbar button
703 { MethodType=Property }
704 Function ComEnableSearchExpertButton Returns Boolean
705 Handle hDispatchDriver
706 Boolean retVal
707 Get phDispatchDriver to hDispatchDriver
708 Get InvokeComMethod of hDispatchDriver 367 OLE_VT_BOOL to retVal
709 Function_Return retVal
710 End_Function
711
712 // Status of the Search Expert toolbar button
713 { MethodType=Property }
714 { InitialValue=False }
715 { Category=Appearance }
716 Procedure Set ComEnableSearchExpertButton Boolean value
717 Handle hDispatchDriver
718 Get phDispatchDriver to hDispatchDriver
719 Send PrepareParams to hDispatchDriver 1
720 Set ComProperty of hDispatchDriver 367 OLE_VT_BOOL to value
721 End_Procedure
722
723 // Search using the search formula. Search UI is shown if formula is empty.
724 Procedure ComSearchByFormula String llformula
725 Handle hDispatchDriver
726 Get phDispatchDriver to hDispatchDriver
727 Send PrepareParams to hDispatchDriver 1
728 Send DefineParam to hDispatchDriver OLE_VT_BSTR llformula
729 Send InvokeComMethod to hDispatchDriver 368 OLE_VT_VOID
730 End_Procedure
731
732 // GetViewName returns the current view's tab name and the current report document's name.
733 Function ComGetViewName String ByRef llpTabName Returns String
734 Handle hDispatchDriver
735 String retVal
736 Get phDispatchDriver to hDispatchDriver
737 Send PrepareParams to hDispatchDriver 1
738 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llpTabName
739 Get InvokeComMethod of hDispatchDriver 369 OLE_VT_BSTR to retVal
740 Function_Return retVal
741 End_Function
742
743 // Enable the help button on the toolbar
744 { MethodType=Property }
745 Function ComEnableHelpButton Returns Boolean
746 Handle hDispatchDriver
747 Boolean retVal
748 Get phDispatchDriver to hDispatchDriver
749 Get InvokeComMethod of hDispatchDriver 370 OLE_VT_BOOL to retVal
750 Function_Return retVal
751 End_Function
752
753 // Enable the help button on the toolbar
754 { MethodType=Property }
755 { InitialValue=False }
756 { Category=Appearance }
757 Procedure Set ComEnableHelpButton Boolean value
758 Handle hDispatchDriver
759 Get phDispatchDriver to hDispatchDriver
760 Send PrepareParams to hDispatchDriver 1
761 Set ComProperty of hDispatchDriver 370 OLE_VT_BOOL to value
762 End_Procedure
763
764 // Get the group path of the current view. The the VT type of the VARIANT to control the type of result: VT_ARRAY | VT_I4 or VT_BSTR
765 Function ComGetGroup Returns Variant
766 Handle hDispatchDriver
767 Variant retVal
768 Get phDispatchDriver to hDispatchDriver
769 Get InvokeComMethod of hDispatchDriver 400 OLE_VT_VARIANT to retVal
770 Function_Return retVal
771 End_Function
772
773 // Get the last page number. The last page number may not have been calculated so it may not be known. For Visual Basic, a Long and a Boolean should be passed, Procedure style.
774 Procedure ComGetLastPageNumber Integer ByRef llpageN Boolean ByRef lllastPageKnown
775 Handle hDispatchDriver
776 Get phDispatchDriver to hDispatchDriver
777 Send PrepareParams to hDispatchDriver 2
778 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpageN
779 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BOOL) lllastPageKnown
780 Send InvokeComMethod to hDispatchDriver 401 OLE_VT_VOID
781 End_Procedure
782
783 // Refresh the report, optionally causing the server to refresh its data
784 Procedure ComRefreshEx Boolean llrefreshServerData
785 Handle hDispatchDriver
786 Get phDispatchDriver to hDispatchDriver
787 Send PrepareParams to hDispatchDriver 1
788 Send DefineParam to hDispatchDriver OLE_VT_BOOL llrefreshServerData
789 Send InvokeComMethod to hDispatchDriver 402 OLE_VT_VOID
790 End_Procedure
791
792 // Launch HTTP Hyperlinks in a new browser
793 { MethodType=Property }
794 Function ComLaunchHTTPHyperlinksInNewBrowser Returns Boolean
795 Handle hDispatchDriver
796 Boolean retVal
797 Get phDispatchDriver to hDispatchDriver
798 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_BOOL to retVal
799 Function_Return retVal
800 End_Function
801
802 // Launch HTTP Hyperlinks in a new browser
803 { MethodType=Property }
804 { InitialValue=True }
805 { Category=Behavior }
806 Procedure Set ComLaunchHTTPHyperlinksInNewBrowser Boolean value
807 Handle hDispatchDriver
808 Get phDispatchDriver to hDispatchDriver
809 Send PrepareParams to hDispatchDriver 1
810 Set ComProperty of hDispatchDriver 500 OLE_VT_BOOL to value
811 End_Procedure
812
813 // Get the locale ID
814 { MethodType=Property }
815 Function ComLocaleID Returns UInteger
816 Handle hDispatchDriver
817 UInteger retVal
818 Get phDispatchDriver to hDispatchDriver
819 Get InvokeComMethod of hDispatchDriver 601 OLE_VT_UI4 to retVal
820 Function_Return retVal
821 End_Function
822
823 // Get the locale ID
824 { MethodType=Property }
825 { DesignTime=False }
826 Procedure Set ComLocaleID UInteger value
827 Handle hDispatchDriver
828 Get phDispatchDriver to hDispatchDriver
829 Send PrepareParams to hDispatchDriver 1
830 Set ComProperty of hDispatchDriver 601 OLE_VT_UI4 to value
831 End_Procedure
832End_Class
833
834// CLSID: {C889ACF5-F43B-40E0-834D-EEF26B6C419C}
835// Crystal Report Viewer Control - Event Interface
836Class cCrystal_ICRViewerEvents is a Mixin
837
838 { MethodType=Event }
839 Procedure OnComCloseButtonClicked Boolean ByRef llUseDefault
840 End_Procedure
841
842 { MethodType=Event }
843 Procedure OnComFirstPageButtonClicked Boolean ByRef llUseDefault
844 End_Procedure
845
846 { MethodType=Event }
847 Procedure OnComLastPageButtonClicked Boolean ByRef llUseDefault
848 End_Procedure
849
850 { MethodType=Event }
851 Procedure OnComPrevPageButtonClicked Boolean ByRef llUseDefault
852 End_Procedure
853
854 { MethodType=Event }
855 Procedure OnComNextPageButtonClicked Boolean ByRef llUseDefault
856 End_Procedure
857
858 { MethodType=Event }
859 Procedure OnComGoToPageNClicked Boolean ByRef llUseDefault Short llPageNumber
860 End_Procedure
861
862 { MethodType=Event }
863 Procedure OnComStopButtonClicked CRLoadingType llloadingType Boolean ByRef llUseDefault
864 End_Procedure
865
866 { MethodType=Event }
867 Procedure OnComRefreshButtonClicked Boolean ByRef llUseDefault
868 End_Procedure
869
870 { MethodType=Event }
871 Procedure OnComPrintButtonClicked Boolean ByRef llUseDefault
872 End_Procedure
873
874 { MethodType=Event }
875 Procedure OnComGroupTreeButtonClicked Boolean llVisible
876 End_Procedure
877
878 { MethodType=Event }
879 Procedure OnComZoomLevelChanged Short llZoomLevel
880 End_Procedure
881
882 { MethodType=Event }
883 Procedure OnComSearchButtonClicked String llsearchText Boolean ByRef llUseDefault
884 End_Procedure
885
886 { MethodType=Event }
887 Procedure OnComDrillOnGroup Variant llGroupNameList CRDrillType llDrillType Boolean ByRef llUseDefault
888 End_Procedure
889
890 { MethodType=Event }
891 Procedure OnComShowGroup Variant llGroupNameList Boolean ByRef llUseDefault
892 End_Procedure
893
894 { MethodType=Event }
895 Procedure OnComSelectionFormulaButtonClicked String ByRef llselctionFormula Boolean ByRef llUseDefault
896 End_Procedure
897
898 { MethodType=Event }
899 Procedure OnComSelectionFormulaBuilt String llselctionFormula Boolean ByRef llUseDefault
900 End_Procedure
901
902 { MethodType=Event }
903 Procedure OnComClicked Integer llx Integer lly Variant llEventInfo Boolean ByRef llUseDefault
904 End_Procedure
905
906 { MethodType=Event }
907 Procedure OnComDblClicked Integer llx Integer lly Variant llEventInfo Boolean ByRef llUseDefault
908 End_Procedure
909
910 { MethodType=Event }
911 Procedure OnComDownloadStarted CRLoadingType llloadingType
912 End_Procedure
913
914 { MethodType=Event }
915 Procedure OnComDownloadFinished CRLoadingType llloadingType
916 End_Procedure
917
918 { MethodType=Event }
919 Procedure OnComViewChanging Integer lloldViewIndex Integer llnewViewIndex
920 End_Procedure
921
922 { MethodType=Event }
923 Procedure OnComViewChanged Integer lloldViewIndex Integer llnewViewIndex
924 End_Procedure
925
926 { MethodType=Event }
927 Procedure OnComReportSourceError String llerrorMsg Integer llerrorCode Boolean ByRef llUseDefault
928 End_Procedure
929
930 { MethodType=Event }
931 Procedure OnComExportButtonClicked Boolean ByRef llUseDefault
932 End_Procedure
933
934 { MethodType=Event }
935 Procedure OnComSearchExpertButtonClicked Boolean ByRef llUseDefault
936 End_Procedure
937
938 { MethodType=Event }
939 Procedure OnComDrillOnGraph Integer llPageNumber Integer llx Integer lly Boolean ByRef llUseDefault
940 End_Procedure
941
942 { MethodType=Event }
943 Procedure OnComDrillOnSubreport Variant llGroupNameList String llSubreportName String llTitle Integer llPageNumber Integer llIndex Boolean ByRef llUseDefault
944 End_Procedure
945
946 { MethodType=Event }
947 Procedure OnComHelpButtonClicked
948 End_Procedure
949
950 { MethodType=Event }
951 Procedure OnComFocusChanged Boolean llhasFocus
952 End_Procedure
953
954 // x,y are screen coordinates. Set UseDefault to false if you want to display your own menu.
955 { MethodType=Event }
956 Procedure OnComContextMenu Variant llObjectDescription Integer llx Integer lly Boolean ByRef llUseDefault
957 End_Procedure
958
959 // x,y,width,height in document units (twips).
960 { MethodType=Event }
961 Procedure OnComChangeObjectRect Variant llObjectDescription Integer llx Integer lly Integer llwidth Integer llheight
962 End_Procedure
963
964 // Fired before launching a hyperlink. Set UseDefalt to False to avoid launching. Change the hyperlink to redirect elsewhere.
965 { MethodType=Event }
966 Procedure OnComLaunchHyperlink String ByRef llHyperlink Boolean ByRef llUseDefault
967 End_Procedure
968
969 // Fired when a view closes
970 { MethodType=Event }
971 Procedure OnComViewClosed Integer llviewIndex
972 End_Procedure
973
974 { Visibility=Private }
975 Procedure RegisterComEvents
976 Send RegisterComEvent 401 msg_OnComCloseButtonClicked
977 Send RegisterComEvent 402 msg_OnComFirstPageButtonClicked
978 Send RegisterComEvent 403 msg_OnComLastPageButtonClicked
979 Send RegisterComEvent 404 msg_OnComPrevPageButtonClicked
980 Send RegisterComEvent 405 msg_OnComNextPageButtonClicked
981 Send RegisterComEvent 406 msg_OnComGoToPageNClicked
982 Send RegisterComEvent 407 msg_OnComStopButtonClicked
983 Send RegisterComEvent 408 msg_OnComRefreshButtonClicked
984 Send RegisterComEvent 409 msg_OnComPrintButtonClicked
985 Send RegisterComEvent 410 msg_OnComGroupTreeButtonClicked
986 Send RegisterComEvent 411 msg_OnComZoomLevelChanged
987 Send RegisterComEvent 412 msg_OnComSearchButtonClicked
988 Send RegisterComEvent 413 msg_OnComDrillOnGroup
989 Send RegisterComEvent 415 msg_OnComShowGroup
990 Send RegisterComEvent 416 msg_OnComSelectionFormulaButtonClicked
991 Send RegisterComEvent 417 msg_OnComSelectionFormulaBuilt
992 Send RegisterComEvent 418 msg_OnComClicked
993 Send RegisterComEvent 419 msg_OnComDblClicked
994 Send RegisterComEvent 420 msg_OnComDownloadStarted
995 Send RegisterComEvent 421 msg_OnComDownloadFinished
996 Send RegisterComEvent 422 msg_OnComViewChanging
997 Send RegisterComEvent 423 msg_OnComViewChanged
998 Send RegisterComEvent 424 msg_OnComReportSourceError
999 Send RegisterComEvent 425 msg_OnComExportButtonClicked
1000 Send RegisterComEvent 426 msg_OnComSearchExpertButtonClicked
1001 Send RegisterComEvent 427 msg_OnComDrillOnGraph
1002 Send RegisterComEvent 428 msg_OnComDrillOnSubreport
1003 Send RegisterComEvent 429 msg_OnComHelpButtonClicked
1004 Send RegisterComEvent 430 msg_OnComFocusChanged
1005 Send RegisterComEvent 431 msg_OnComContextMenu
1006 Send RegisterComEvent 432 msg_OnComChangeObjectRect
1007 Send RegisterComEvent 433 msg_OnComLaunchHyperlink
1008 Send RegisterComEvent 434 msg_OnComViewClosed
1009 End_Procedure
1010End_Class
1011
1012// CoClass
1013// ProgID: CrystalReports11.ActiveXReportViewer.1
1014// CLSID: {460324E8-CFB4-4357-85EF-CE3EBFE23A62}
1015// Crystal ActiveX Report Viewer Control 11.0
1016{ HelpTopic=cCrystalActiveXReportViewer }
1017{ CLSID="CrystalReports.ActiveXReportViewer" }
1018Class cCrystalActiveXReportViewer is a cComActiveXControl
1019 Import_Class_Protocol cCrystalICrystalReportViewer11
1020 Import_Class_Protocol cCrystal_ICRViewerEvents
1021
1022 Procedure Construct_Object
1023 Forward Send Construct_Object
1024 Set psProgID to "CrystalReports.ActiveXReportViewer"
1025 Set psEventId to "{C889ACF5-F43B-40E0-834D-EEF26B6C419C}"
1026 Set peAutoCreate to acDeferredAutoCreate
1027 End_Procedure
1028End_Class
1029
1030// CLSID: {13FA5946-561C-11D1-BE3F-00A0C95A6A5C}
1031// Interface to control ICrystalReportViewer control cursor selection
1032Class cCrystalICRVTrackCursorInfo is a Mixin
1033
1034 // Get the DetailAreaCursor type
1035 { MethodType=Property }
1036 Function ComDetailAreaCursor Returns CRTrackCursor
1037 Handle hDispatchDriver
1038 CRTrackCursor retVal
1039 Get phDispatchDriver to hDispatchDriver
1040 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
1041 Function_Return retVal
1042 End_Function
1043
1044 // Get the DetailAreaCursor type
1045 { MethodType=Property }
1046 Procedure Set ComDetailAreaCursor CRTrackCursor value
1047 Handle hDispatchDriver
1048 Get phDispatchDriver to hDispatchDriver
1049 Send PrepareParams to hDispatchDriver 1
1050 Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value
1051 End_Procedure
1052
1053 // Get the DetailAreaFieldCursor type
1054 { MethodType=Property }
1055 Function ComDetailAreaFieldCursor Returns CRTrackCursor
1056 Handle hDispatchDriver
1057 CRTrackCursor retVal
1058 Get phDispatchDriver to hDispatchDriver
1059 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
1060 Function_Return retVal
1061 End_Function
1062
1063 // Get the DetailAreaFieldCursor type
1064 { MethodType=Property }
1065 Procedure Set ComDetailAreaFieldCursor CRTrackCursor value
1066 Handle hDispatchDriver
1067 Get phDispatchDriver to hDispatchDriver
1068 Send PrepareParams to hDispatchDriver 1
1069 Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
1070 End_Procedure
1071
1072 // Get the GraphCursor type
1073 { MethodType=Property }
1074 Function ComGraphCursor Returns CRTrackCursor
1075 Handle hDispatchDriver
1076 CRTrackCursor retVal
1077 Get phDispatchDriver to hDispatchDriver
1078 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
1079 Function_Return retVal
1080 End_Function
1081
1082 // Get the GraphCursor type
1083 { MethodType=Property }
1084 Procedure Set ComGraphCursor CRTrackCursor value
1085 Handle hDispatchDriver
1086 Get phDispatchDriver to hDispatchDriver
1087 Send PrepareParams to hDispatchDriver 1
1088 Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
1089 End_Procedure
1090
1091 // Get the GroupAreaCursor type
1092 { MethodType=Property }
1093 Function ComGroupAreaCursor Returns CRTrackCursor
1094 Handle hDispatchDriver
1095 CRTrackCursor retVal
1096 Get phDispatchDriver to hDispatchDriver
1097 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
1098 Function_Return retVal
1099 End_Function
1100
1101 // Get the GroupAreaCursor type
1102 { MethodType=Property }
1103 Procedure Set ComGroupAreaCursor CRTrackCursor value
1104 Handle hDispatchDriver
1105 Get phDispatchDriver to hDispatchDriver
1106 Send PrepareParams to hDispatchDriver 1
1107 Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
1108 End_Procedure
1109
1110 // Get the GroupAreaFieldCursor type
1111 { MethodType=Property }
1112 Function ComGroupAreaFieldCursor Returns CRTrackCursor
1113 Handle hDispatchDriver
1114 CRTrackCursor retVal
1115 Get phDispatchDriver to hDispatchDriver
1116 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_I4 to retVal
1117 Function_Return retVal
1118 End_Function
1119
1120 // Get the GroupAreaFieldCursor type
1121 { MethodType=Property }
1122 Procedure Set ComGroupAreaFieldCursor CRTrackCursor value
1123 Handle hDispatchDriver
1124 Get phDispatchDriver to hDispatchDriver
1125 Send PrepareParams to hDispatchDriver 1
1126 Set ComProperty of hDispatchDriver 5 OLE_VT_I4 to value
1127 End_Procedure
1128End_Class
1129
1130// CoClass
1131// ProgID: CrystalReports11.CRVTrackCursorInfo.1
1132// CLSID: {2E451555-00A7-468B-8060-52B52D3F1DB0}
1133// Crystal ActiveX Report Viewer Cursor Selection 11.0
1134{ HelpTopic=cCrystalCRVTrackCursorInfo }
1135Class cCrystalCRVTrackCursorInfo is a cComAutomationObject
1136 Import_Class_Protocol cCrystalICRVTrackCursorInfo
1137
1138 Procedure Construct_Object
1139 Forward Send Construct_Object
1140 Set psProgID to "{2E451555-00A7-468B-8060-52B52D3F1DB0}"
1141 Set peAutoCreate to acNoAutoCreate
1142 End_Procedure
1143End_Class
1144
1145// CLSID: {75C66E65-8949-11D2-BF6D-00A0C9DA4FA2}
1146// Crystal Report Viewer Control - Fields Collection
1147Class cCrystalICRFields is a Mixin
1148
1149 // Number of items in the collection
1150 { MethodType=Property }
1151 Function ComCount Returns Integer
1152 Handle hDispatchDriver
1153 Integer retVal
1154 Get phDispatchDriver to hDispatchDriver
1155 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
1156 Function_Return retVal
1157 End_Function
1158
1159 // Item - index is 1-based
1160 { MethodType=Property }
1161 Function ComItem Integer llIndex Returns Variant
1162 Handle hDispatchDriver
1163 Variant retVal
1164 Get phDispatchDriver to hDispatchDriver
1165 Send PrepareParams to hDispatchDriver 1
1166 Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
1167 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_VARIANT to retVal
1168 Function_Return retVal
1169 End_Function
1170
1171 // Fields Collection
1172 { MethodType=Property }
1173 Function Com_NewEnum Returns Variant
1174 Handle hDispatchDriver
1175 Variant retVal
1176 Get phDispatchDriver to hDispatchDriver
1177 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
1178 Function_Return retVal
1179 End_Function
1180
1181 // Index of the selected field
1182 { MethodType=Property }
1183 Function ComSelectedFieldIndex Returns Integer
1184 Handle hDispatchDriver
1185 Integer retVal
1186 Get phDispatchDriver to hDispatchDriver
1187 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
1188 Function_Return retVal
1189 End_Function
1190End_Class
1191
1192// CoClass
1193// ProgID: CrystalReports11.CRVFields.1
1194// CLSID: {7CAF5AC6-EC50-45F5-83DA-4BD1D7E7A237}
1195// Crystal ActiveX Report Viewer Fields 11.0
1196{ HelpTopic=cCrystalCRVFields }
1197Class cCrystalCRVFields is a cComAutomationObject
1198 Import_Class_Protocol cCrystalICRFields
1199
1200 Procedure Construct_Object
1201 Forward Send Construct_Object
1202 Set psProgID to "{7CAF5AC6-EC50-45F5-83DA-4BD1D7E7A237}"
1203 Set peAutoCreate to acNoAutoCreate
1204 End_Procedure
1205End_Class
1206
1207// CLSID: {75C66E67-8949-11D2-BF6D-00A0C9DA4FA2}
1208// Crystal Report Viewer Control - Field
1209Class cCrystalICRField is a Mixin
1210
1211 // property Value
1212 { MethodType=Property }
1213 Function ComValue Returns Variant
1214 Handle hDispatchDriver
1215 Variant retVal
1216 Get phDispatchDriver to hDispatchDriver
1217 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_VARIANT to retVal
1218 Function_Return retVal
1219 End_Function
1220
1221 // property FieldType
1222 { MethodType=Property }
1223 Function ComFieldType Returns CRFieldType
1224 Handle hDispatchDriver
1225 CRFieldType retVal
1226 Get phDispatchDriver to hDispatchDriver
1227 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
1228 Function_Return retVal
1229 End_Function
1230
1231 // property Name
1232 { MethodType=Property }
1233 Function ComName Returns String
1234 Handle hDispatchDriver
1235 String retVal
1236 Get phDispatchDriver to hDispatchDriver
1237 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
1238 Function_Return retVal
1239 End_Function
1240
1241 // property IsRawData
1242 { MethodType=Property }
1243 Function ComIsRawData Returns Boolean
1244 Handle hDispatchDriver
1245 Boolean retVal
1246 Get phDispatchDriver to hDispatchDriver
1247 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BOOL to retVal
1248 Function_Return retVal
1249 End_Function
1250End_Class
1251
1252// CoClass
1253// ProgID: CrystalReports11.CRVField.1
1254// CLSID: {E06ADB3A-E85D-4A11-AF91-83F00B4F0E07}
1255// Crystal ActiveX Report Viewer Field 11.0
1256{ HelpTopic=cCrystalCRVField }
1257Class cCrystalCRVField is a cComAutomationObject
1258 Import_Class_Protocol cCrystalICRField
1259
1260 Procedure Construct_Object
1261 Forward Send Construct_Object
1262 Set psProgID to "{E06ADB3A-E85D-4A11-AF91-83F00B4F0E07}"
1263 Set peAutoCreate to acNoAutoCreate
1264 End_Procedure
1265End_Class
1266
1267// CLSID: {75347085-7260-11D1-BE46-00A0C95A6A5C}
1268// Interface to event information objects returned through _ICRViewerEvents from ICrystalReportViewer
1269Class cCrystalICRVEventInfo is a Mixin
1270
1271 // Object's Text
1272 { MethodType=Property }
1273 Function ComText Returns String
1274 Handle hDispatchDriver
1275 String retVal
1276 Get phDispatchDriver to hDispatchDriver
1277 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
1278 Function_Return retVal
1279 End_Function
1280
1281 // Index
1282 { MethodType=Property }
1283 Function ComIndex Returns Integer
1284 Handle hDispatchDriver
1285 Integer retVal
1286 Get phDispatchDriver to hDispatchDriver
1287 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
1288 Function_Return retVal
1289 End_Function
1290
1291 // Parent's index
1292 { MethodType=Property }
1293 Function ComParentIndex Returns Integer
1294 Handle hDispatchDriver
1295 Integer retVal
1296 Get phDispatchDriver to hDispatchDriver
1297 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
1298 Function_Return retVal
1299 End_Function
1300
1301 // Object type
1302 { MethodType=Property }
1303 Function ComType Returns CRObjectType
1304 Handle hDispatchDriver
1305 CRObjectType retVal
1306 Get phDispatchDriver to hDispatchDriver
1307 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
1308 Function_Return retVal
1309 End_Function
1310
1311 // Indicates if the object is drillable
1312 { MethodType=Property }
1313 Function ComCanDrillDown Returns Boolean
1314 Handle hDispatchDriver
1315 Boolean retVal
1316 Get phDispatchDriver to hDispatchDriver
1317 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
1318 Function_Return retVal
1319 End_Function
1320
1321 // Get the fields collection
1322 Function ComGetFields Returns Variant
1323 Handle hDispatchDriver
1324 Variant retVal
1325 Get phDispatchDriver to hDispatchDriver
1326 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_VARIANT to retVal
1327 Function_Return retVal
1328 End_Function
1329End_Class
1330
1331// CoClass
1332// ProgID: CrystalReports11.CRVEventInfo.1
1333// CLSID: {DCDB69EE-B89E-4D21-BD52-0E3C92A43FEA}
1334// Crystal ActiveX Report Viewer Event Info 11.0
1335{ HelpTopic=cCrystalCRVEventInfo }
1336Class cCrystalCRVEventInfo is a cComAutomationObject
1337 Import_Class_Protocol cCrystalICRVEventInfo
1338
1339 Procedure Construct_Object
1340 Forward Send Construct_Object
1341 Set psProgID to "{DCDB69EE-B89E-4D21-BD52-0E3C92A43FEA}"
1342 Set peAutoCreate to acNoAutoCreate
1343 End_Procedure
1344End_Class
1345
1346// CLSID: {04AA0267-F803-44DD-AA9B-D1265FCCF0F4}
1347Class cCrystalICrystalReportViewerViewInfo is a Mixin
1348
1349 Function ComGetReportName String ByRef llpName Returns Integer
1350 Handle hDispatchDriver
1351 Integer retVal
1352 Get phDispatchDriver to hDispatchDriver
1353 Send PrepareParams to hDispatchDriver 1
1354 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llpName
1355 Get InvokeComMethod of hDispatchDriver 1610678272 OLE_VT_HRESULT to retVal
1356 Function_Return retVal
1357 End_Function
1358
1359 Function ComGetSubreportName String ByRef llpName Returns Integer
1360 Handle hDispatchDriver
1361 Integer retVal
1362 Get phDispatchDriver to hDispatchDriver
1363 Send PrepareParams to hDispatchDriver 1
1364 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llpName
1365 Get InvokeComMethod of hDispatchDriver 1610678273 OLE_VT_HRESULT to retVal
1366 Function_Return retVal
1367 End_Function
1368
1369 // VARIANT contains a safe array of integers. vt = VT_I4 | VT_ARRAY
1370 Function ComGetGroupPath Variant llpVal Returns Integer
1371 Handle hDispatchDriver
1372 Integer retVal
1373 Get phDispatchDriver to hDispatchDriver
1374 Send PrepareParams to hDispatchDriver 1
1375 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpVal
1376 Get InvokeComMethod of hDispatchDriver 1610678274 OLE_VT_HRESULT to retVal
1377 Function_Return retVal
1378 End_Function
1379End_Class
1380
1381// CoClass
1382// CLSID: {033C5369-1B0C-44D7-B9F8-E3E73492110F}
1383// Crystal ActiveX Report Viewer View Info 11.0
1384{ HelpTopic=cCrystalCRCrystalReportViewerViewInfo }
1385Class cCrystalCRCrystalReportViewerViewInfo is a cComAutomationObject
1386 Import_Class_Protocol cCrystalICrystalReportViewerViewInfo
1387
1388 Procedure Construct_Object
1389 Forward Send Construct_Object
1390 Set psProgID to "{033C5369-1B0C-44D7-B9F8-E3E73492110F}"
1391 Set peAutoCreate to acNoAutoCreate
1392 End_Procedure
1393End_Class
1394
1395// CLSID: {A0E5F37D-CA67-11D1-A817-00A0C92784CD}
1396// ICrystalReportSourceRouter Interface
1397Class cCrystalICrystalReportSourceRouter is a Mixin
1398
1399 // method AddReport
1400 Procedure ComAddReport Variant llpUnknown
1401 Handle hDispatchDriver
1402 Get phDispatchDriver to hDispatchDriver
1403 Send PrepareParams to hDispatchDriver 1
1404 Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llpUnknown
1405 Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
1406 End_Procedure
1407End_Class
1408
1409// CoClass
1410// ProgID: CrystalReports11.ReportSourceRouter.1
1411// CLSID: {60860AF6-5DC3-49E2-99CD-13CE17C47E9D}
1412// Crystal Report Source Router 11.0
1413{ HelpTopic=cCrystalReportSourceRouter }
1414Class cCrystalReportSourceRouter is a cComAutomationObject
1415 Import_Class_Protocol cCrystalICrystalReportSourceRouter
1416
1417 Procedure Construct_Object
1418 Forward Send Construct_Object
1419 Set psProgID to "CrystalReports.ReportSourceRouter"
1420 Set peAutoCreate to acNoAutoCreate
1421 End_Procedure
1422End_Class
1423
1424// CLSID: {40CC9753-670D-4FBC-A99D-CE237D0C7BC1}
1425// ICRVSelectionItem Interface
1426Class cCrystalICRVSelectionItem is a Mixin
1427
1428 // Object Type
1429 { MethodType=Property }
1430 Function ComObjectType CRObjectType ByRef llpVal Returns Integer
1431 Handle hDispatchDriver
1432 Integer retVal
1433 Get phDispatchDriver to hDispatchDriver
1434 Send PrepareParams to hDispatchDriver 1
1435 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpVal
1436 Get InvokeComMethod of hDispatchDriver 1610678272 OLE_VT_HRESULT to retVal
1437 Function_Return retVal
1438 End_Function
1439
1440 // Object Type
1441 { MethodType=Property }
1442 Procedure Set ComObjectType CRObjectType value
1443 Handle hDispatchDriver
1444 Get phDispatchDriver to hDispatchDriver
1445 Send PrepareParams to hDispatchDriver 1
1446 Set ComProperty of hDispatchDriver 1610678272 OLE_VT_I4 to value
1447 End_Procedure
1448
1449 // Object Name
1450 { MethodType=Property }
1451 Function ComObjectName String ByRef llpVal Returns Integer
1452 Handle hDispatchDriver
1453 Integer retVal
1454 Get phDispatchDriver to hDispatchDriver
1455 Send PrepareParams to hDispatchDriver 1
1456 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llpVal
1457 Get InvokeComMethod of hDispatchDriver 1610678274 OLE_VT_HRESULT to retVal
1458 Function_Return retVal
1459 End_Function
1460
1461 // Object Name
1462 { MethodType=Property }
1463 Procedure Set ComObjectName String value
1464 Handle hDispatchDriver
1465 Get phDispatchDriver to hDispatchDriver
1466 Send PrepareParams to hDispatchDriver 1
1467 Set ComProperty of hDispatchDriver 1610678274 OLE_VT_BSTR to value
1468 End_Procedure
1469
1470 // Object Position
1471 { MethodType=Property }
1472 Function ComObjectPosition tagRECT ByRef llpVal Returns Integer
1473 Handle hDispatchDriver
1474 Integer retVal
1475 Get phDispatchDriver to hDispatchDriver
1476 Send PrepareParams to hDispatchDriver 1
1477 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_RECORD) llpVal
1478 Get InvokeComMethod of hDispatchDriver 1610678276 OLE_VT_HRESULT to retVal
1479 Function_Return retVal
1480 End_Function
1481
1482 // Object Position
1483 { MethodType=Property }
1484 Procedure Set ComObjectPosition tagRECT value
1485 Handle hDispatchDriver
1486 Get phDispatchDriver to hDispatchDriver
1487 Send PrepareParams to hDispatchDriver 1
1488 Set ComProperty of hDispatchDriver 1610678276 OLE_VT_RECORD to value
1489 End_Procedure
1490
1491 // Section Name
1492 { MethodType=Property }
1493 Function ComSectionName String ByRef llpVal Returns Integer
1494 Handle hDispatchDriver
1495 Integer retVal
1496 Get phDispatchDriver to hDispatchDriver
1497 Send PrepareParams to hDispatchDriver 1
1498 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llpVal
1499 Get InvokeComMethod of hDispatchDriver 1610678278 OLE_VT_HRESULT to retVal
1500 Function_Return retVal
1501 End_Function
1502
1503 // Section Name
1504 { MethodType=Property }
1505 Procedure Set ComSectionName String value
1506 Handle hDispatchDriver
1507 Get phDispatchDriver to hDispatchDriver
1508 Send PrepareParams to hDispatchDriver 1
1509 Set ComProperty of hDispatchDriver 1610678278 OLE_VT_BSTR to value
1510 End_Procedure
1511
1512 // Section Type
1513 { MethodType=Property }
1514 Function ComSectionType CRObjectType ByRef llpVal Returns Integer
1515 Handle hDispatchDriver
1516 Integer retVal
1517 Get phDispatchDriver to hDispatchDriver
1518 Send PrepareParams to hDispatchDriver 1
1519 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpVal
1520 Get InvokeComMethod of hDispatchDriver 1610678280 OLE_VT_HRESULT to retVal
1521 Function_Return retVal
1522 End_Function
1523
1524 // Section Type
1525 { MethodType=Property }
1526 Procedure Set ComSectionType CRObjectType value
1527 Handle hDispatchDriver
1528 Get phDispatchDriver to hDispatchDriver
1529 Send PrepareParams to hDispatchDriver 1
1530 Set ComProperty of hDispatchDriver 1610678280 OLE_VT_I4 to value
1531 End_Procedure
1532
1533 // Get Section Group Path
1534 Function ComGetSectionGroupPath UInteger ByRef llpSize UInteger ByRef llpVal Returns Integer
1535 Handle hDispatchDriver
1536 Integer retVal
1537 Get phDispatchDriver to hDispatchDriver
1538 Send PrepareParams to hDispatchDriver 2
1539 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llpSize
1540 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_BYREF ior OLE_VT_UI4)) llpVal
1541 Get InvokeComMethod of hDispatchDriver 1610678282 OLE_VT_HRESULT to retVal
1542 Function_Return retVal
1543 End_Function
1544
1545 // Put Section Group Path
1546 Function ComPutSectionGroupPath UInteger llsize UInteger ByRef llnewVal Returns Integer
1547 Handle hDispatchDriver
1548 Integer retVal
1549 Get phDispatchDriver to hDispatchDriver
1550 Send PrepareParams to hDispatchDriver 2
1551 Send DefineParam to hDispatchDriver OLE_VT_UI4 llsize
1552 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llnewVal
1553 Get InvokeComMethod of hDispatchDriver 1610678283 OLE_VT_HRESULT to retVal
1554 Function_Return retVal
1555 End_Function
1556
1557 // Get Section Group Path
1558 Function ComGetViewContext UInteger ByRef llpSize UInteger ByRef llpVal Returns Integer
1559 Handle hDispatchDriver
1560 Integer retVal
1561 Get phDispatchDriver to hDispatchDriver
1562 Send PrepareParams to hDispatchDriver 2
1563 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llpSize
1564 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior (OLE_VT_BYREF ior OLE_VT_UI4)) llpVal
1565 Get InvokeComMethod of hDispatchDriver 1610678284 OLE_VT_HRESULT to retVal
1566 Function_Return retVal
1567 End_Function
1568
1569 // Put Section Group Path
1570 Function ComPutViewContext UInteger llsize UInteger ByRef llnewVal Returns Integer
1571 Handle hDispatchDriver
1572 Integer retVal
1573 Get phDispatchDriver to hDispatchDriver
1574 Send PrepareParams to hDispatchDriver 2
1575 Send DefineParam to hDispatchDriver OLE_VT_UI4 llsize
1576 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llnewVal
1577 Get InvokeComMethod of hDispatchDriver 1610678285 OLE_VT_HRESULT to retVal
1578 Function_Return retVal
1579 End_Function
1580
1581 // Page Number
1582 { MethodType=Property }
1583 Function ComPageNumber UInteger ByRef llpVal Returns Integer
1584 Handle hDispatchDriver
1585 Integer retVal
1586 Get phDispatchDriver to hDispatchDriver
1587 Send PrepareParams to hDispatchDriver 1
1588 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llpVal
1589 Get InvokeComMethod of hDispatchDriver 1610678286 OLE_VT_HRESULT to retVal
1590 Function_Return retVal
1591 End_Function
1592
1593 // Page Number
1594 { MethodType=Property }
1595 Procedure Set ComPageNumber UInteger value
1596 Handle hDispatchDriver
1597 Get phDispatchDriver to hDispatchDriver
1598 Send PrepareParams to hDispatchDriver 1
1599 Set ComProperty of hDispatchDriver 1610678286 OLE_VT_UI4 to value
1600 End_Procedure
1601
1602 // Selection Uses View Context
1603 { MethodType=Property }
1604 Function ComSelectionUsesViewContext Integer ByRef llpVal Returns Integer
1605 Handle hDispatchDriver
1606 Integer retVal
1607 Get phDispatchDriver to hDispatchDriver
1608 Send PrepareParams to hDispatchDriver 1
1609 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpVal
1610 Get InvokeComMethod of hDispatchDriver 1610678288 OLE_VT_HRESULT to retVal
1611 Function_Return retVal
1612 End_Function
1613
1614 // Selection Uses View Context
1615 { MethodType=Property }
1616 Procedure Set ComSelectionUsesViewContext Integer value
1617 Handle hDispatchDriver
1618 Get phDispatchDriver to hDispatchDriver
1619 Send PrepareParams to hDispatchDriver 1
1620 Set ComProperty of hDispatchDriver 1610678288 OLE_VT_I4 to value
1621 End_Procedure
1622
1623 // Group Name Path
1624 { MethodType=Property }
1625 Function ComSectionGroupNamePath String ByRef llpVal Returns Integer
1626 Handle hDispatchDriver
1627 Integer retVal
1628 Get phDispatchDriver to hDispatchDriver
1629 Send PrepareParams to hDispatchDriver 1
1630 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llpVal
1631 Get InvokeComMethod of hDispatchDriver 1610678290 OLE_VT_HRESULT to retVal
1632 Function_Return retVal
1633 End_Function
1634
1635 // Group Name Path
1636 { MethodType=Property }
1637 Procedure Set ComSectionGroupNamePath String value
1638 Handle hDispatchDriver
1639 Get phDispatchDriver to hDispatchDriver
1640 Send PrepareParams to hDispatchDriver 1
1641 Set ComProperty of hDispatchDriver 1610678290 OLE_VT_BSTR to value
1642 End_Procedure
1643End_Class
1644
1645// CoClass
1646// ProgID: CrystalReports11.CRVSelectionItem.1
1647// CLSID: {D5CA3655-16C0-471E-A897-6DCEBA7541D6}
1648// Crystal ActiveX Report Viewer Selection Item 11.0
1649{ HelpTopic=cCrystalCRVSelectionItem }
1650Class cCrystalCRVSelectionItem is a cComAutomationObject
1651 Import_Class_Protocol cCrystalICRVSelectionItem
1652
1653 Procedure Construct_Object
1654 Forward Send Construct_Object
1655 Set psProgID to "{D5CA3655-16C0-471E-A897-6DCEBA7541D6}"
1656 Set peAutoCreate to acNoAutoCreate
1657 End_Procedure
1658End_Class
1659
1660// CLSID: {A6C2FA77-4242-44DD-8A20-83A29E6DDBF4}
1661// ICRVSelectionItems Collection Interface
1662Class cCrystalICRVSelectionItems is a Mixin
1663
1664 // Item count
1665 { MethodType=Property }
1666 Function ComCount UInteger ByRef llpVal Returns Integer
1667 Handle hDispatchDriver
1668 Integer retVal
1669 Get phDispatchDriver to hDispatchDriver
1670 Send PrepareParams to hDispatchDriver 1
1671 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llpVal
1672 Get InvokeComMethod of hDispatchDriver 1610678272 OLE_VT_HRESULT to retVal
1673 Function_Return retVal
1674 End_Function
1675
1676 // Get an item
1677 { MethodType=Property }
1678 Function ComItem UInteger llIndex Variant llpVal Returns Integer
1679 Handle hDispatchDriver
1680 Integer retVal
1681 Get phDispatchDriver to hDispatchDriver
1682 Send PrepareParams to hDispatchDriver 2
1683 Send DefineParam to hDispatchDriver OLE_VT_UI4 llIndex
1684 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UNKNOWN) llpVal
1685 Get InvokeComMethod of hDispatchDriver 1610678273 OLE_VT_HRESULT to retVal
1686 Function_Return retVal
1687 End_Function
1688
1689 Function ComAddItem Variant llpVal Returns Integer
1690 Handle hDispatchDriver
1691 Integer retVal
1692 Get phDispatchDriver to hDispatchDriver
1693 Send PrepareParams to hDispatchDriver 1
1694 Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llpVal
1695 Get InvokeComMethod of hDispatchDriver 1610678274 OLE_VT_HRESULT to retVal
1696 Function_Return retVal
1697 End_Function
1698End_Class
1699
1700// CoClass
1701// ProgID: CrystalReports11.CRVSelectionItems.1
1702// CLSID: {C5562FBD-571A-4C0D-842F-C535C06C22E9}
1703// Crystal ActiveX Report Viewer Selection Items Collection 11.0
1704{ HelpTopic=cCrystalCRVSelectionItems }
1705Class cCrystalCRVSelectionItems is a cComAutomationObject
1706 Import_Class_Protocol cCrystalICRVSelectionItems
1707
1708 Procedure Construct_Object
1709 Forward Send Construct_Object
1710 Set psProgID to "{C5562FBD-571A-4C0D-842F-C535C06C22E9}"
1711 Set peAutoCreate to acNoAutoCreate
1712 End_Procedure
1713End_Class
1714
1715// CLSID: {48C23B8C-AF4A-46C4-84F0-60B0F8DECC83}
1716// ICRVParameterPromptRuntimeOM Interface
1717Class cCrystalICRVParameterPromptRuntimeOM is a Mixin
1718
1719 // submit the form data
1720 Procedure ComSubmit Variant llpVal
1721 Handle hDispatchDriver
1722 Get phDispatchDriver to hDispatchDriver
1723 Send PrepareParams to hDispatchDriver 1
1724 Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llpVal
1725 Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
1726 End_Procedure
1727End_Class
1728
1729// CoClass
1730// CLSID: {8118BB3B-77A6-4739-8876-4DCAC2379827}
1731// Crystal ActiveX Report Viewer Parameter Prompt Runtime Object Model 11.0
1732{ HelpTopic=cCrystalCRVParameterPromptRuntimeOM }
1733Class cCrystalCRVParameterPromptRuntimeOM is a cComAutomationObject
1734 Import_Class_Protocol cCrystalICRVParameterPromptRuntimeOM
1735
1736 Procedure Construct_Object
1737 Forward Send Construct_Object
1738 Set psProgID to "{8118BB3B-77A6-4739-8876-4DCAC2379827}"
1739 Set peAutoCreate to acNoAutoCreate
1740 End_Procedure
1741End_Class
1742
1743// CLSID: {C6F8A46C-B1B3-42A0-9C6A-8F65DC112E30}
1744// Crystal Report Viewer Control - Selection Event Interface
1745{ HelpTopic=cCrystal_ICRViewerSelectionEvents }
1746Class cCrystal_ICRViewerSelectionEvents is a cComAutomationObject
1747
1748 Procedure ComSelectionStatusUpdate UInteger llSelectionHintFlags
1749 Handle hDispatchDriver
1750 Get phDispatchDriver to hDispatchDriver
1751 Send PrepareParams to hDispatchDriver 1
1752 Send DefineParam to hDispatchDriver OLE_VT_UI4 llSelectionHintFlags
1753 Send InvokeComMethod to hDispatchDriver 600 OLE_VT_VOID
1754 End_Procedure
1755End_Class
1756