Module cCJColorManager.pkg
1// Visual DataFlex COM proxy classes generated from C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v13.4.2\Bin\Codejock.CommandBars.v13.4.2.ocx
2Use FlexCom20.pkg
3
4Define XTPColorManagerColor for Integer
5 Define STDCOLOR_BACKGROUND for 1
6 Define STDCOLOR_ACTIVECAPTION for 2
7 Define STDCOLOR_INACTIVECAPTION for 3
8 Define STDCOLOR_MENU for 4
9 Define STDCOLOR_WINDOW for 5
10 Define STDCOLOR_WINDOWFRAME for 6
11 Define STDCOLOR_MENUTEXT for 7
12 Define STDCOLOR_WINDOWTEXT for 8
13 Define STDCOLOR_CAPTIONTEXT for 9
14 Define STDCOLOR_ACTIVEBORDER for 10
15 Define STDCOLOR_INACTIVEBORDER for 11
16 Define STDCOLOR_APPWORKSPACE for 12
17 Define STDCOLOR_HIGHLIGHT for 13
18 Define STDCOLOR_HIGHLIGHTTEXT for 14
19 Define STDCOLOR_BTNFACE for 15
20 Define STDCOLOR_BTNSHADOW for 16
21 Define STDCOLOR_GRAYTEXT for 17
22 Define STDCOLOR_BTNTEXT for 18
23 Define STDCOLOR_INACTIVECAPTIONTEXT for 19
24 Define STDCOLOR_BTNHIGHLIGHT for 20
25 Define STDCOLOR_3DDKSHADOW for 21
26 Define STDCOLOR_3DLIGHT for 22
27 Define STDCOLOR_INFOTEXT for 23
28 Define STDCOLOR_INFOBK for 24
29 Define STDCOLOR_HOTLIGHT for 26
30 Define STDCOLOR_GRADIENTACTIVECAPTION for 27
31 Define STDCOLOR_GRADIENTINACTIVECAPTION for 28
32 Define XPCOLOR_TOOLBAR_FACE for 30
33 Define XPCOLOR_HIGHLIGHT for 31
34 Define XPCOLOR_HIGHLIGHT_BORDER for 32
35 Define XPCOLOR_HIGHLIGHT_PUSHED for 33
36 Define XPCOLOR_HIGHLIGHT_CHECKED for 36
37 Define XPCOLOR_HIGHLIGHT_CHECKED_BORDER for 37
38 Define XPCOLOR_ICONSHADDOW for 34
39 Define XPCOLOR_GRAYTEXT for 35
40 Define XPCOLOR_TOOLBAR_GRIPPER for 38
41 Define XPCOLOR_SEPARATOR for 39
42 Define XPCOLOR_DISABLED for 40
43 Define XPCOLOR_MENUBAR_FACE for 41
44 Define XPCOLOR_MENUBAR_EXPANDED for 42
45 Define XPCOLOR_MENUBAR_BORDER for 43
46 Define XPCOLOR_MENUBAR_TEXT for 44
47 Define XPCOLOR_HIGHLIGHT_TEXT for 45
48 Define XPCOLOR_TOOLBAR_TEXT for 46
49 Define XPCOLOR_PUSHED_TEXT for 47
50 Define XPCOLOR_TAB_INACTIVE_BACK for 48
51 Define XPCOLOR_TAB_INACTIVE_TEXT for 49
52 Define XPCOLOR_HIGHLIGHT_PUSHED_BORDER for 50
53 Define XPCOLOR_3DFACE for 51
54 Define XPCOLOR_3DSHADOW for 52
55 Define XPCOLOR_FRAME for 54
56 Define XPCOLOR_SPLITTER_FACE for 55
57 Define XPCOLOR_LABEL for 56
58 Define XPCOLOR_STATICFRAME for 57
59
60Define XTPCurrentSystemTheme for Integer
61 // No known theme in use
62 Define xtpSystemThemeUnknown for 0
63 // Blue theme in use
64 Define xtpSystemThemeBlue for 1
65 // Olive theme in use
66 Define xtpSystemThemeOlive for 2
67 // Silver theme in use
68 Define xtpSystemThemeSilver for 3
69 // Silver theme in use
70 Define xtpSystemThemeRoyale for 4
71 // Silver theme in use
72 Define xtpSystemThemeAero for 5
73 // Use OS theme.
74 Define xtpSystemThemeAuto for 6
75
76// CLSID: {63C40CBE-DE43-4B56-BCEB-E14B825CF245}
77Class cCJIColorManager is a Mixin
78
79 { MethodType=Property DesignTime=False }
80 Function ComSystemTheme Returns XTPCurrentSystemTheme
81 XTPCurrentSystemTheme retVal
82 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to retVal
83 Function_Return retVal
84 End_Function
85
86 { MethodType=Property DesignTime=False }
87 Procedure Set ComSystemTheme XTPCurrentSystemTheme value
88 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to value
89 End_Procedure
90
91 { MethodType=Property DesignTime=False }
92 Function ComEnableLunaBlueForRoyaleTheme Returns Boolean
93 Boolean retVal
94 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BOOL to retVal
95 Function_Return retVal
96 End_Function
97
98 { MethodType=Property DesignTime=False }
99 Procedure Set ComEnableLunaBlueForRoyaleTheme Boolean value
100 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BOOL to value
101 End_Procedure
102
103 { MethodType=Property DesignTime=False }
104 Function ComColor XTPColorManagerColor llIndex Returns OLE_COLOR
105 Handle hDispatchDriver
106 OLE_COLOR retVal
107 Get phDispatchDriver to hDispatchDriver
108 Send PrepareParams to hDispatchDriver 1
109 Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
110 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_I4 to retVal
111 Function_Return retVal
112 End_Function
113
114 Procedure ComSetColor XTPColorManagerColor llIndex OLE_COLOR llColor
115 Handle hDispatchDriver
116 Get phDispatchDriver to hDispatchDriver
117 Send PrepareParams to hDispatchDriver 2
118 Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
119 Send DefineParam to hDispatchDriver OLE_VT_I4 llColor
120 Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
121 End_Procedure
122
123 Function ComGetCurrentSystemTheme Returns XTPCurrentSystemTheme
124 Handle hDispatchDriver
125 XTPCurrentSystemTheme retVal
126 Get phDispatchDriver to hDispatchDriver
127 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
128 Function_Return retVal
129 End_Function
130End_Class
131
132// CoClass
133// CLSID: {E232C4DB-8C00-4F05-AF87-9F05BCB55475}
134{ ClassLibrary=Windows }
135Class cCJColorManager is a cComAutomationObject
136 Import_Class_Protocol cCJIColorManager
137
138 Procedure Construct_Object
139 Forward Send Construct_Object
140 Set peAutoCreate to acNoAutoCreate
141 End_Procedure
142End_Class
143
144