Module cCJTooltipContext.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
4// ToolTip Style
5Define XTPToolTipStyle for Integer
6 Define xtpToolTipStandard for 0
7 Define xtpToolTipBalloon for 1
8 Define xtpToolTipOffice for 2
9 Define xtpToolTipRTF for 3
10 Define xtpToolTipLuna for 4
11 Define xtpToolTipOffice2007 for 5
12 Define xtpToolTipHTML for 6
13 Define xtpToolTipMarkup for 7
14
15// ToolTip Icon
16Define XTPToolTipIcon for Integer
17 Define xtpToolTipIconNone for 0
18 Define xtpToolTipIconInfo for 1
19 Define xtpToolTipIconWarning for 2
20 Define xtpToolTipIconError for 3
21
22// CLSID: {ABBB9842-AE6D-46A8-BC77-CEE7D5CE9ED7}
23Class cCJIToolTipContext is a Mixin
24
25 { MethodType=Property DesignTime=False }
26 Function ComStyle Returns XTPToolTipStyle
27 XTPToolTipStyle retVal
28 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
29 Function_Return retVal
30 End_Function
31
32 { MethodType=Property DesignTime=False }
33 Procedure Set ComStyle XTPToolTipStyle value
34 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
35 End_Procedure
36
37 { MethodType=Property DesignTime=False }
38 Function ComMaxTipWidth Returns Integer
39 Integer retVal
40 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to retVal
41 Function_Return retVal
42 End_Function
43
44 { MethodType=Property DesignTime=False }
45 Procedure Set ComMaxTipWidth Integer value
46 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to value
47 End_Procedure
48
49 { MethodType=Property DesignTime=False }
50 Function ComTipBkColor Returns OLE_COLOR
51 OLE_COLOR retVal
52 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to retVal
53 Function_Return retVal
54 End_Function
55
56 { MethodType=Property DesignTime=False }
57 Procedure Set ComTipBkColor OLE_COLOR value
58 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to value
59 End_Procedure
60
61 { MethodType=Property DesignTime=False }
62 Function ComTipTextColor Returns OLE_COLOR
63 OLE_COLOR retVal
64 Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to retVal
65 Function_Return retVal
66 End_Function
67
68 { MethodType=Property DesignTime=False }
69 Procedure Set ComTipTextColor OLE_COLOR value
70 Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to value
71 End_Procedure
72
73 { MethodType=Property DesignTime=False }
74 Function ComFont Returns Variant
75 Variant retVal
76 Get ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to retVal
77 Function_Return retVal
78 End_Function
79
80 { MethodType=Property DesignTime=False }
81 Procedure Set ComFont Variant value
82 Set ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to value
83 End_Procedure
84
85 { MethodType=Property DesignTime=False }
86 Function ComShowOfficeBorder Returns Boolean
87 Boolean retVal
88 Get ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_BOOL to retVal
89 Function_Return retVal
90 End_Function
91
92 { MethodType=Property DesignTime=False }
93 Procedure Set ComShowOfficeBorder Boolean value
94 Set ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_BOOL to value
95 End_Procedure
96
97 { MethodType=Property DesignTime=False }
98 Function ComShowShadow Returns Boolean
99 Boolean retVal
100 Get ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_BOOL to retVal
101 Function_Return retVal
102 End_Function
103
104 { MethodType=Property DesignTime=False }
105 Procedure Set ComShowShadow Boolean value
106 Set ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_BOOL to value
107 End_Procedure
108
109 Procedure ComShowTitleAndDescription Boolean llShowTitleAndDescription XTPToolTipIcon llIconTitle
110 Handle hDispatchDriver
111 Get phDispatchDriver to hDispatchDriver
112 Send PrepareParams to hDispatchDriver 2
113 Send DefineParam to hDispatchDriver OLE_VT_BOOL llShowTitleAndDescription
114 Send DefineParam to hDispatchDriver OLE_VT_I4 llIconTitle
115 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
116 End_Procedure
117
118 Function ComIsBalloonStyleSupported Returns Boolean
119 Handle hDispatchDriver
120 Boolean retVal
121 Get phDispatchDriver to hDispatchDriver
122 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BOOL to retVal
123 Function_Return retVal
124 End_Function
125
126 Procedure ComSetMargin Integer llLeft Integer llTop Integer llRight Integer llBottom
127 Handle hDispatchDriver
128 Get phDispatchDriver to hDispatchDriver
129 Send PrepareParams to hDispatchDriver 4
130 Send DefineParam to hDispatchDriver OLE_VT_I4 llLeft
131 Send DefineParam to hDispatchDriver OLE_VT_I4 llTop
132 Send DefineParam to hDispatchDriver OLE_VT_I4 llRight
133 Send DefineParam to hDispatchDriver OLE_VT_I4 llBottom
134 Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
135 End_Procedure
136
137 Procedure ComShowImage Boolean llShowImage Integer llImageBase
138 Handle hDispatchDriver
139 Get phDispatchDriver to hDispatchDriver
140 Send PrepareParams to hDispatchDriver 2
141 Send DefineParam to hDispatchDriver OLE_VT_BOOL llShowImage
142 Send DefineParam to hDispatchDriver OLE_VT_I4 llImageBase
143 Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
144 End_Procedure
145End_Class
146
147// CoClass
148// CLSID: {BDDDB4DB-8C00-4F05-AF87-9F05BCB55475}
149{ ClassLibrary=Windows }
150Class cCJToolTipContext is a cComAutomationObject
151 Import_Class_Protocol cCJIToolTipContext
152
153 Procedure Construct_Object
154 Forward Send Construct_Object
155 Set peAutoCreate to acNoAutoCreate
156 End_Procedure
157End_Class
158
159