Module cCJComSkinFramework.pkg

     1// Visual DataFlex COM proxy classes generated from C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v13.4.2\Bin\Codejock.SkinFramework.v13.4.2.ocx
     2Use FlexCom20.pkg
     3
     4// Changes to Imported package
     5//     OLEXTPxx to XTPxx
     6//     OLExtpxx to xtpxx
     7//     OLESkinFramework to SkinFramework
     8//     OLESTDxxx and OLEXPxxxx to STD/XP
     9//     cCom classes to cCJ
    10//     cCJAutomationObject back to cComAutomationObject
    11//     cCJActiveXControl back to cComActiveXControl
    12//     cCJSkinFramework to cCJComSkinFramework
    13//     Use statements as noted below (classes moved to these files)
    14//     Set classlibrary of all cComAutomation objects to Windows (for class doc)
    15
    16// These have been extracted from this class and moved into seperate packages
    17// because other Codejock classes use these.
    18Use cCJColorManager.pkg     // cCJColorManager
    19
    20Define SkinFrameworkApplyOptions for Integer
    21    Define xtpSkinApplyMetrics for 1
    22    Define xtpSkinApplyFrame for 2
    23    Define xtpSkinApplyColors for 4
    24    Define xtpSkinApplyMenus for 8
    25
    26// CLSID: {AFA0E6A1-28D7-4F2C-87A7-7266367B4655}
    27// Dispatch interface for SkinFramework Control
    28Class cCJ_DSkinFramework is a Mixin
    29
    30    { MethodType=Property DesignTime=False }
    31    Function ComApplyOptions Returns SkinFrameworkApplyOptions
    32        SkinFrameworkApplyOptions retVal
    33        Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
    34        Function_Return retVal
    35    End_Function
    36
    37    { MethodType=Property DesignTime=False }
    38    Procedure Set ComApplyOptions SkinFrameworkApplyOptions value
    39        Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
    40    End_Procedure
    41
    42    { MethodType=Property DesignTime=False }
    43    Function ComAutoApplyNewWindows Returns Boolean
    44        Boolean retVal
    45        Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_BOOL to retVal
    46        Function_Return retVal
    47    End_Function
    48
    49    { MethodType=Property DesignTime=False }
    50    Procedure Set ComAutoApplyNewWindows Boolean value
    51        Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_BOOL to value
    52    End_Procedure
    53
    54    { MethodType=Property DesignTime=False }
    55    Function ComAutoApplyNewThreads Returns Boolean
    56        Boolean retVal
    57        Get ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_BOOL to retVal
    58        Function_Return retVal
    59    End_Function
    60
    61    { MethodType=Property DesignTime=False }
    62    Procedure Set ComAutoApplyNewThreads Boolean value
    63        Set ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_BOOL to value
    64    End_Procedure
    65
    66    Function ComLoadSkin String llResourcePath String llIniFileName Returns Boolean
    67        Handle hDispatchDriver
    68        Boolean retVal
    69        Get phDispatchDriver to hDispatchDriver
    70        Send PrepareParams to hDispatchDriver 2
    71        Send DefineParam to hDispatchDriver OLE_VT_BSTR llResourcePath
    72        Send DefineParam to hDispatchDriver OLE_VT_BSTR llIniFileName
    73        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
    74        Function_Return retVal
    75    End_Function
    76
    77    Procedure ComApplyWindow OLE_HANDLE llhWnd
    78        Handle hDispatchDriver
    79        Get phDispatchDriver to hDispatchDriver
    80        Send PrepareParams to hDispatchDriver 1
    81        Send DefineParam to hDispatchDriver OLE_VT_I4 llhWnd
    82        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
    83    End_Procedure
    84
    85    Procedure ComEnableThemeDialogTexture OLE_HANDLE llhWnd Integer llFlags
    86        Handle hDispatchDriver
    87        Get phDispatchDriver to hDispatchDriver
    88        Send PrepareParams to hDispatchDriver 2
    89        Send DefineParam to hDispatchDriver OLE_VT_I4 llhWnd
    90        Send DefineParam to hDispatchDriver OLE_VT_I4 llFlags
    91        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
    92    End_Procedure
    93
    94    Procedure ComRemoveWindow OLE_HANDLE llhWnd
    95        Handle hDispatchDriver
    96        Get phDispatchDriver to hDispatchDriver
    97        Send PrepareParams to hDispatchDriver 1
    98        Send DefineParam to hDispatchDriver OLE_VT_I4 llhWnd
    99        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
   100    End_Procedure
   101
   102    Procedure ComRemoveAllWindows
   103        Handle hDispatchDriver
   104        Get phDispatchDriver to hDispatchDriver
   105        Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
   106    End_Procedure
   107
   108    Procedure ComAddWindowClass String llClassName String llBaseClassName
   109        Handle hDispatchDriver
   110        Get phDispatchDriver to hDispatchDriver
   111        Send PrepareParams to hDispatchDriver 2
   112        Send DefineParam to hDispatchDriver OLE_VT_BSTR llClassName
   113        Send DefineParam to hDispatchDriver OLE_VT_BSTR llBaseClassName
   114        Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
   115    End_Procedure
   116
   117    Procedure ComRemoveWindowClass String llClassName
   118        Handle hDispatchDriver
   119        Get phDispatchDriver to hDispatchDriver
   120        Send PrepareParams to hDispatchDriver 1
   121        Send DefineParam to hDispatchDriver OLE_VT_BSTR llClassName
   122        Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
   123    End_Procedure
   124
   125    Function ComEnumerateSkinDirectory String llPath Boolean llRecursive Returns Variant
   126        Handle hDispatchDriver
   127        Variant retVal
   128        Get phDispatchDriver to hDispatchDriver
   129        Send PrepareParams to hDispatchDriver 2
   130        Send DefineParam to hDispatchDriver OLE_VT_BSTR llPath
   131        Send DefineParam to hDispatchDriver OLE_VT_BOOL llRecursive
   132        Get InvokeComMethod of hDispatchDriver 11 OLE_VT_DISPATCH to retVal
   133        Function_Return retVal
   134    End_Function
   135
   136    Function ComEnumerateSkinFile String llPath Returns Variant
   137        Handle hDispatchDriver
   138        Variant retVal
   139        Get phDispatchDriver to hDispatchDriver
   140        Send PrepareParams to hDispatchDriver 1
   141        Send DefineParam to hDispatchDriver OLE_VT_BSTR llPath
   142        Get InvokeComMethod of hDispatchDriver 12 OLE_VT_DISPATCH to retVal
   143        Function_Return retVal
   144    End_Function
   145
   146    Function ComGetColor XTPColorManagerColor llIndex Returns OLE_COLOR
   147        Handle hDispatchDriver
   148        OLE_COLOR retVal
   149        Get phDispatchDriver to hDispatchDriver
   150        Send PrepareParams to hDispatchDriver 1
   151        Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
   152        Get InvokeComMethod of hDispatchDriver 14 OLE_VT_I4 to retVal
   153        Function_Return retVal
   154    End_Function
   155
   156    Procedure ComExcludeModule String llModuleName
   157        Handle hDispatchDriver
   158        Get phDispatchDriver to hDispatchDriver
   159        Send PrepareParams to hDispatchDriver 1
   160        Send DefineParam to hDispatchDriver OLE_VT_BSTR llModuleName
   161        Send InvokeComMethod to hDispatchDriver 15 OLE_VT_VOID
   162    End_Procedure
   163
   164    Function ComCreateSchema String llResourcePath String llIniFileName Returns Variant
   165        Handle hDispatchDriver
   166        Variant retVal
   167        Get phDispatchDriver to hDispatchDriver
   168        Send PrepareParams to hDispatchDriver 2
   169        Send DefineParam to hDispatchDriver OLE_VT_BSTR llResourcePath
   170        Send DefineParam to hDispatchDriver OLE_VT_BSTR llIniFileName
   171        Get InvokeComMethod of hDispatchDriver 16 OLE_VT_DISPATCH to retVal
   172        Function_Return retVal
   173    End_Function
   174
   175    Procedure ComSetWindowTheme OLE_HANDLE llhWnd Variant llSchema
   176        Handle hDispatchDriver
   177        Get phDispatchDriver to hDispatchDriver
   178        Send PrepareParams to hDispatchDriver 2
   179        Send DefineParam to hDispatchDriver OLE_VT_I4 llhWnd
   180        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llSchema
   181        Send InvokeComMethod to hDispatchDriver 17 OLE_VT_VOID
   182    End_Procedure
   183
   184    Procedure ComAboutBox
   185        Handle hDispatchDriver
   186        Get phDispatchDriver to hDispatchDriver
   187        Send InvokeComMethod to hDispatchDriver -552 OLE_VT_VOID
   188    End_Procedure
   189End_Class
   190
   191// CLSID: {40217CB8-4463-4030-B324-AC6A8075FEC8}
   192// Event interface for SkinFramework Control
   193Class cCJ_DSkinFrameworkEvents is a Mixin
   194
   195    { Visibility=Private }
   196    Procedure RegisterComEvents
   197    End_Procedure
   198End_Class
   199
   200// CoClass
   201// ProgID: Codejock.SkinFramework.13.4.2
   202// CLSID: {0AC8C876-4D3F-4C70-AE52-311A1BD92C0D}
   203// SkinFramework Control
   204{ CLSID="{0AC8C876-4D3F-4C70-AE52-311A1BD92C0D}" }
   205Class cCJComSkinFramework is a cComActiveXControl
   206    Import_Class_Protocol cCJ_DSkinFramework
   207    Import_Class_Protocol cCJ_DSkinFrameworkEvents
   208
   209    Procedure Construct_Object
   210        Forward Send Construct_Object
   211        Set psProgID to "{0AC8C876-4D3F-4C70-AE52-311A1BD92C0D}"
   212        Set psEventId to "{40217CB8-4463-4030-B324-AC6A8075FEC8}"
   213        Set psLicenseKey to ("Skin Framework Control Copyright (c) 2003-2010 Codejock Software"+ Character(13)+ Character(10)+;
   214                             "PRODUCT-ID: Codejock.SkinFramework.ActiveX.v13.4"+ Character(13)+ Character(10)+;
   215                             "VALIDATE-CODE: GGE-OLD-QQR-EJS")
   216        Set peAutoCreate to acAutoCreate
   217    End_Procedure
   218End_Class
   219
   220// CLSID: {6C4C52CB-F004-4F7B-90C9-E832E09C1762}
   221// SkinFramework Global Settings
   222Class cCJISkinFrameworkGlobalSettings is a Mixin
   223
   224    { MethodType=Property DesignTime=False }
   225    Function ComLicense Returns String
   226        String retVal
   227        Get ComProperty of (phDispatchDriver(Self)) 101 OLE_VT_BSTR to retVal
   228        Function_Return retVal
   229    End_Function
   230
   231    { MethodType=Property DesignTime=False }
   232    Procedure Set ComLicense String value
   233        Set ComProperty of (phDispatchDriver(Self)) 101 OLE_VT_BSTR to value
   234    End_Procedure
   235
   236    { MethodType=Property DesignTime=False }
   237    Function ComTitle Returns String
   238        String retVal
   239        Get ComProperty of (phDispatchDriver(Self)) 102 OLE_VT_BSTR to retVal
   240        Function_Return retVal
   241    End_Function
   242
   243    { MethodType=Property DesignTime=False }
   244    Procedure Set ComTitle String value
   245        Set ComProperty of (phDispatchDriver(Self)) 102 OLE_VT_BSTR to value
   246    End_Procedure
   247
   248    { MethodType=Property DesignTime=False }
   249    Function ComVersion Returns String
   250        Handle hDispatchDriver
   251        String retVal
   252        Get phDispatchDriver to hDispatchDriver
   253        Get InvokeComMethod of hDispatchDriver 104 OLE_VT_BSTR to retVal
   254        Function_Return retVal
   255    End_Function
   256
   257    { MethodType=Property DesignTime=False }
   258    Function ComUnicode Returns Boolean
   259        Handle hDispatchDriver
   260        Boolean retVal
   261        Get phDispatchDriver to hDispatchDriver
   262        Get InvokeComMethod of hDispatchDriver 105 OLE_VT_BOOL to retVal
   263        Function_Return retVal
   264    End_Function
   265
   266    { MethodType=Property DesignTime=False }
   267    Function ComOcxPath Returns String
   268        Handle hDispatchDriver
   269        String retVal
   270        Get phDispatchDriver to hDispatchDriver
   271        Get InvokeComMethod of hDispatchDriver 106 OLE_VT_BSTR to retVal
   272        Function_Return retVal
   273    End_Function
   274End_Class
   275
   276// CoClass
   277// ProgID: Codejock.SkinFrameworkGlobalSettings.13.4.2
   278// CLSID: {2DB63D4B-A849-4ABE-9A36-5502D91DD5CC}
   279// SkinFramework Global Settings
   280{ ClassLibrary=Windows }
   281Class cCJSkinFrameworkGlobalSettings is a cComAutomationObject
   282    Import_Class_Protocol cCJISkinFrameworkGlobalSettings
   283
   284    Procedure Construct_Object
   285        Forward Send Construct_Object
   286        Set psProgID to "{2DB63D4B-A849-4ABE-9A36-5502D91DD5CC}"
   287        Set peAutoCreate to acNoAutoCreate
   288    End_Procedure
   289End_Class
   290
   291// CLSID: {B75E8ED9-260A-4DB7-973C-46FB1941D32D}
   292{ ClassLibrary=Windows }
   293Class cCJSkinIniFile is a cComAutomationObject
   294
   295    { MethodType=Property DesignTime=False }
   296    Function ComColorScheme Returns String
   297        String retVal
   298        Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to retVal
   299        Function_Return retVal
   300    End_Function
   301
   302    { MethodType=Property DesignTime=False }
   303    Procedure Set ComColorScheme String value
   304        Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to value
   305    End_Procedure
   306
   307    { MethodType=Property DesignTime=False }
   308    Function ComFontSize Returns String
   309        String retVal
   310        Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to retVal
   311        Function_Return retVal
   312    End_Function
   313
   314    { MethodType=Property DesignTime=False }
   315    Procedure Set ComFontSize String value
   316        Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to value
   317    End_Procedure
   318
   319    { MethodType=Property DesignTime=False }
   320    Function ComIniFileName Returns String
   321        String retVal
   322        Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_BSTR to retVal
   323        Function_Return retVal
   324    End_Function
   325
   326    { MethodType=Property DesignTime=False }
   327    Procedure Set ComIniFileName String value
   328        Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_BSTR to value
   329    End_Procedure
   330End_Class
   331
   332// CLSID: {B54495FA-39C6-4B0D-B494-8A1A80663CCD}
   333{ ClassLibrary=Windows }
   334Class cCJSkinDescription is a cComAutomationObject
   335
   336    { MethodType=Property DesignTime=False }
   337    Function ComName Returns String
   338        String retVal
   339        Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to retVal
   340        Function_Return retVal
   341    End_Function
   342
   343    { MethodType=Property DesignTime=False }
   344    Procedure Set ComName String value
   345        Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to value
   346    End_Procedure
   347
   348    { MethodType=Property DesignTime=False }
   349    Function ComPath Returns String
   350        String retVal
   351        Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to retVal
   352        Function_Return retVal
   353    End_Function
   354
   355    { MethodType=Property DesignTime=False }
   356    Procedure Set ComPath String value
   357        Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to value
   358    End_Procedure
   359
   360    { MethodType=Property DesignTime=False }
   361    Function ComCount Returns Integer
   362        Handle hDispatchDriver
   363        Integer retVal
   364        Get phDispatchDriver to hDispatchDriver
   365        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
   366        Function_Return retVal
   367    End_Function
   368
   369    { MethodType=Property DesignTime=False }
   370    Function ComIniFile Integer llIndex Returns Variant
   371        Handle hDispatchDriver
   372        Variant retVal
   373        Get phDispatchDriver to hDispatchDriver
   374        Send PrepareParams to hDispatchDriver 1
   375        Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
   376        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
   377        Function_Return retVal
   378    End_Function
   379
   380    { MethodType=Property DesignTime=False }
   381    Function Com_NewEnum Returns Variant
   382        Handle hDispatchDriver
   383        Variant retVal
   384        Get phDispatchDriver to hDispatchDriver
   385        Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
   386        Function_Return retVal
   387    End_Function
   388End_Class
   389
   390// CLSID: {F41BFB9D-DC0A-4EC6-B6D6-BD4CF9D4B775}
   391{ ClassLibrary=Windows }
   392Class cCJSkinDescriptions is a cComAutomationObject
   393
   394    { MethodType=Property DesignTime=False }
   395    Function ComCount Returns Integer
   396        Handle hDispatchDriver
   397        Integer retVal
   398        Get phDispatchDriver to hDispatchDriver
   399        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
   400        Function_Return retVal
   401    End_Function
   402
   403    { MethodType=Property DesignTime=False }
   404    Function ComSkin Integer llIndex Returns Variant
   405        Handle hDispatchDriver
   406        Variant retVal
   407        Get phDispatchDriver to hDispatchDriver
   408        Send PrepareParams to hDispatchDriver 1
   409        Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
   410        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
   411        Function_Return retVal
   412    End_Function
   413
   414    { MethodType=Property DesignTime=False }
   415    Function Com_NewEnum Returns Variant
   416        Handle hDispatchDriver
   417        Variant retVal
   418        Get phDispatchDriver to hDispatchDriver
   419        Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
   420        Function_Return retVal
   421    End_Function
   422End_Class
   423
   424// CLSID: {128507E0-C56F-43C0-BCF1-8193B35FE4C4}
   425{ ClassLibrary=Windows }
   426Class cCJSkinSchema is a cComAutomationObject
   427End_Class
   428