Module cFlex2CrystalActiveXReportViewer.pkg

     1//*************************************************************************
     2//*                                                                       *
     3//*  Confidential Trade Secret.                                           *
     4//*  Copyright (c) 2011-2012 Mertech Data Systems Inc, Miami Florida      *
     5//*  All rights reserved.                                                 *
     6//*  DataFlex is a registered trademark of Data Access Corporation.       *
     7//*                                                                       *
     8//*************************************************************************
     9
    10Register_Function ComToolPanelView Returns Boolean
    11Register_Function ComShowPageNavigateButtons Returns Boolean
    12Register_Function ComShowTextSearchButton Returns Boolean
    13Register_Function ComShowGroupTreeButton Returns Boolean
    14Register_Function ComShowCloseButton Returns Boolean
    15Register_Function ComShowExportButton Returns Boolean
    16Register_Function ComShowPrintButton Returns Boolean
    17Register_Function ComShowRefreshButton Returns Boolean
    18Register_Function ComShowZoomButton Returns Boolean
    19
    20Class cFlex2CrystalIActiveXReportViewer is a Mixin
    21    
    22    // Custom Properties
    23    
    24    // New version of crystal don't allow you to stop a report
    25    Procedure Set ComEnableStopButton Boolean value
    26        If (not(pbForceCompatible(Self)) and value) Begin
    27            Send DisplayMessage of oFlex2CrystalDevMsg "Stop button not supported."
    28        End
    29    End_Procedure
    30
    31    Function ComEnableStopButton Returns Boolean
    32        Function_Return False
    33    End_Function
    34    
    35    Procedure Set ComDisplayGroupTree Boolean value
    36        If (not(value)) Set ComToolPanelView to 0
    37    End_Procedure
    38    
    39    Function ComDisplayGroupTree Returns Boolean
    40        If (ComToolPanelView(Self) <> 0) Function_Return True
    41        Else Function_Return False
    42    End_Function
    43    
    44    Procedure Set ComEnableNavigationControls Boolean Value
    45        Set ComShowPageNavigateButtons to value
    46    End_Procedure
    47    
    48    Function ComEnableNavigationControls Returns Boolean
    49        Function_Return (ComShowPageNavigateButtons(Self))
    50    End_Function
    51    
    52    Procedure Set ComEnableSearchExpertButton Boolean Value
    53        If (not(pbForceCompatible(Self)) and value) Begin
    54            Send DisplayMessage of oFlex2CrystalDevMsg "Search Expert not supported."
    55        End
    56    End_Procedure
    57    
    58    Function ComEnableSearchExpertButton Returns Boolean
    59        Function_Return False
    60    End_Function
    61    
    62    Procedure Set ComEnableSelectExpertButton Boolean Value
    63        If (not(pbForceCompatible(Self)) and value) Begin
    64            Send DisplayMessage of oFlex2CrystalDevMsg "Select Expert not supported."
    65        End
    66    End_Procedure
    67    
    68    Function ComEnableSelectExpertButton Returns Boolean
    69        Function_Return False
    70    End_Function
    71    
    72    Procedure Set ComEnableHelpButton Boolean Value
    73        If (not(pbForceCompatible(Self)) and value) Begin
    74            Send DisplayMessage of oFlex2CrystalDevMsg "Crystal Help button not supported."
    75        End
    76    End_Procedure
    77    
    78    Function ComEnableHelpButton Returns Boolean
    79        Function_Return False
    80    End_Function
    81    
    82    Procedure Set ComEnableProgressControl Boolean Value
    83        If (not(pbForceCompatible(Self)) and value) Begin
    84            Send DisplayMessage of oFlex2CrystalDevMsg "Progress indicator not supported."
    85        End
    86    End_Procedure
    87    
    88    Function ComEnableProgressControl Returns Boolean
    89        Function_Return False
    90    End_Function
    91    
    92    Procedure Set ComEnableSearchControl Boolean Value
    93        Set ComShowTextSearchButton to Value
    94    End_Procedure
    95    
    96    Function ComEnableSearchControl Returns Boolean
    97        Function_Return (ComShowTextSearchButton(Self))
    98    End_Function
    99    
   100    Procedure Set ComEnableAnimationCtrl Boolean Value
   101        If (not(pbForceCompatible(Self)) and value) Begin
   102            Send DisplayMessage of oFlex2CrystalDevMsg "Animation control not supported."
   103        End
   104    End_Procedure
   105    
   106    Function ComEnableAnimationCtrl Returns Boolean
   107        Function_Return False
   108    End_Function
   109    
   110    Procedure Set ComLaunchHTTPHyperlinksInNewBrowser Boolean Value
   111        If (not(pbForceCompatible(Self)) and value) Begin
   112            Send DisplayMessage of oFlex2CrystalDevMsg "Hyperlink preference not supported."
   113        End
   114    End_Procedure
   115    
   116    Function ComLaunchHTTPHyperlinksInNewBrowser Returns Boolean
   117        Function_Return False
   118    End_Function
   119    
   120    Procedure Set ComEnableGroupTree Boolean value
   121        Set ComShowGroupTreeButton to value
   122    End_Procedure
   123    
   124    Function ComEnableGroupTree Returns Boolean
   125        Function_Return (ComShowGroupTreeButton(Self))
   126    End_Function
   127    
   128    Procedure Set ComEnableCloseButton Boolean value
   129        Set ComShowCloseButton to value
   130    End_Procedure
   131    
   132    Function ComEnableCloseButton Returns Boolean
   133        Function_Return (ComShowCloseButton(Self))
   134    End_Function
   135    
   136    Procedure Set ComEnableExportButton Boolean value
   137        Set ComShowExportButton to value
   138    End_Procedure
   139    
   140    Function ComEnableExportButton Returns Boolean
   141        Function_Return (ComShowExportButton(Self))
   142    End_Function
   143    
   144    Procedure Set ComEnablePrintButton Boolean value
   145        Set ComShowPrintButton to value
   146    End_Procedure
   147    
   148    Function ComEnablePrintButton Returns Boolean
   149        Function_Return (ComShowPrintButton(Self))
   150    End_Function
   151    
   152    Procedure Set ComEnableRefreshButton Boolean value
   153        Set ComShowRefreshButton to value
   154    End_Procedure
   155    
   156    Function ComEnableRefreshButton Returns Boolean
   157        Function_Return (ComShowRefreshButton(Self))
   158    End_Function
   159    
   160    Procedure Set ComEnableZoomControl Boolean value
   161        Set ComShowZoomButton to value
   162    End_Procedure
   163    
   164    Function ComEnableZoomControl Returns Boolean
   165        Function_Return (ComShowZoomButton(Self))
   166    End_Function
   167    
   168    // Vasiliy should be able to implement this
   169    Procedure Set ComDisplayTabs Boolean value
   170        If (not(pbForceCompatible(Self)) and not(value)) Begin
   171            Send DisplayMessage of oFlex2CrystalDevMsg "Hiding tabs not supported."
   172        End
   173    End_Procedure
   174    
   175    Function ComDisplayTabs Returns Boolean
   176        Function_Return True
   177    End_Function
   178    
   179    Procedure Set ComDisplayBorder Boolean value
   180        If (not(pbForceCompatible(Self)) and not(value)) Begin
   181            Send DisplayMessage of oFlex2CrystalDevMsg "Hiding the border not supported."
   182        End
   183    End_Procedure
   184    
   185    Function ComDisplayBorder Returns Boolean
   186        Function_Return True
   187    End_Function
   188
   189    
   190    Function ComDisplayGroupTreeNative Returns Boolean
   191        Handle hDispatchDriver
   192        Boolean retVal
   193        Get phDispatchDriver to hDispatchDriver
   194        Get InvokeComMethod of hDispatchDriver 46 OLE_VT_BOOL to retVal
   195        Function_Return retVal
   196    End_Function
   197
   198    
   199    Procedure Set ComDisplayGroupTreeNative Boolean value
   200        Handle hDispatchDriver
   201        Get phDispatchDriver to hDispatchDriver
   202        Send PrepareParams to hDispatchDriver 1
   203        Set ComProperty of hDispatchDriver 46 OLE_VT_BOOL to value
   204    End_Procedure
   205    
   206    Procedure ComViewReport
   207        Send ComRefreshReport
   208    End_Procedure
   209    
   210    // Standard
   211
   212    
   213    Function ComAccessibleDefaultActionDescription Returns String
   214        Handle hDispatchDriver
   215        String retVal
   216        Get phDispatchDriver to hDispatchDriver
   217        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
   218        Function_Return retVal
   219    End_Function
   220
   221    
   222    Procedure Set ComAccessibleDefaultActionDescription String value
   223        Handle hDispatchDriver
   224        Get phDispatchDriver to hDispatchDriver
   225        Send PrepareParams to hDispatchDriver 1
   226        Set ComProperty of hDispatchDriver 2 OLE_VT_BSTR to value
   227    End_Procedure
   228
   229    
   230    Function ComAccessibleDescription Returns String
   231        Handle hDispatchDriver
   232        String retVal
   233        Get phDispatchDriver to hDispatchDriver
   234        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
   235        Function_Return retVal
   236    End_Function
   237
   238    
   239    Procedure Set ComAccessibleDescription String value
   240        Handle hDispatchDriver
   241        Get phDispatchDriver to hDispatchDriver
   242        Send PrepareParams to hDispatchDriver 1
   243        Set ComProperty of hDispatchDriver 3 OLE_VT_BSTR to value
   244    End_Procedure
   245
   246    
   247    Function ComAccessibleName Returns String
   248        Handle hDispatchDriver
   249        String retVal
   250        Get phDispatchDriver to hDispatchDriver
   251        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BSTR to retVal
   252        Function_Return retVal
   253    End_Function
   254
   255    
   256    Procedure Set ComAccessibleName String value
   257        Handle hDispatchDriver
   258        Get phDispatchDriver to hDispatchDriver
   259        Send PrepareParams to hDispatchDriver 1
   260        Set ComProperty of hDispatchDriver 4 OLE_VT_BSTR to value
   261    End_Procedure
   262
   263    
   264    Function ComActiveViewIndex Returns Integer
   265        Handle hDispatchDriver
   266        Integer retVal
   267        Get phDispatchDriver to hDispatchDriver
   268        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
   269        Function_Return retVal
   270    End_Function
   271
   272    
   273    Procedure Set ComActiveViewIndex Integer value
   274        Handle hDispatchDriver
   275        Get phDispatchDriver to hDispatchDriver
   276        Send PrepareParams to hDispatchDriver 1
   277        Set ComProperty of hDispatchDriver 7 OLE_VT_I4 to value
   278    End_Procedure
   279
   280    
   281    Function ComAllowDrop Returns Boolean
   282        Handle hDispatchDriver
   283        Boolean retVal
   284        Get phDispatchDriver to hDispatchDriver
   285        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal
   286        Function_Return retVal
   287    End_Function
   288
   289    
   290    Procedure Set ComAllowDrop Boolean value
   291        Handle hDispatchDriver
   292        Get phDispatchDriver to hDispatchDriver
   293        Send PrepareParams to hDispatchDriver 1
   294        Set ComProperty of hDispatchDriver 8 OLE_VT_BOOL to value
   295    End_Procedure
   296
   297    
   298    Function ComAllowedExportFormats Returns Integer
   299        Handle hDispatchDriver
   300        Integer retVal
   301        Get phDispatchDriver to hDispatchDriver
   302        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_I4 to retVal
   303        Function_Return retVal
   304    End_Function
   305
   306    
   307    Procedure Set ComAllowedExportFormats Integer value
   308        Handle hDispatchDriver
   309        Get phDispatchDriver to hDispatchDriver
   310        Send PrepareParams to hDispatchDriver 1
   311        Set ComProperty of hDispatchDriver 9 OLE_VT_I4 to value
   312    End_Procedure
   313
   314    
   315    Function ComAutoScroll Returns Boolean
   316        Handle hDispatchDriver
   317        Boolean retVal
   318        Get phDispatchDriver to hDispatchDriver
   319        Get InvokeComMethod of hDispatchDriver 13 OLE_VT_BOOL to retVal
   320        Function_Return retVal
   321    End_Function
   322
   323    
   324    Procedure Set ComAutoScroll Boolean value
   325        Handle hDispatchDriver
   326        Get phDispatchDriver to hDispatchDriver
   327        Send PrepareParams to hDispatchDriver 1
   328        Set ComProperty of hDispatchDriver 13 OLE_VT_BOOL to value
   329    End_Procedure
   330
   331    
   332    Function ComAutoSize Returns Boolean
   333        Handle hDispatchDriver
   334        Boolean retVal
   335        Get phDispatchDriver to hDispatchDriver
   336        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_BOOL to retVal
   337        Function_Return retVal
   338    End_Function
   339
   340    
   341    Procedure Set ComAutoSize Boolean value
   342        Handle hDispatchDriver
   343        Get phDispatchDriver to hDispatchDriver
   344        Send PrepareParams to hDispatchDriver 1
   345        Set ComProperty of hDispatchDriver 18 OLE_VT_BOOL to value
   346    End_Procedure
   347
   348    
   349    Function ComBackColor Returns Integer
   350        Handle hDispatchDriver
   351        Integer retVal
   352        Get phDispatchDriver to hDispatchDriver
   353        Get InvokeComMethod of hDispatchDriver 21 OLE_VT_I4 to retVal
   354        Function_Return retVal
   355    End_Function
   356
   357    
   358    Procedure Set ComBackColor Integer value
   359        Handle hDispatchDriver
   360        Get phDispatchDriver to hDispatchDriver
   361        Send PrepareParams to hDispatchDriver 1
   362        Set ComProperty of hDispatchDriver 21 OLE_VT_I4 to value
   363    End_Procedure
   364
   365    
   366    Function ComBorderStyle Returns OLEBorderStyle
   367        Handle hDispatchDriver
   368        OLEBorderStyle retVal
   369        Get phDispatchDriver to hDispatchDriver
   370        Get InvokeComMethod of hDispatchDriver 25 OLE_VT_I4 to retVal
   371        Function_Return retVal
   372    End_Function
   373
   374    
   375    Procedure Set ComBorderStyle OLEBorderStyle value
   376        Handle hDispatchDriver
   377        Get phDispatchDriver to hDispatchDriver
   378        Send PrepareParams to hDispatchDriver 1
   379        Set ComProperty of hDispatchDriver 25 OLE_VT_I4 to value
   380    End_Procedure
   381
   382    
   383    Function ComBottom Returns Integer
   384        Handle hDispatchDriver
   385        Integer retVal
   386        Get phDispatchDriver to hDispatchDriver
   387        Get InvokeComMethod of hDispatchDriver 26 OLE_VT_I4 to retVal
   388        Function_Return retVal
   389    End_Function
   390
   391    
   392    Function ComCanFocus Returns Boolean
   393        Handle hDispatchDriver
   394        Boolean retVal
   395        Get phDispatchDriver to hDispatchDriver
   396        Get InvokeComMethod of hDispatchDriver 28 OLE_VT_BOOL to retVal
   397        Function_Return retVal
   398    End_Function
   399
   400    
   401    Function ComCanSelect Returns Boolean
   402        Handle hDispatchDriver
   403        Boolean retVal
   404        Get phDispatchDriver to hDispatchDriver
   405        Get InvokeComMethod of hDispatchDriver 29 OLE_VT_BOOL to retVal
   406        Function_Return retVal
   407    End_Function
   408
   409    
   410    Function ComCapture Returns Boolean
   411        Handle hDispatchDriver
   412        Boolean retVal
   413        Get phDispatchDriver to hDispatchDriver
   414        Get InvokeComMethod of hDispatchDriver 30 OLE_VT_BOOL to retVal
   415        Function_Return retVal
   416    End_Function
   417
   418    
   419    Procedure Set ComCapture Boolean value
   420        Handle hDispatchDriver
   421        Get phDispatchDriver to hDispatchDriver
   422        Send PrepareParams to hDispatchDriver 1
   423        Set ComProperty of hDispatchDriver 30 OLE_VT_BOOL to value
   424    End_Procedure
   425
   426    
   427    Function ComCausesValidation Returns Boolean
   428        Handle hDispatchDriver
   429        Boolean retVal
   430        Get phDispatchDriver to hDispatchDriver
   431        Get InvokeComMethod of hDispatchDriver 31 OLE_VT_BOOL to retVal
   432        Function_Return retVal
   433    End_Function
   434
   435    
   436    Procedure Set ComCausesValidation Boolean value
   437        Handle hDispatchDriver
   438        Get phDispatchDriver to hDispatchDriver
   439        Send PrepareParams to hDispatchDriver 1
   440        Set ComProperty of hDispatchDriver 31 OLE_VT_BOOL to value
   441    End_Procedure
   442
   443    
   444    Function ComCompanyName Returns String
   445        Handle hDispatchDriver
   446        String retVal
   447        Get phDispatchDriver to hDispatchDriver
   448        Get InvokeComMethod of hDispatchDriver 34 OLE_VT_BSTR to retVal
   449        Function_Return retVal
   450    End_Function
   451
   452    
   453    Function ComContainsFocus Returns Boolean
   454        Handle hDispatchDriver
   455        Boolean retVal
   456        Get phDispatchDriver to hDispatchDriver
   457        Get InvokeComMethod of hDispatchDriver 36 OLE_VT_BOOL to retVal
   458        Function_Return retVal
   459    End_Function
   460
   461    
   462    Function ComCreated Returns Boolean
   463        Handle hDispatchDriver
   464        Boolean retVal
   465        Get phDispatchDriver to hDispatchDriver
   466        Get InvokeComMethod of hDispatchDriver 40 OLE_VT_BOOL to retVal
   467        Function_Return retVal
   468    End_Function
   469
   470    
   471    Function ComDesignTimeWinFormDirectory Returns String
   472        Handle hDispatchDriver
   473        String retVal
   474        Get phDispatchDriver to hDispatchDriver
   475        Get InvokeComMethod of hDispatchDriver 44 OLE_VT_BSTR to retVal
   476        Function_Return retVal
   477    End_Function
   478
   479    
   480    Procedure Set ComDesignTimeWinFormDirectory String value
   481        Handle hDispatchDriver
   482        Get phDispatchDriver to hDispatchDriver
   483        Send PrepareParams to hDispatchDriver 1
   484        Set ComProperty of hDispatchDriver 44 OLE_VT_BSTR to value
   485    End_Procedure
   486
   487    
   488    Function ComDisplayBackgroundEdge Returns Boolean
   489        Handle hDispatchDriver
   490        Boolean retVal
   491        Get phDispatchDriver to hDispatchDriver
   492        Get InvokeComMethod of hDispatchDriver 45 OLE_VT_BOOL to retVal
   493        Function_Return retVal
   494    End_Function
   495
   496    
   497    Procedure Set ComDisplayBackgroundEdge Boolean value
   498        Handle hDispatchDriver
   499        Get phDispatchDriver to hDispatchDriver
   500        Send PrepareParams to hDispatchDriver 1
   501        Set ComProperty of hDispatchDriver 45 OLE_VT_BOOL to value
   502    End_Procedure
   503
   504    
   505    Function ComDisplayStatusBar Returns Boolean
   506        Handle hDispatchDriver
   507        Boolean retVal
   508        Get phDispatchDriver to hDispatchDriver
   509        Get InvokeComMethod of hDispatchDriver 48 OLE_VT_BOOL to retVal
   510        Function_Return retVal
   511    End_Function
   512
   513    
   514    Procedure Set ComDisplayStatusBar Boolean value
   515        Handle hDispatchDriver
   516        Get phDispatchDriver to hDispatchDriver
   517        Send PrepareParams to hDispatchDriver 1
   518        Set ComProperty of hDispatchDriver 48 OLE_VT_BOOL to value
   519    End_Procedure
   520
   521    
   522    Function ComDisplayToolbar Returns Boolean
   523        Handle hDispatchDriver
   524        Boolean retVal
   525        Get phDispatchDriver to hDispatchDriver
   526        Get InvokeComMethod of hDispatchDriver 49 OLE_VT_BOOL to retVal
   527        Function_Return retVal
   528    End_Function
   529
   530    
   531    Procedure Set ComDisplayToolbar Boolean value
   532        Handle hDispatchDriver
   533        Get phDispatchDriver to hDispatchDriver
   534        Send PrepareParams to hDispatchDriver 1
   535        Set ComProperty of hDispatchDriver 49 OLE_VT_BOOL to value
   536    End_Procedure
   537
   538    
   539    Function ComDisposing Returns Boolean
   540        Handle hDispatchDriver
   541        Boolean retVal
   542        Get phDispatchDriver to hDispatchDriver
   543        Get InvokeComMethod of hDispatchDriver 50 OLE_VT_BOOL to retVal
   544        Function_Return retVal
   545    End_Function
   546
   547    
   548    Function ComEnabled Returns Boolean
   549        Handle hDispatchDriver
   550        Boolean retVal
   551        Get phDispatchDriver to hDispatchDriver
   552        Get InvokeComMethod of hDispatchDriver 53 OLE_VT_BOOL to retVal
   553        Function_Return retVal
   554    End_Function
   555
   556    
   557    Procedure Set ComEnabled Boolean value
   558        Handle hDispatchDriver
   559        Get phDispatchDriver to hDispatchDriver
   560        Send PrepareParams to hDispatchDriver 1
   561        Set ComProperty of hDispatchDriver 53 OLE_VT_BOOL to value
   562    End_Procedure
   563
   564    
   565    Function ComEnableDrilldown Returns Boolean
   566        Handle hDispatchDriver
   567        Boolean retVal
   568        Get phDispatchDriver to hDispatchDriver
   569        Get InvokeComMethod of hDispatchDriver 54 OLE_VT_BOOL to retVal
   570        Function_Return retVal
   571    End_Function
   572
   573    
   574    Procedure Set ComEnableDrilldown Boolean value
   575        Handle hDispatchDriver
   576        Get phDispatchDriver to hDispatchDriver
   577        Send PrepareParams to hDispatchDriver 1
   578        Set ComProperty of hDispatchDriver 54 OLE_VT_BOOL to value
   579    End_Procedure
   580
   581    
   582    Function ComEnableRefresh Returns Boolean
   583        Handle hDispatchDriver
   584        Boolean retVal
   585        Get phDispatchDriver to hDispatchDriver
   586        Get InvokeComMethod of hDispatchDriver 55 OLE_VT_BOOL to retVal
   587        Function_Return retVal
   588    End_Function
   589
   590    
   591    Procedure Set ComEnableRefresh Boolean value
   592        Handle hDispatchDriver
   593        Get phDispatchDriver to hDispatchDriver
   594        Send PrepareParams to hDispatchDriver 1
   595        Set ComProperty of hDispatchDriver 55 OLE_VT_BOOL to value
   596    End_Procedure
   597
   598    
   599    Function ComEnableToolTips Returns Boolean
   600        Handle hDispatchDriver
   601        Boolean retVal
   602        Get phDispatchDriver to hDispatchDriver
   603        Get InvokeComMethod of hDispatchDriver 56 OLE_VT_BOOL to retVal
   604        Function_Return retVal
   605    End_Function
   606
   607    
   608    Procedure Set ComEnableToolTips Boolean value
   609        Handle hDispatchDriver
   610        Get phDispatchDriver to hDispatchDriver
   611        Send PrepareParams to hDispatchDriver 1
   612        Set ComProperty of hDispatchDriver 56 OLE_VT_BOOL to value
   613    End_Procedure
   614
   615    
   616    Function ComEnterpriseLogon Returns Variant
   617        Handle hDispatchDriver
   618        Variant retVal
   619        Get phDispatchDriver to hDispatchDriver
   620        Get InvokeComMethod of hDispatchDriver 57 OLE_VT_VARIANT to retVal
   621        Function_Return retVal
   622    End_Function
   623
   624    
   625    Procedure Set ComEnterpriseLogon Variant value
   626        Handle hDispatchDriver
   627        Get phDispatchDriver to hDispatchDriver
   628        Send PrepareParams to hDispatchDriver 1
   629        Set ComProperty of hDispatchDriver 57 OLE_VT_VARIANT to value
   630    End_Procedure
   631
   632    
   633    Function ComFocused Returns Boolean
   634        Handle hDispatchDriver
   635        Boolean retVal
   636        Get phDispatchDriver to hDispatchDriver
   637        Get InvokeComMethod of hDispatchDriver 58 OLE_VT_BOOL to retVal
   638        Function_Return retVal
   639    End_Function
   640
   641    
   642    Function ComForeColor Returns Integer
   643        Handle hDispatchDriver
   644        Integer retVal
   645        Get phDispatchDriver to hDispatchDriver
   646        Get InvokeComMethod of hDispatchDriver 60 OLE_VT_I4 to retVal
   647        Function_Return retVal
   648    End_Function
   649
   650    
   651    Procedure Set ComForeColor Integer value
   652        Handle hDispatchDriver
   653        Get phDispatchDriver to hDispatchDriver
   654        Send PrepareParams to hDispatchDriver 1
   655        Set ComProperty of hDispatchDriver 60 OLE_VT_I4 to value
   656    End_Procedure
   657
   658    
   659    Function ComHandle Returns Integer
   660        Handle hDispatchDriver
   661        Integer retVal
   662        Get phDispatchDriver to hDispatchDriver
   663        Get InvokeComMethod of hDispatchDriver 61 OLE_VT_I4 to retVal
   664        Function_Return retVal
   665    End_Function
   666
   667    
   668    Function ComHasChildren Returns Boolean
   669        Handle hDispatchDriver
   670        Boolean retVal
   671        Get phDispatchDriver to hDispatchDriver
   672        Get InvokeComMethod of hDispatchDriver 62 OLE_VT_BOOL to retVal
   673        Function_Return retVal
   674    End_Function
   675
   676    
   677    Function ComHeight Returns Integer
   678        Handle hDispatchDriver
   679        Integer retVal
   680        Get phDispatchDriver to hDispatchDriver
   681        Get InvokeComMethod of hDispatchDriver 63 OLE_VT_I4 to retVal
   682        Function_Return retVal
   683    End_Function
   684
   685    
   686    Procedure Set ComHeight Integer value
   687        Handle hDispatchDriver
   688        Get phDispatchDriver to hDispatchDriver
   689        Send PrepareParams to hDispatchDriver 1
   690        Set ComProperty of hDispatchDriver 63 OLE_VT_I4 to value
   691    End_Procedure
   692
   693    
   694    Function ComImeMode Returns OLEImeMode
   695        Handle hDispatchDriver
   696        OLEImeMode retVal
   697        Get phDispatchDriver to hDispatchDriver
   698        Get InvokeComMethod of hDispatchDriver 65 OLE_VT_I4 to retVal
   699        Function_Return retVal
   700    End_Function
   701
   702    
   703    Procedure Set ComImeMode OLEImeMode value
   704        Handle hDispatchDriver
   705        Get phDispatchDriver to hDispatchDriver
   706        Send PrepareParams to hDispatchDriver 1
   707        Set ComProperty of hDispatchDriver 65 OLE_VT_I4 to value
   708    End_Procedure
   709
   710    
   711    Function ComInvokeRequired Returns Boolean
   712        Handle hDispatchDriver
   713        Boolean retVal
   714        Get phDispatchDriver to hDispatchDriver
   715        Get InvokeComMethod of hDispatchDriver 66 OLE_VT_BOOL to retVal
   716        Function_Return retVal
   717    End_Function
   718
   719    
   720    Function ComIsAccessible Returns Boolean
   721        Handle hDispatchDriver
   722        Boolean retVal
   723        Get phDispatchDriver to hDispatchDriver
   724        Get InvokeComMethod of hDispatchDriver 67 OLE_VT_BOOL to retVal
   725        Function_Return retVal
   726    End_Function
   727
   728    
   729    Procedure Set ComIsAccessible Boolean value
   730        Handle hDispatchDriver
   731        Get phDispatchDriver to hDispatchDriver
   732        Send PrepareParams to hDispatchDriver 1
   733        Set ComProperty of hDispatchDriver 67 OLE_VT_BOOL to value
   734    End_Procedure
   735
   736    
   737    Function ComIsDisposed Returns Boolean
   738        Handle hDispatchDriver
   739        Boolean retVal
   740        Get phDispatchDriver to hDispatchDriver
   741        Get InvokeComMethod of hDispatchDriver 68 OLE_VT_BOOL to retVal
   742        Function_Return retVal
   743    End_Function
   744
   745    
   746    Function ComIsHandleCreated Returns Boolean
   747        Handle hDispatchDriver
   748        Boolean retVal
   749        Get phDispatchDriver to hDispatchDriver
   750        Get InvokeComMethod of hDispatchDriver 69 OLE_VT_BOOL to retVal
   751        Function_Return retVal
   752    End_Function
   753
   754    
   755    Function ComIsMirrored Returns Boolean
   756        Handle hDispatchDriver
   757        Boolean retVal
   758        Get phDispatchDriver to hDispatchDriver
   759        Get InvokeComMethod of hDispatchDriver 70 OLE_VT_BOOL to retVal
   760        Function_Return retVal
   761    End_Function
   762
   763    
   764    Function ComLeft Returns Integer
   765        Handle hDispatchDriver
   766        Integer retVal
   767        Get phDispatchDriver to hDispatchDriver
   768        Get InvokeComMethod of hDispatchDriver 72 OLE_VT_I4 to retVal
   769        Function_Return retVal
   770    End_Function
   771
   772    
   773    Procedure Set ComLeft Integer value
   774        Handle hDispatchDriver
   775        Get phDispatchDriver to hDispatchDriver
   776        Send PrepareParams to hDispatchDriver 1
   777        Set ComProperty of hDispatchDriver 72 OLE_VT_I4 to value
   778    End_Procedure
   779
   780    
   781    Function ComLogOnInfo Returns Variant
   782        Handle hDispatchDriver
   783        Variant retVal
   784        Get phDispatchDriver to hDispatchDriver
   785        Get InvokeComMethod of hDispatchDriver 74 OLE_VT_DISPATCH to retVal
   786        Function_Return retVal
   787    End_Function
   788
   789    
   790    Procedure Set ComLogOnInfo Variant value
   791        Handle hDispatchDriver
   792        Get phDispatchDriver to hDispatchDriver
   793        Send PrepareParams to hDispatchDriver 1
   794        Set ComProperty of hDispatchDriver 74 OLE_VT_DISPATCH to value
   795    End_Procedure
   796
   797    
   798    Function ComName Returns String
   799        Handle hDispatchDriver
   800        String retVal
   801        Get phDispatchDriver to hDispatchDriver
   802        Get InvokeComMethod of hDispatchDriver 78 OLE_VT_BSTR to retVal
   803        Function_Return retVal
   804    End_Function
   805
   806    
   807    Procedure Set ComName String value
   808        Handle hDispatchDriver
   809        Get phDispatchDriver to hDispatchDriver
   810        Send PrepareParams to hDispatchDriver 1
   811        Set ComProperty of hDispatchDriver 78 OLE_VT_BSTR to value
   812    End_Procedure
   813
   814    
   815    Function ComParameterFieldInfo Returns Variant
   816        Handle hDispatchDriver
   817        Variant retVal
   818        Get phDispatchDriver to hDispatchDriver
   819        Get InvokeComMethod of hDispatchDriver 80 OLE_VT_DISPATCH to retVal
   820        Function_Return retVal
   821    End_Function
   822
   823    
   824    Procedure Set ComParameterFieldInfo Variant value
   825        Handle hDispatchDriver
   826        Get phDispatchDriver to hDispatchDriver
   827        Send PrepareParams to hDispatchDriver 1
   828        Set ComProperty of hDispatchDriver 80 OLE_VT_DISPATCH to value
   829    End_Procedure
   830
   831    
   832    Function ComProductName Returns String
   833        Handle hDispatchDriver
   834        String retVal
   835        Get phDispatchDriver to hDispatchDriver
   836        Get InvokeComMethod of hDispatchDriver 85 OLE_VT_BSTR to retVal
   837        Function_Return retVal
   838    End_Function
   839
   840    
   841    Function ComProductVersion Returns String
   842        Handle hDispatchDriver
   843        String retVal
   844        Get phDispatchDriver to hDispatchDriver
   845        Get InvokeComMethod of hDispatchDriver 86 OLE_VT_BSTR to retVal
   846        Function_Return retVal
   847    End_Function
   848
   849    
   850    Function ComRecreatingHandle Returns Boolean
   851        Handle hDispatchDriver
   852        Boolean retVal
   853        Get phDispatchDriver to hDispatchDriver
   854        Get InvokeComMethod of hDispatchDriver 87 OLE_VT_BOOL to retVal
   855        Function_Return retVal
   856    End_Function
   857
   858    
   859    Function ComReportSource Returns Variant
   860        Handle hDispatchDriver
   861        Variant retVal
   862        Get phDispatchDriver to hDispatchDriver
   863        Get InvokeComMethod of hDispatchDriver 89 OLE_VT_VARIANT to retVal
   864        Function_Return retVal
   865    End_Function
   866
   867    
   868    Procedure Set ComReportSource Variant value
   869        Handle hDispatchDriver
   870        Get phDispatchDriver to hDispatchDriver
   871        Send PrepareParams to hDispatchDriver 1
   872        Set ComProperty of hDispatchDriver 89 OLE_VT_VARIANT to value
   873    End_Procedure
   874
   875    
   876    Function ComReportSourceClassFactoryName Returns String
   877        Handle hDispatchDriver
   878        String retVal
   879        Get phDispatchDriver to hDispatchDriver
   880        Get InvokeComMethod of hDispatchDriver 90 OLE_VT_BSTR to retVal
   881        Function_Return retVal
   882    End_Function
   883
   884    
   885    Procedure Set ComReportSourceClassFactoryName String value
   886        Handle hDispatchDriver
   887        Get phDispatchDriver to hDispatchDriver
   888        Send PrepareParams to hDispatchDriver 1
   889        Set ComProperty of hDispatchDriver 90 OLE_VT_BSTR to value
   890    End_Procedure
   891
   892    
   893    Function ComReuseParameterValuesOnRefresh Returns Boolean
   894        Handle hDispatchDriver
   895        Boolean retVal
   896        Get phDispatchDriver to hDispatchDriver
   897        Get InvokeComMethod of hDispatchDriver 91 OLE_VT_BOOL to retVal
   898        Function_Return retVal
   899    End_Function
   900
   901    
   902    Procedure Set ComReuseParameterValuesOnRefresh Boolean value
   903        Handle hDispatchDriver
   904        Get phDispatchDriver to hDispatchDriver
   905        Send PrepareParams to hDispatchDriver 1
   906        Set ComProperty of hDispatchDriver 91 OLE_VT_BOOL to value
   907    End_Procedure
   908
   909    
   910    Function ComRight Returns Integer
   911        Handle hDispatchDriver
   912        Integer retVal
   913        Get phDispatchDriver to hDispatchDriver
   914        Get InvokeComMethod of hDispatchDriver 92 OLE_VT_I4 to retVal
   915        Function_Return retVal
   916    End_Function
   917
   918    
   919    Function ComSelectionFormula Returns String
   920        Handle hDispatchDriver
   921        String retVal
   922        Get phDispatchDriver to hDispatchDriver
   923        Get InvokeComMethod of hDispatchDriver 94 OLE_VT_BSTR to retVal
   924        Function_Return retVal
   925    End_Function
   926
   927    
   928    Procedure Set ComSelectionFormula String value
   929        Handle hDispatchDriver
   930        Get phDispatchDriver to hDispatchDriver
   931        Send PrepareParams to hDispatchDriver 1
   932        Set ComProperty of hDispatchDriver 94 OLE_VT_BSTR to value
   933    End_Procedure
   934
   935    
   936    Function ComSelectionMode Returns OLEF2CSelectionMode
   937        Handle hDispatchDriver
   938        OLEF2CSelectionMode retVal
   939        Get phDispatchDriver to hDispatchDriver
   940        Get InvokeComMethod of hDispatchDriver 95 OLE_VT_I4 to retVal
   941        Function_Return retVal
   942    End_Function
   943
   944    
   945    Procedure Set ComSelectionMode OLEF2CSelectionMode value
   946        Handle hDispatchDriver
   947        Get phDispatchDriver to hDispatchDriver
   948        Send PrepareParams to hDispatchDriver 1
   949        Set ComProperty of hDispatchDriver 95 OLE_VT_I4 to value
   950    End_Procedure
   951
   952    
   953    Function ComShowCloseButton Returns Boolean
   954        Handle hDispatchDriver
   955        Boolean retVal
   956        Get phDispatchDriver to hDispatchDriver
   957        Get InvokeComMethod of hDispatchDriver 96 OLE_VT_BOOL to retVal
   958        Function_Return retVal
   959    End_Function
   960
   961    
   962    Procedure Set ComShowCloseButton Boolean value
   963        Handle hDispatchDriver
   964        Get phDispatchDriver to hDispatchDriver
   965        Send PrepareParams to hDispatchDriver 1
   966        Set ComProperty of hDispatchDriver 96 OLE_VT_BOOL to value
   967    End_Procedure
   968
   969    
   970    Function ComShowExportButton Returns Boolean
   971        Handle hDispatchDriver
   972        Boolean retVal
   973        Get phDispatchDriver to hDispatchDriver
   974        Get InvokeComMethod of hDispatchDriver 97 OLE_VT_BOOL to retVal
   975        Function_Return retVal
   976    End_Function
   977
   978    
   979    Procedure Set ComShowExportButton Boolean value
   980        Handle hDispatchDriver
   981        Get phDispatchDriver to hDispatchDriver
   982        Send PrepareParams to hDispatchDriver 1
   983        Set ComProperty of hDispatchDriver 97 OLE_VT_BOOL to value
   984    End_Procedure
   985
   986    
   987    Function ComShowGotoPageButton Returns Boolean
   988        Handle hDispatchDriver
   989        Boolean retVal
   990        Get phDispatchDriver to hDispatchDriver
   991        Get InvokeComMethod of hDispatchDriver 98 OLE_VT_BOOL to retVal
   992        Function_Return retVal
   993    End_Function
   994
   995    
   996    Procedure Set ComShowGotoPageButton Boolean value
   997        Handle hDispatchDriver
   998        Get phDispatchDriver to hDispatchDriver
   999        Send PrepareParams to hDispatchDriver 1
  1000        Set ComProperty of hDispatchDriver 98 OLE_VT_BOOL to value
  1001    End_Procedure
  1002
  1003    
  1004    Function ComShowGroupTreeButton Returns Boolean
  1005        Handle hDispatchDriver
  1006        Boolean retVal
  1007        Get phDispatchDriver to hDispatchDriver
  1008        Get InvokeComMethod of hDispatchDriver 99 OLE_VT_BOOL to retVal
  1009        Function_Return retVal
  1010    End_Function
  1011
  1012    
  1013    Procedure Set ComShowGroupTreeButton Boolean value
  1014        Handle hDispatchDriver
  1015        Get phDispatchDriver to hDispatchDriver
  1016        Send PrepareParams to hDispatchDriver 1
  1017        Set ComProperty of hDispatchDriver 99 OLE_VT_BOOL to value
  1018    End_Procedure
  1019
  1020    
  1021    Function ComShowLogo Returns Boolean
  1022        Handle hDispatchDriver
  1023        Boolean retVal
  1024        Get phDispatchDriver to hDispatchDriver
  1025        Get InvokeComMethod of hDispatchDriver 100 OLE_VT_BOOL to retVal
  1026        Function_Return retVal
  1027    End_Function
  1028
  1029    
  1030    Procedure Set ComShowLogo Boolean value
  1031        Handle hDispatchDriver
  1032        Get phDispatchDriver to hDispatchDriver
  1033        Send PrepareParams to hDispatchDriver 1
  1034        Set ComProperty of hDispatchDriver 100 OLE_VT_BOOL to value
  1035    End_Procedure
  1036
  1037    
  1038    Function ComShowPageNavigateButtons Returns Boolean
  1039        Handle hDispatchDriver
  1040        Boolean retVal
  1041        Get phDispatchDriver to hDispatchDriver
  1042        Get InvokeComMethod of hDispatchDriver 101 OLE_VT_BOOL to retVal
  1043        Function_Return retVal
  1044    End_Function
  1045
  1046    
  1047    Procedure Set ComShowPageNavigateButtons Boolean value
  1048        Handle hDispatchDriver
  1049        Get phDispatchDriver to hDispatchDriver
  1050        Send PrepareParams to hDispatchDriver 1
  1051        Set ComProperty of hDispatchDriver 101 OLE_VT_BOOL to value
  1052    End_Procedure
  1053
  1054    
  1055    Function ComShowParameterPanelButton Returns Boolean
  1056        Handle hDispatchDriver
  1057        Boolean retVal
  1058        Get phDispatchDriver to hDispatchDriver
  1059        Get InvokeComMethod of hDispatchDriver 102 OLE_VT_BOOL to retVal
  1060        Function_Return retVal
  1061    End_Function
  1062
  1063    
  1064    Procedure Set ComShowParameterPanelButton Boolean value
  1065        Handle hDispatchDriver
  1066        Get phDispatchDriver to hDispatchDriver
  1067        Send PrepareParams to hDispatchDriver 1
  1068        Set ComProperty of hDispatchDriver 102 OLE_VT_BOOL to value
  1069    End_Procedure
  1070
  1071    
  1072    Function ComShowPrintButton Returns Boolean
  1073        Handle hDispatchDriver
  1074        Boolean retVal
  1075        Get phDispatchDriver to hDispatchDriver
  1076        Get InvokeComMethod of hDispatchDriver 103 OLE_VT_BOOL to retVal
  1077        Function_Return retVal
  1078    End_Function
  1079
  1080    
  1081    Procedure Set ComShowPrintButton Boolean value
  1082        Handle hDispatchDriver
  1083        Get phDispatchDriver to hDispatchDriver
  1084        Send PrepareParams to hDispatchDriver 1
  1085        Set ComProperty of hDispatchDriver 103 OLE_VT_BOOL to value
  1086    End_Procedure
  1087
  1088    
  1089    Function ComShowRefreshButton Returns Boolean
  1090        Handle hDispatchDriver
  1091        Boolean retVal
  1092        Get phDispatchDriver to hDispatchDriver
  1093        Get InvokeComMethod of hDispatchDriver 104 OLE_VT_BOOL to retVal
  1094        Function_Return retVal
  1095    End_Function
  1096
  1097    
  1098    Procedure Set ComShowRefreshButton Boolean value
  1099        Handle hDispatchDriver
  1100        Get phDispatchDriver to hDispatchDriver
  1101        Send PrepareParams to hDispatchDriver 1
  1102        Set ComProperty of hDispatchDriver 104 OLE_VT_BOOL to value
  1103    End_Procedure
  1104
  1105    
  1106    Function ComShowTextSearchButton Returns Boolean
  1107        Handle hDispatchDriver
  1108        Boolean retVal
  1109        Get phDispatchDriver to hDispatchDriver
  1110        Get InvokeComMethod of hDispatchDriver 105 OLE_VT_BOOL to retVal
  1111        Function_Return retVal
  1112    End_Function
  1113
  1114    
  1115    Procedure Set ComShowTextSearchButton Boolean value
  1116        Handle hDispatchDriver
  1117        Get phDispatchDriver to hDispatchDriver
  1118        Send PrepareParams to hDispatchDriver 1
  1119        Set ComProperty of hDispatchDriver 105 OLE_VT_BOOL to value
  1120    End_Procedure
  1121
  1122    
  1123    Function ComShowZoomButton Returns Boolean
  1124        Handle hDispatchDriver
  1125        Boolean retVal
  1126        Get phDispatchDriver to hDispatchDriver
  1127        Get InvokeComMethod of hDispatchDriver 106 OLE_VT_BOOL to retVal
  1128        Function_Return retVal
  1129    End_Function
  1130
  1131    
  1132    Procedure Set ComShowZoomButton Boolean value
  1133        Handle hDispatchDriver
  1134        Get phDispatchDriver to hDispatchDriver
  1135        Send PrepareParams to hDispatchDriver 1
  1136        Set ComProperty of hDispatchDriver 106 OLE_VT_BOOL to value
  1137    End_Procedure
  1138
  1139    
  1140    Function ComTabIndex Returns Integer
  1141        Handle hDispatchDriver
  1142        Integer retVal
  1143        Get phDispatchDriver to hDispatchDriver
  1144        Get InvokeComMethod of hDispatchDriver 109 OLE_VT_I4 to retVal
  1145        Function_Return retVal
  1146    End_Function
  1147
  1148    
  1149    Procedure Set ComTabIndex Integer value
  1150        Handle hDispatchDriver
  1151        Get phDispatchDriver to hDispatchDriver
  1152        Send PrepareParams to hDispatchDriver 1
  1153        Set ComProperty of hDispatchDriver 109 OLE_VT_I4 to value
  1154    End_Procedure
  1155
  1156    
  1157    Function ComTabStop Returns Boolean
  1158        Handle hDispatchDriver
  1159        Boolean retVal
  1160        Get phDispatchDriver to hDispatchDriver
  1161        Get InvokeComMethod of hDispatchDriver 110 OLE_VT_BOOL to retVal
  1162        Function_Return retVal
  1163    End_Function
  1164
  1165    
  1166    Procedure Set ComTabStop Boolean value
  1167        Handle hDispatchDriver
  1168        Get phDispatchDriver to hDispatchDriver
  1169        Send PrepareParams to hDispatchDriver 1
  1170        Set ComProperty of hDispatchDriver 110 OLE_VT_BOOL to value
  1171    End_Procedure
  1172
  1173    
  1174    Function ComTag Returns Variant
  1175        Handle hDispatchDriver
  1176        Variant retVal
  1177        Get phDispatchDriver to hDispatchDriver
  1178        Get InvokeComMethod of hDispatchDriver 111 OLE_VT_VARIANT to retVal
  1179        Function_Return retVal
  1180    End_Function
  1181
  1182    
  1183    Procedure Set ComTag Variant value
  1184        Handle hDispatchDriver
  1185        Get phDispatchDriver to hDispatchDriver
  1186        Send PrepareParams to hDispatchDriver 1
  1187        Set ComProperty of hDispatchDriver 111 OLE_VT_VARIANT to value
  1188    End_Procedure
  1189
  1190    
  1191    Function ComText Returns String
  1192        Handle hDispatchDriver
  1193        String retVal
  1194        Get phDispatchDriver to hDispatchDriver
  1195        Get InvokeComMethod of hDispatchDriver 112 OLE_VT_BSTR to retVal
  1196        Function_Return retVal
  1197    End_Function
  1198
  1199    
  1200    Procedure Set ComText String value
  1201        Handle hDispatchDriver
  1202        Get phDispatchDriver to hDispatchDriver
  1203        Send PrepareParams to hDispatchDriver 1
  1204        Set ComProperty of hDispatchDriver 112 OLE_VT_BSTR to value
  1205    End_Procedure
  1206
  1207    
  1208    Function ComToolPanelView Returns OLEF2CToolPanelViewType
  1209        Handle hDispatchDriver
  1210        OLEF2CToolPanelViewType retVal
  1211        Get phDispatchDriver to hDispatchDriver
  1212        Get InvokeComMethod of hDispatchDriver 113 OLE_VT_I4 to retVal
  1213        Function_Return retVal
  1214    End_Function
  1215
  1216    
  1217    Procedure Set ComToolPanelView OLEF2CToolPanelViewType value
  1218        Handle hDispatchDriver
  1219        Get phDispatchDriver to hDispatchDriver
  1220        Send PrepareParams to hDispatchDriver 1
  1221        Set ComProperty of hDispatchDriver 113 OLE_VT_I4 to value
  1222    End_Procedure
  1223
  1224    
  1225    Function ComToolPanelWidth Returns Integer
  1226        Handle hDispatchDriver
  1227        Integer retVal
  1228        Get phDispatchDriver to hDispatchDriver
  1229        Get InvokeComMethod of hDispatchDriver 114 OLE_VT_I4 to retVal
  1230        Function_Return retVal
  1231    End_Function
  1232
  1233    
  1234    Procedure Set ComToolPanelWidth Integer value
  1235        Handle hDispatchDriver
  1236        Get phDispatchDriver to hDispatchDriver
  1237        Send PrepareParams to hDispatchDriver 1
  1238        Set ComProperty of hDispatchDriver 114 OLE_VT_I4 to value
  1239    End_Procedure
  1240
  1241    
  1242    Function ComTop Returns Integer
  1243        Handle hDispatchDriver
  1244        Integer retVal
  1245        Get phDispatchDriver to hDispatchDriver
  1246        Get InvokeComMethod of hDispatchDriver 115 OLE_VT_I4 to retVal
  1247        Function_Return retVal
  1248    End_Function
  1249
  1250    
  1251    Procedure Set ComTop Integer value
  1252        Handle hDispatchDriver
  1253        Get phDispatchDriver to hDispatchDriver
  1254        Send PrepareParams to hDispatchDriver 1
  1255        Set ComProperty of hDispatchDriver 115 OLE_VT_I4 to value
  1256    End_Procedure
  1257
  1258    
  1259    Function ComUseWaitCursor Returns Boolean
  1260        Handle hDispatchDriver
  1261        Boolean retVal
  1262        Get phDispatchDriver to hDispatchDriver
  1263        Get InvokeComMethod of hDispatchDriver 117 OLE_VT_BOOL to retVal
  1264        Function_Return retVal
  1265    End_Function
  1266
  1267    
  1268    Procedure Set ComUseWaitCursor Boolean value
  1269        Handle hDispatchDriver
  1270        Get phDispatchDriver to hDispatchDriver
  1271        Send PrepareParams to hDispatchDriver 1
  1272        Set ComProperty of hDispatchDriver 117 OLE_VT_BOOL to value
  1273    End_Procedure
  1274
  1275    
  1276    Function ComViewCount Returns Integer
  1277        Handle hDispatchDriver
  1278        Integer retVal
  1279        Get phDispatchDriver to hDispatchDriver
  1280        Get InvokeComMethod of hDispatchDriver 119 OLE_VT_I4 to retVal
  1281        Function_Return retVal
  1282    End_Function
  1283
  1284    
  1285    Function ComViewTimeSelectionFormula Returns String
  1286        Handle hDispatchDriver
  1287        String retVal
  1288        Get phDispatchDriver to hDispatchDriver
  1289        Get InvokeComMethod of hDispatchDriver 120 OLE_VT_BSTR to retVal
  1290        Function_Return retVal
  1291    End_Function
  1292
  1293    
  1294    Procedure Set ComViewTimeSelectionFormula String value
  1295        Handle hDispatchDriver
  1296        Get phDispatchDriver to hDispatchDriver
  1297        Send PrepareParams to hDispatchDriver 1
  1298        Set ComProperty of hDispatchDriver 120 OLE_VT_BSTR to value
  1299    End_Procedure
  1300
  1301    
  1302    Function ComVisible Returns Boolean
  1303        Handle hDispatchDriver
  1304        Boolean retVal
  1305        Get phDispatchDriver to hDispatchDriver
  1306        Get InvokeComMethod of hDispatchDriver 121 OLE_VT_BOOL to retVal
  1307        Function_Return retVal
  1308    End_Function
  1309
  1310    
  1311    Procedure Set ComVisible Boolean value
  1312        Handle hDispatchDriver
  1313        Get phDispatchDriver to hDispatchDriver
  1314        Send PrepareParams to hDispatchDriver 1
  1315        Set ComProperty of hDispatchDriver 121 OLE_VT_BOOL to value
  1316    End_Procedure
  1317
  1318    
  1319    Function ComWidth Returns Integer
  1320        Handle hDispatchDriver
  1321        Integer retVal
  1322        Get phDispatchDriver to hDispatchDriver
  1323        Get InvokeComMethod of hDispatchDriver 122 OLE_VT_I4 to retVal
  1324        Function_Return retVal
  1325    End_Function
  1326
  1327    
  1328    Procedure Set ComWidth Integer value
  1329        Handle hDispatchDriver
  1330        Get phDispatchDriver to hDispatchDriver
  1331        Send PrepareParams to hDispatchDriver 1
  1332        Set ComProperty of hDispatchDriver 122 OLE_VT_I4 to value
  1333    End_Procedure
  1334
  1335    Procedure ComBringToFront
  1336        Handle hDispatchDriver
  1337        Get phDispatchDriver to hDispatchDriver
  1338        Send InvokeComMethod to hDispatchDriver 126 OLE_VT_VOID
  1339    End_Procedure
  1340
  1341    Procedure ComClearSelectedItems
  1342        Handle hDispatchDriver
  1343        Get phDispatchDriver to hDispatchDriver
  1344        Send InvokeComMethod to hDispatchDriver 127 OLE_VT_VOID
  1345    End_Procedure
  1346
  1347    Procedure ComClearSelectedItems_2 Boolean llcurrentViewOnly
  1348        Handle hDispatchDriver
  1349        Get phDispatchDriver to hDispatchDriver
  1350        Send PrepareParams to hDispatchDriver 1
  1351        Send DefineParam to hDispatchDriver OLE_VT_BOOL llcurrentViewOnly
  1352        Send InvokeComMethod to hDispatchDriver 128 OLE_VT_VOID
  1353    End_Procedure
  1354
  1355    Procedure ComCloseView Variant llviewURI
  1356        Handle hDispatchDriver
  1357        Get phDispatchDriver to hDispatchDriver
  1358        Send PrepareParams to hDispatchDriver 1
  1359        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llviewURI
  1360        Send InvokeComMethod to hDispatchDriver 129 OLE_VT_VOID
  1361    End_Procedure
  1362
  1363    Procedure ComCreateControl
  1364        Handle hDispatchDriver
  1365        Get phDispatchDriver to hDispatchDriver
  1366        Send InvokeComMethod to hDispatchDriver 131 OLE_VT_VOID
  1367    End_Procedure
  1368
  1369    Procedure ComDispose
  1370        Handle hDispatchDriver
  1371        Get phDispatchDriver to hDispatchDriver
  1372        Send InvokeComMethod to hDispatchDriver 134 OLE_VT_VOID
  1373    End_Procedure
  1374
  1375    Procedure ComDrillDownOnGroup Variant llgroupInfo
  1376        Handle hDispatchDriver
  1377        Get phDispatchDriver to hDispatchDriver
  1378        Send PrepareParams to hDispatchDriver 1
  1379        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llgroupInfo
  1380        Send InvokeComMethod to hDispatchDriver 137 OLE_VT_VOID
  1381    End_Procedure
  1382
  1383    Function ComEquals Variant llobj Returns Boolean
  1384        Handle hDispatchDriver
  1385        Boolean retVal
  1386        Get phDispatchDriver to hDispatchDriver
  1387        Send PrepareParams to hDispatchDriver 1
  1388        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llobj
  1389        Get InvokeComMethod of hDispatchDriver 139 OLE_VT_BOOL to retVal
  1390        Function_Return retVal
  1391    End_Function
  1392
  1393    Procedure ComExportReport
  1394        Handle hDispatchDriver
  1395        Get phDispatchDriver to hDispatchDriver
  1396        Send InvokeComMethod to hDispatchDriver 140 OLE_VT_VOID
  1397    End_Procedure
  1398
  1399    Function ComFocus Returns Boolean
  1400        Handle hDispatchDriver
  1401        Boolean retVal
  1402        Get phDispatchDriver to hDispatchDriver
  1403        Get InvokeComMethod of hDispatchDriver 142 OLE_VT_BOOL to retVal
  1404        Function_Return retVal
  1405    End_Function
  1406
  1407    Function ComGetCurrentPageNumber Returns Integer
  1408        Handle hDispatchDriver
  1409        Integer retVal
  1410        Get phDispatchDriver to hDispatchDriver
  1411        Get InvokeComMethod of hDispatchDriver 146 OLE_VT_I4 to retVal
  1412        Function_Return retVal
  1413    End_Function
  1414
  1415    Function ComGetCurrentViewName Returns String
  1416        Handle hDispatchDriver
  1417        String retVal
  1418        Get phDispatchDriver to hDispatchDriver
  1419        Get InvokeComMethod of hDispatchDriver 147 OLE_VT_BSTR to retVal
  1420        Function_Return retVal
  1421    End_Function
  1422
  1423    Function ComGetHashCode Returns Integer
  1424        Handle hDispatchDriver
  1425        Integer retVal
  1426        Get phDispatchDriver to hDispatchDriver
  1427        Get InvokeComMethod of hDispatchDriver 148 OLE_VT_I4 to retVal
  1428        Function_Return retVal
  1429    End_Function
  1430
  1431    Function ComGetViewContext Returns Variant
  1432        Handle hDispatchDriver
  1433        Variant retVal
  1434        Get phDispatchDriver to hDispatchDriver
  1435        Get InvokeComMethod of hDispatchDriver 153 OLE_VT_DISPATCH to retVal
  1436        Function_Return retVal
  1437    End_Function
  1438
  1439    Procedure ComHide
  1440        Handle hDispatchDriver
  1441        Get phDispatchDriver to hDispatchDriver
  1442        Send InvokeComMethod to hDispatchDriver 154 OLE_VT_VOID
  1443    End_Procedure
  1444
  1445    Procedure ComInitReportViewer
  1446        Handle hDispatchDriver
  1447        Get phDispatchDriver to hDispatchDriver
  1448        Send InvokeComMethod to hDispatchDriver 155 OLE_VT_VOID
  1449    End_Procedure
  1450
  1451    Procedure ComInvalidate
  1452        Handle hDispatchDriver
  1453        Get phDispatchDriver to hDispatchDriver
  1454        Send InvokeComMethod to hDispatchDriver 156 OLE_VT_VOID
  1455    End_Procedure
  1456
  1457    Procedure ComInvalidate_2 Boolean llinvalidateChildren
  1458        Handle hDispatchDriver
  1459        Get phDispatchDriver to hDispatchDriver
  1460        Send PrepareParams to hDispatchDriver 1
  1461        Send DefineParam to hDispatchDriver OLE_VT_BOOL llinvalidateChildren
  1462        Send InvokeComMethod to hDispatchDriver 157 OLE_VT_VOID
  1463    End_Procedure
  1464
  1465    Procedure ComPerformAutoScale
  1466        Handle hDispatchDriver
  1467        Get phDispatchDriver to hDispatchDriver
  1468        Send InvokeComMethod to hDispatchDriver 164 OLE_VT_VOID
  1469    End_Procedure
  1470
  1471    Procedure ComPerformLayout
  1472        Handle hDispatchDriver
  1473        Get phDispatchDriver to hDispatchDriver
  1474        Send InvokeComMethod to hDispatchDriver 165 OLE_VT_VOID
  1475    End_Procedure
  1476
  1477    Procedure ComPrintReport
  1478        Handle hDispatchDriver
  1479        Get phDispatchDriver to hDispatchDriver
  1480        Send InvokeComMethod to hDispatchDriver 171 OLE_VT_VOID
  1481    End_Procedure
  1482
  1483    Procedure ComRefresh
  1484        Handle hDispatchDriver
  1485        Get phDispatchDriver to hDispatchDriver
  1486        Send InvokeComMethod to hDispatchDriver 174 OLE_VT_VOID
  1487    End_Procedure
  1488
  1489    Procedure ComRefreshReport
  1490        Handle hDispatchDriver
  1491        Get phDispatchDriver to hDispatchDriver
  1492        Send InvokeComMethod to hDispatchDriver 175 OLE_VT_VOID
  1493    End_Procedure
  1494
  1495    Procedure ComResetBackColor
  1496        Handle hDispatchDriver
  1497        Get phDispatchDriver to hDispatchDriver
  1498        Send InvokeComMethod to hDispatchDriver 176 OLE_VT_VOID
  1499    End_Procedure
  1500
  1501    Procedure ComResetBindings
  1502        Handle hDispatchDriver
  1503        Get phDispatchDriver to hDispatchDriver
  1504        Send InvokeComMethod to hDispatchDriver 177 OLE_VT_VOID
  1505    End_Procedure
  1506
  1507    Procedure ComResetCursor
  1508        Handle hDispatchDriver
  1509        Get phDispatchDriver to hDispatchDriver
  1510        Send InvokeComMethod to hDispatchDriver 178 OLE_VT_VOID
  1511    End_Procedure
  1512
  1513    Procedure ComResetFont
  1514        Handle hDispatchDriver
  1515        Get phDispatchDriver to hDispatchDriver
  1516        Send InvokeComMethod to hDispatchDriver 179 OLE_VT_VOID
  1517    End_Procedure
  1518
  1519    Procedure ComResetForeColor
  1520        Handle hDispatchDriver
  1521        Get phDispatchDriver to hDispatchDriver
  1522        Send InvokeComMethod to hDispatchDriver 180 OLE_VT_VOID
  1523    End_Procedure
  1524
  1525    Procedure ComResetImeMode
  1526        Handle hDispatchDriver
  1527        Get phDispatchDriver to hDispatchDriver
  1528        Send InvokeComMethod to hDispatchDriver 181 OLE_VT_VOID
  1529    End_Procedure
  1530
  1531    Procedure ComResetRightToLeft
  1532        Handle hDispatchDriver
  1533        Get phDispatchDriver to hDispatchDriver
  1534        Send InvokeComMethod to hDispatchDriver 182 OLE_VT_VOID
  1535    End_Procedure
  1536
  1537    Procedure ComResetText
  1538        Handle hDispatchDriver
  1539        Get phDispatchDriver to hDispatchDriver
  1540        Send InvokeComMethod to hDispatchDriver 183 OLE_VT_VOID
  1541    End_Procedure
  1542
  1543    Procedure ComResumeLayout
  1544        Handle hDispatchDriver
  1545        Get phDispatchDriver to hDispatchDriver
  1546        Send InvokeComMethod to hDispatchDriver 184 OLE_VT_VOID
  1547    End_Procedure
  1548
  1549    Procedure ComResumeLayout_2 Boolean llPerformLayout
  1550        Handle hDispatchDriver
  1551        Get phDispatchDriver to hDispatchDriver
  1552        Send PrepareParams to hDispatchDriver 1
  1553        Send DefineParam to hDispatchDriver OLE_VT_BOOL llPerformLayout
  1554        Send InvokeComMethod to hDispatchDriver 185 OLE_VT_VOID
  1555    End_Procedure
  1556
  1557    Procedure ComScale Float llratio
  1558        Handle hDispatchDriver
  1559        Get phDispatchDriver to hDispatchDriver
  1560        Send PrepareParams to hDispatchDriver 1
  1561        Send DefineParam to hDispatchDriver OLE_VT_R4 llratio
  1562        Send InvokeComMethod to hDispatchDriver 186 OLE_VT_VOID
  1563    End_Procedure
  1564
  1565    Procedure ComScale_2 Float lldx Float lldy
  1566        Handle hDispatchDriver
  1567        Get phDispatchDriver to hDispatchDriver
  1568        Send PrepareParams to hDispatchDriver 2
  1569        Send DefineParam to hDispatchDriver OLE_VT_R4 lldx
  1570        Send DefineParam to hDispatchDriver OLE_VT_R4 lldy
  1571        Send InvokeComMethod to hDispatchDriver 187 OLE_VT_VOID
  1572    End_Procedure
  1573
  1574    Function ComSearchForText String llText Returns Boolean
  1575        Handle hDispatchDriver
  1576        Boolean retVal
  1577        Get phDispatchDriver to hDispatchDriver
  1578        Send PrepareParams to hDispatchDriver 1
  1579        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
  1580        Get InvokeComMethod of hDispatchDriver 190 OLE_VT_BOOL to retVal
  1581        Function_Return retVal
  1582    End_Function
  1583
  1584    Procedure ComSelect
  1585        Handle hDispatchDriver
  1586        Get phDispatchDriver to hDispatchDriver
  1587        Send InvokeComMethod to hDispatchDriver 191 OLE_VT_VOID
  1588    End_Procedure
  1589
  1590    Procedure ComSendToBack
  1591        Handle hDispatchDriver
  1592        Get phDispatchDriver to hDispatchDriver
  1593        Send InvokeComMethod to hDispatchDriver 193 OLE_VT_VOID
  1594    End_Procedure
  1595
  1596    Procedure ComSetAutoScrollMargin Integer llX Integer llY
  1597        Handle hDispatchDriver
  1598        Get phDispatchDriver to hDispatchDriver
  1599        Send PrepareParams to hDispatchDriver 2
  1600        Send DefineParam to hDispatchDriver OLE_VT_I4 llX
  1601        Send DefineParam to hDispatchDriver OLE_VT_I4 llY
  1602        Send InvokeComMethod to hDispatchDriver 194 OLE_VT_VOID
  1603    End_Procedure
  1604
  1605    Procedure ComSetBounds Integer llX Integer llY Integer llWidth Integer llHeight
  1606        Handle hDispatchDriver
  1607        Get phDispatchDriver to hDispatchDriver
  1608        Send PrepareParams to hDispatchDriver 4
  1609        Send DefineParam to hDispatchDriver OLE_VT_I4 llX
  1610        Send DefineParam to hDispatchDriver OLE_VT_I4 llY
  1611        Send DefineParam to hDispatchDriver OLE_VT_I4 llWidth
  1612        Send DefineParam to hDispatchDriver OLE_VT_I4 llHeight
  1613        Send InvokeComMethod to hDispatchDriver 195 OLE_VT_VOID
  1614    End_Procedure
  1615
  1616    Procedure ComSetProductLocale Integer llLCID
  1617        Handle hDispatchDriver
  1618        Get phDispatchDriver to hDispatchDriver
  1619        Send PrepareParams to hDispatchDriver 1
  1620        Send DefineParam to hDispatchDriver OLE_VT_I4 llLCID
  1621        Send InvokeComMethod to hDispatchDriver 197 OLE_VT_VOID
  1622    End_Procedure
  1623
  1624    Procedure ComSetProductLocale_2 String lllangCode
  1625        Handle hDispatchDriver
  1626        Get phDispatchDriver to hDispatchDriver
  1627        Send PrepareParams to hDispatchDriver 1
  1628        Send DefineParam to hDispatchDriver OLE_VT_BSTR lllangCode
  1629        Send InvokeComMethod to hDispatchDriver 198 OLE_VT_VOID
  1630    End_Procedure
  1631
  1632    Procedure ComShow
  1633        Handle hDispatchDriver
  1634        Get phDispatchDriver to hDispatchDriver
  1635        Send InvokeComMethod to hDispatchDriver 200 OLE_VT_VOID
  1636    End_Procedure
  1637
  1638    Procedure ComShowFirstPage
  1639        Handle hDispatchDriver
  1640        Get phDispatchDriver to hDispatchDriver
  1641        Send InvokeComMethod to hDispatchDriver 201 OLE_VT_VOID
  1642    End_Procedure
  1643
  1644    Procedure ComShowGroupTree
  1645        Handle hDispatchDriver
  1646        Get phDispatchDriver to hDispatchDriver
  1647        Send InvokeComMethod to hDispatchDriver 202 OLE_VT_VOID
  1648    End_Procedure
  1649
  1650    Procedure ComShowLastPage
  1651        Handle hDispatchDriver
  1652        Get phDispatchDriver to hDispatchDriver
  1653        Send InvokeComMethod to hDispatchDriver 203 OLE_VT_VOID
  1654    End_Procedure
  1655
  1656    Procedure ComShowNextPage
  1657        Handle hDispatchDriver
  1658        Get phDispatchDriver to hDispatchDriver
  1659        Send InvokeComMethod to hDispatchDriver 204 OLE_VT_VOID
  1660    End_Procedure
  1661
  1662    Procedure ComShowNthPage Integer llPageNumber
  1663        Handle hDispatchDriver
  1664        Get phDispatchDriver to hDispatchDriver
  1665        Send PrepareParams to hDispatchDriver 1
  1666        Send DefineParam to hDispatchDriver OLE_VT_I4 llPageNumber
  1667        Send InvokeComMethod to hDispatchDriver 205 OLE_VT_VOID
  1668    End_Procedure
  1669
  1670    Procedure ComShowPreviousPage
  1671        Handle hDispatchDriver
  1672        Get phDispatchDriver to hDispatchDriver
  1673        Send InvokeComMethod to hDispatchDriver 206 OLE_VT_VOID
  1674    End_Procedure
  1675
  1676    Procedure ComShowProgressAnimation Boolean llEnabled
  1677        Handle hDispatchDriver
  1678        Get phDispatchDriver to hDispatchDriver
  1679        Send PrepareParams to hDispatchDriver 1
  1680        Send DefineParam to hDispatchDriver OLE_VT_BOOL llEnabled
  1681        Send InvokeComMethod to hDispatchDriver 207 OLE_VT_VOID
  1682    End_Procedure
  1683
  1684    Procedure ComSuspendLayout
  1685        Handle hDispatchDriver
  1686        Get phDispatchDriver to hDispatchDriver
  1687        Send InvokeComMethod to hDispatchDriver 208 OLE_VT_VOID
  1688    End_Procedure
  1689
  1690    
  1691    Function ComToString Returns String
  1692        Handle hDispatchDriver
  1693        String retVal
  1694        Get phDispatchDriver to hDispatchDriver
  1695        Get InvokeComMethod of hDispatchDriver 209 OLE_VT_BSTR to retVal
  1696        Function_Return retVal
  1697    End_Function
  1698
  1699    Procedure ComUpdate
  1700        Handle hDispatchDriver
  1701        Get phDispatchDriver to hDispatchDriver
  1702        Send InvokeComMethod to hDispatchDriver 210 OLE_VT_VOID
  1703    End_Procedure
  1704
  1705    Function ComValidate Returns Boolean
  1706        Handle hDispatchDriver
  1707        Boolean retVal
  1708        Get phDispatchDriver to hDispatchDriver
  1709        Get InvokeComMethod of hDispatchDriver 211 OLE_VT_BOOL to retVal
  1710        Function_Return retVal
  1711    End_Function
  1712
  1713    Function ComValidate_2 Boolean llcheckAutoValidate Returns Boolean
  1714        Handle hDispatchDriver
  1715        Boolean retVal
  1716        Get phDispatchDriver to hDispatchDriver
  1717        Send PrepareParams to hDispatchDriver 1
  1718        Send DefineParam to hDispatchDriver OLE_VT_BOOL llcheckAutoValidate
  1719        Get InvokeComMethod of hDispatchDriver 212 OLE_VT_BOOL to retVal
  1720        Function_Return retVal
  1721    End_Function
  1722
  1723    Function ComValidateChildren Returns Boolean
  1724        Handle hDispatchDriver
  1725        Boolean retVal
  1726        Get phDispatchDriver to hDispatchDriver
  1727        Get InvokeComMethod of hDispatchDriver 213 OLE_VT_BOOL to retVal
  1728        Function_Return retVal
  1729    End_Function
  1730
  1731    Procedure ComZoom Integer llZoomLevel
  1732        Handle hDispatchDriver
  1733        Get phDispatchDriver to hDispatchDriver
  1734        Send PrepareParams to hDispatchDriver 1
  1735        Send DefineParam to hDispatchDriver OLE_VT_I4 llZoomLevel
  1736        Send InvokeComMethod to hDispatchDriver 215 OLE_VT_VOID
  1737    End_Procedure
  1738End_Class
  1739
  1740Class cFlex2CrystalIActiveXReportViewerEvents is a Mixin
  1741
  1742    
  1743    Procedure OnComAutoSizeChanged
  1744    End_Procedure
  1745
  1746    
  1747    Procedure OnComAutoValidateChanged
  1748    End_Procedure
  1749
  1750    
  1751    Procedure OnComBackColorChanged
  1752    End_Procedure
  1753
  1754    
  1755    Procedure OnComBackgroundImageChanged
  1756    End_Procedure
  1757
  1758    
  1759    Procedure OnComBackgroundImageLayoutChanged
  1760    End_Procedure
  1761
  1762    
  1763    Procedure OnComBindingContextChanged
  1764    End_Procedure
  1765
  1766    
  1767    Procedure OnComCausesValidationChanged
  1768    End_Procedure
  1769
  1770    
  1771    Procedure OnComChangeUICues Integer llChanged Boolean llChangeFocus Boolean llChangeKeyboard Boolean llShowFocus Boolean llShowKeyboard
  1772    End_Procedure
  1773
  1774    
  1775    Procedure OnComClick
  1776    End_Procedure
  1777
  1778    
  1779    Procedure OnComClickPage Boolean llHandled Variant llObjectInfo
  1780    End_Procedure
  1781
  1782    
  1783    Procedure OnComClientSizeChanged
  1784    End_Procedure
  1785
  1786    
  1787    Procedure OnComContextMenuChanged
  1788    End_Procedure
  1789
  1790    
  1791    Procedure OnComContextMenuStripChanged
  1792    End_Procedure
  1793
  1794    
  1795    Procedure OnComControlAdded
  1796    End_Procedure
  1797
  1798    
  1799    Procedure OnComControlRemoved
  1800    End_Procedure
  1801
  1802    
  1803    Procedure OnComCursorChanged
  1804    End_Procedure
  1805
  1806    
  1807    Procedure OnComDisposed
  1808    End_Procedure
  1809
  1810    
  1811    Procedure OnComDockChanged
  1812    End_Procedure
  1813
  1814    
  1815    Procedure OnComDoubleClick
  1816    End_Procedure
  1817
  1818    
  1819    Procedure OnComDoubleClickPage Boolean llHandled Variant llObjectInfo
  1820    End_Procedure
  1821
  1822    
  1823    Procedure OnComDragDrop Integer llAllowedEffect Integer llEffect Integer llKeyState Integer llX Integer llY
  1824    End_Procedure
  1825
  1826    
  1827    Procedure OnComDragEnter Integer llAllowedEffect Integer llEffect Integer llKeyState Integer llX Integer llY
  1828    End_Procedure
  1829
  1830    
  1831    Procedure OnComDragLeave
  1832    End_Procedure
  1833
  1834    
  1835    Procedure OnComDragOver Integer llAllowedEffect Integer llEffect Integer llKeyState Integer llX Integer llY
  1836    End_Procedure
  1837
  1838    
  1839    Procedure OnComDrill Short llCurrentGroupLevel String llCurrentGroupName String llCurrentGroupNamePath String llCurrentGroupPath Boolean llHandled Short llNewGroupLevel String llNewGroupName String llNewGroupNamePath String llNewGroupPath
  1840    End_Procedure
  1841
  1842    
  1843    Procedure OnComDrillDownSubreport String llCurrentSubreportName Integer llCurrentSubreportPageNumber Boolean llHandled String llNewSubreportName Integer llNewSubreportPageNumber
  1844    End_Procedure
  1845
  1846    
  1847    Procedure OnComEnabledChanged
  1848    End_Procedure
  1849
  1850    
  1851    Procedure OnComEnter
  1852    End_Procedure
  1853
  1854    
  1855    Procedure OnComError Boolean llHandled Variant llUserData
  1856    End_Procedure
  1857
  1858    
  1859    Procedure OnComFontChanged
  1860    End_Procedure
  1861
  1862    
  1863    Procedure OnComForeColorChanged
  1864    End_Procedure
  1865
  1866    
  1867    Procedure OnComGiveFeedback Integer llEffect Boolean llUseDefaultCursors
  1868    End_Procedure
  1869
  1870    
  1871    Procedure OnComGotFocus
  1872    End_Procedure
  1873
  1874    
  1875    Procedure OnComHandleCreated
  1876    End_Procedure
  1877
  1878    
  1879    Procedure OnComHandleDestroyed
  1880    End_Procedure
  1881
  1882    
  1883    Procedure OnComHandleException Boolean llHandled Variant llUserData
  1884    End_Procedure
  1885
  1886    
  1887    Procedure OnComHelpRequested Boolean llHandled
  1888    End_Procedure
  1889
  1890    
  1891    Procedure OnComImeModeChanged
  1892    End_Procedure
  1893
  1894    
  1895    Procedure OnComInvalidated
  1896    End_Procedure
  1897
  1898    
  1899    Procedure OnComKeyDown Boolean llAlt Boolean llControl Boolean llHandled Integer llKeyCode Integer llKeyData Integer llKeyValue Integer llModifiers Boolean llShift Boolean llSuppressKeyPress
  1900    End_Procedure
  1901
  1902    
  1903    Procedure OnComKeyPress Boolean llHandled UShort llKeyChar
  1904    End_Procedure
  1905
  1906    
  1907    Procedure OnComKeyUp Boolean llAlt Boolean llControl Boolean llHandled Integer llKeyCode Integer llKeyData Integer llKeyValue Integer llModifiers Boolean llShift Boolean llSuppressKeyPress
  1908    End_Procedure
  1909
  1910    
  1911    Procedure OnComLayout String llAffectedProperty
  1912    End_Procedure
  1913
  1914    
  1915    Procedure OnComLeave
  1916    End_Procedure
  1917
  1918    
  1919    Procedure OnComload
  1920    End_Procedure
  1921
  1922    
  1923    Procedure OnComLocationChanged
  1924    End_Procedure
  1925
  1926    
  1927    Procedure OnComLostFocus
  1928    End_Procedure
  1929
  1930    
  1931    Procedure OnComMarginChanged
  1932    End_Procedure
  1933
  1934    
  1935    Procedure OnComMouseCaptureChanged
  1936    End_Procedure
  1937
  1938    
  1939    Procedure OnComMouseClick Integer llButton Integer llClicks Integer llDelta Integer llX Integer llY
  1940    End_Procedure
  1941
  1942    
  1943    Procedure OnComMouseDoubleClick Integer llButton Integer llClicks Integer llDelta Integer llX Integer llY
  1944    End_Procedure
  1945
  1946    
  1947    Procedure OnComMouseDown Integer llButton Integer llClicks Integer llDelta Integer llX Integer llY
  1948    End_Procedure
  1949
  1950    
  1951    Procedure OnComMouseEnter
  1952    End_Procedure
  1953
  1954    
  1955    Procedure OnComMouseHover
  1956    End_Procedure
  1957
  1958    
  1959    Procedure OnComMouseLeave
  1960    End_Procedure
  1961
  1962    
  1963    Procedure OnComMouseMove Integer llButton Integer llClicks Integer llDelta Integer llX Integer llY
  1964    End_Procedure
  1965
  1966    
  1967    Procedure OnComMouseUp Integer llButton Integer llClicks Integer llDelta Integer llX Integer llY
  1968    End_Procedure
  1969
  1970    
  1971    Procedure OnComMouseWheel Integer llButton Integer llClicks Integer llDelta Integer llX Integer llY
  1972    End_Procedure
  1973
  1974    
  1975    Procedure OnComMove
  1976    End_Procedure
  1977
  1978    
  1979    Procedure OnComNavigate Integer llCurrentPageNumber Boolean llHandled Integer llNewPageNumber
  1980    End_Procedure
  1981
  1982    
  1983    Procedure OnComPaddingChanged
  1984    End_Procedure
  1985
  1986    
  1987    Procedure OnComPageChanged
  1988    End_Procedure
  1989
  1990    
  1991    Procedure OnComPaint
  1992    End_Procedure
  1993
  1994    
  1995    Procedure OnComParentChanged
  1996    End_Procedure
  1997
  1998    
  1999    Procedure OnComPreviewKeyDown Boolean llAlt Boolean llControl Boolean llIsInputKey Integer llKeyCode Integer llKeyData Integer llKeyValue Integer llModifiers Boolean llShift
  2000    End_Procedure
  2001
  2002    
  2003    Procedure OnComQueryAccessibilityHelp String llHelpKeyword String llHelpNamespace String llHelpString
  2004    End_Procedure
  2005
  2006    
  2007    Procedure OnComQueryContinueDrag Integer llAction Boolean llEscapePressed Integer llKeyState
  2008    End_Procedure
  2009
  2010    
  2011    Procedure OnComRegionChanged
  2012    End_Procedure
  2013
  2014    
  2015    Procedure OnComReportRefresh Boolean llHandled
  2016    End_Procedure
  2017
  2018    
  2019    Procedure OnComResize
  2020    End_Procedure
  2021
  2022    
  2023    Procedure OnComRightToLeftChanged
  2024    End_Procedure
  2025
  2026    
  2027    Procedure OnComScroll Integer llNewValue Integer llOldValue Integer llScrollOrientation Integer llType
  2028    End_Procedure
  2029
  2030    
  2031    Procedure OnComSearch Integer llDirection Boolean llHandled Integer llPageNumberToBeginSearch String llTextToSearch
  2032    End_Procedure
  2033
  2034    
  2035    Procedure OnComSelectionChanged
  2036    End_Procedure
  2037
  2038    
  2039    Procedure OnComSizeChanged
  2040    End_Procedure
  2041
  2042    
  2043    Procedure OnComStyleChanged
  2044    End_Procedure
  2045
  2046    
  2047    Procedure OnComSystemColorsChanged
  2048    End_Procedure
  2049
  2050    
  2051    Procedure OnComTabIndexChanged
  2052    End_Procedure
  2053
  2054    
  2055    Procedure OnComTabStopChanged
  2056    End_Procedure
  2057
  2058    
  2059    Procedure OnComTextChanged
  2060    End_Procedure
  2061
  2062    
  2063    Procedure OnComValidated
  2064    End_Procedure
  2065
  2066    
  2067    Procedure OnComValidating Boolean llCancel
  2068    End_Procedure
  2069
  2070    
  2071    Procedure OnComViewChanged
  2072    End_Procedure
  2073
  2074    
  2075    Procedure OnComViewZoom Integer llCurrentZoomFactor Boolean llHandled Integer llNewZoomFactor
  2076    End_Procedure
  2077
  2078    
  2079    Procedure OnComVisibleChanged
  2080    End_Procedure
  2081
  2082    
  2083    Procedure RegisterComEvents
  2084        Send RegisterComEvent 1 msg_OnComAutoSizeChanged
  2085        Send RegisterComEvent 2 msg_OnComAutoValidateChanged
  2086        Send RegisterComEvent 3 msg_OnComBackColorChanged
  2087        Send RegisterComEvent 4 msg_OnComBackgroundImageChanged
  2088        Send RegisterComEvent 5 msg_OnComBackgroundImageLayoutChanged
  2089        Send RegisterComEvent 6 msg_OnComBindingContextChanged
  2090        Send RegisterComEvent 7 msg_OnComCausesValidationChanged
  2091        Send RegisterComEvent 8 msg_OnComChangeUICues
  2092        Send RegisterComEvent 9 msg_OnComClick
  2093        Send RegisterComEvent 10 msg_OnComClickPage
  2094        Send RegisterComEvent 11 msg_OnComClientSizeChanged
  2095        Send RegisterComEvent 12 msg_OnComContextMenuChanged
  2096        Send RegisterComEvent 13 msg_OnComContextMenuStripChanged
  2097        Send RegisterComEvent 14 msg_OnComControlAdded
  2098        Send RegisterComEvent 15 msg_OnComControlRemoved
  2099        Send RegisterComEvent 16 msg_OnComCursorChanged
  2100        Send RegisterComEvent 17 msg_OnComDisposed
  2101        Send RegisterComEvent 18 msg_OnComDockChanged
  2102        Send RegisterComEvent 19 msg_OnComDoubleClick
  2103        Send RegisterComEvent 20 msg_OnComDoubleClickPage
  2104        Send RegisterComEvent 21 msg_OnComDragDrop
  2105        Send RegisterComEvent 22 msg_OnComDragEnter
  2106        Send RegisterComEvent 23 msg_OnComDragLeave
  2107        Send RegisterComEvent 24 msg_OnComDragOver
  2108        Send RegisterComEvent 25 msg_OnComDrill
  2109        Send RegisterComEvent 26 msg_OnComDrillDownSubreport
  2110        Send RegisterComEvent 27 msg_OnComEnabledChanged
  2111        Send RegisterComEvent 28 msg_OnComEnter
  2112        Send RegisterComEvent 29 msg_OnComError
  2113        Send RegisterComEvent 30 msg_OnComFontChanged
  2114        Send RegisterComEvent 31 msg_OnComForeColorChanged
  2115        Send RegisterComEvent 32 msg_OnComGiveFeedback
  2116        Send RegisterComEvent 33 msg_OnComGotFocus
  2117        Send RegisterComEvent 34 msg_OnComHandleCreated
  2118        Send RegisterComEvent 35 msg_OnComHandleDestroyed
  2119        Send RegisterComEvent 36 msg_OnComHandleException
  2120        Send RegisterComEvent 37 msg_OnComHelpRequested
  2121        Send RegisterComEvent 38 msg_OnComImeModeChanged
  2122        Send RegisterComEvent 39 msg_OnComInvalidated
  2123        Send RegisterComEvent 40 msg_OnComKeyDown
  2124        Send RegisterComEvent 41 msg_OnComKeyPress
  2125        Send RegisterComEvent 42 msg_OnComKeyUp
  2126        Send RegisterComEvent 43 msg_OnComLayout
  2127        Send RegisterComEvent 44 msg_OnComLeave
  2128        Send RegisterComEvent 45 msg_OnComload
  2129        Send RegisterComEvent 46 msg_OnComLocationChanged
  2130        Send RegisterComEvent 47 msg_OnComLostFocus
  2131        Send RegisterComEvent 48 msg_OnComMarginChanged
  2132        Send RegisterComEvent 49 msg_OnComMouseCaptureChanged
  2133        Send RegisterComEvent 50 msg_OnComMouseClick
  2134        Send RegisterComEvent 51 msg_OnComMouseDoubleClick
  2135        Send RegisterComEvent 52 msg_OnComMouseDown
  2136        Send RegisterComEvent 53 msg_OnComMouseEnter
  2137        Send RegisterComEvent 54 msg_OnComMouseHover
  2138        Send RegisterComEvent 55 msg_OnComMouseLeave
  2139        Send RegisterComEvent 56 msg_OnComMouseMove
  2140        Send RegisterComEvent 57 msg_OnComMouseUp
  2141        Send RegisterComEvent 58 msg_OnComMouseWheel
  2142        Send RegisterComEvent 59 msg_OnComMove
  2143        Send RegisterComEvent 60 msg_OnComNavigate
  2144        Send RegisterComEvent 61 msg_OnComPaddingChanged
  2145        Send RegisterComEvent 62 msg_OnComPageChanged
  2146        Send RegisterComEvent 63 msg_OnComPaint
  2147        Send RegisterComEvent 64 msg_OnComParentChanged
  2148        Send RegisterComEvent 65 msg_OnComPreviewKeyDown
  2149        Send RegisterComEvent 66 msg_OnComQueryAccessibilityHelp
  2150        Send RegisterComEvent 67 msg_OnComQueryContinueDrag
  2151        Send RegisterComEvent 68 msg_OnComRegionChanged
  2152        Send RegisterComEvent 69 msg_OnComReportRefresh
  2153        Send RegisterComEvent 70 msg_OnComResize
  2154        Send RegisterComEvent 71 msg_OnComRightToLeftChanged
  2155        Send RegisterComEvent 72 msg_OnComScroll
  2156        Send RegisterComEvent 73 msg_OnComSearch
  2157        Send RegisterComEvent 74 msg_OnComSelectionChanged
  2158        Send RegisterComEvent 75 msg_OnComSizeChanged
  2159        Send RegisterComEvent 76 msg_OnComStyleChanged
  2160        Send RegisterComEvent 77 msg_OnComSystemColorsChanged
  2161        Send RegisterComEvent 78 msg_OnComTabIndexChanged
  2162        Send RegisterComEvent 79 msg_OnComTabStopChanged
  2163        Send RegisterComEvent 80 msg_OnComTextChanged
  2164        Send RegisterComEvent 81 msg_OnComValidated
  2165        Send RegisterComEvent 82 msg_OnComValidating
  2166        Send RegisterComEvent 83 msg_OnComViewChanged
  2167        Send RegisterComEvent 84 msg_OnComViewZoom
  2168        Send RegisterComEvent 85 msg_OnComVisibleChanged
  2169    End_Procedure
  2170End_Class
  2171
  2172// CoClass
  2173// ProgID: Flex2Crystal.F2CCrystalReportViewer
  2174// CLSID: {9BADE62D-24AA-484A-A3DE-E9BE459F61DA}
  2175
  2176Class cFlex2CrystalActiveXReportViewer is a cComActiveXControl
  2177    Import_Class_Protocol cFlex2CrystalIActiveXReportViewer
  2178    Import_Class_Protocol cFlex2CrystalIActiveXReportViewerEvents
  2179
  2180    Procedure Construct_Object
  2181        // TODO: Make this work everywhere
  2182        Property Boolean pbForceCompatible True
  2183        Forward Send Construct_Object
  2184        Set psProgID to "{9BADE62D-24AA-484A-A3DE-E9BE459F61DA}"
  2185        Set psEventId to "{A8282A22-CD8D-4F8C-90F2-2199A4B1D319}"
  2186        Set peAutoCreate to acDeferredAutoCreate
  2187    End_Procedure
  2188End_Class