Module SigCjC_ToolTipContext.pkg
1//==============================================================================
2// Project : SigCj - VDF Classes for Codejock
3// File : SigCjC_ToolTipContext.pkg
4// Description : VDF Class for Codejock control
5//
6// Created by : Ian Smith
7// Revision : $Rev: $
8// $Date: $
9// $Author: $
10//
11// Requirements : Visual DataFlex 14.1
12// Codejock SuitePro - Version 13.4.2
13//
14// Copyright : (c) 2009 VDF SIG UK
15// Visual DataFlex Special Interest Group UK.
16// http://www.vdfsig.co.uk/
17// dev@vdfsig.co.uk
18//
19// This file is part of SigCj.
20//
21// SigCj is free software: you can redistribute it and/or modify
22// it under the terms of the GNU Lesser General Public License
23// as published by the Free Software Foundation, either version
24// 2.1 of the License, or (at your option) any later version.
25//
26// SigCj is distributed in the hope that it will be useful, but
27// WITHOUT ANY WARRANTY; without even the implied warranty of
28// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29// GNU Lesser General Public License for more details.
30//
31// If you have the complete SigCj workspace then a copy of the
32// GNU Lesser General Public License is in the Docs folder. If
33// not, see <http://www.gnu.org/licenses/>.
34//
35//==============================================================================
36
37Use FlexCOM20.pkg
38
39// ToolTip Style
40Define OLEXTPToolTipStyle for Integer
41 Define OLExtpToolTipStandard for 0
42 Define OLExtpToolTipBalloon for 1
43 Define OLExtpToolTipOffice for 2
44 Define OLExtpToolTipRTF for 3
45 Define OLExtpToolTipLuna for 4
46 Define OLExtpToolTipOffice2007 for 5
47 Define OLExtpToolTipHTML for 6
48 Define OLExtpToolTipMarkup for 7
49
50// ToolTip Icon
51Define OLEXTPToolTipIcon for Integer
52 Define OLExtpToolTipIconNone for 0
53 Define OLExtpToolTipIconInfo for 1
54 Define OLExtpToolTipIconWarning for 2
55 Define OLExtpToolTipIconError for 3
56
57Class cSigCjComIToolTipContext is a Mixin
58
59 { MethodType=Property DesignTime=False }
60 Function ComStyle Returns OLEXTPToolTipStyle
61 OLEXTPToolTipStyle retVal
62 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
63 Function_Return retVal
64 End_Function
65
66 { MethodType=Property DesignTime=False }
67 Procedure Set ComStyle OLEXTPToolTipStyle value
68 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
69 End_Procedure
70
71 { MethodType=Property DesignTime=False }
72 Function ComMaxTipWidth Returns Integer
73 Integer retVal
74 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to retVal
75 Function_Return retVal
76 End_Function
77
78 { MethodType=Property DesignTime=False }
79 Procedure Set ComMaxTipWidth Integer value
80 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to value
81 End_Procedure
82
83 { MethodType=Property DesignTime=False }
84 Function ComTipBkColor Returns OLE_COLOR
85 OLE_COLOR retVal
86 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to retVal
87 Function_Return retVal
88 End_Function
89
90 { MethodType=Property DesignTime=False }
91 Procedure Set ComTipBkColor OLE_COLOR value
92 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to value
93 End_Procedure
94
95 { MethodType=Property DesignTime=False }
96 Function ComTipTextColor Returns OLE_COLOR
97 OLE_COLOR retVal
98 Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to retVal
99 Function_Return retVal
100 End_Function
101
102 { MethodType=Property DesignTime=False }
103 Procedure Set ComTipTextColor OLE_COLOR value
104 Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to value
105 End_Procedure
106
107 { MethodType=Property DesignTime=False }
108 Function ComFont Returns Variant
109 Variant retVal
110 Get ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to retVal
111 Function_Return retVal
112 End_Function
113
114 { MethodType=Property DesignTime=False }
115 Procedure Set ComFont Variant value
116 Set ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to value
117 End_Procedure
118
119 { MethodType=Property DesignTime=False }
120 Function ComShowOfficeBorder Returns Boolean
121 Boolean retVal
122 Get ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_BOOL to retVal
123 Function_Return retVal
124 End_Function
125
126 { MethodType=Property DesignTime=False }
127 Procedure Set ComShowOfficeBorder Boolean value
128 Set ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_BOOL to value
129 End_Procedure
130
131 { MethodType=Property DesignTime=False }
132 Function ComShowShadow Returns Boolean
133 Boolean retVal
134 Get ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_BOOL to retVal
135 Function_Return retVal
136 End_Function
137
138 { MethodType=Property DesignTime=False }
139 Procedure Set ComShowShadow Boolean value
140 Set ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_BOOL to value
141 End_Procedure
142
143 Procedure ComShowTitleAndDescription Boolean llShowTitleAndDescription OLEXTPToolTipIcon llIconTitle
144 Handle hDispatchDriver
145 Get phDispatchDriver to hDispatchDriver
146 Send PrepareParams to hDispatchDriver 2
147 Send DefineParam to hDispatchDriver OLE_VT_BOOL llShowTitleAndDescription
148 Send DefineParam to hDispatchDriver OLE_VT_I4 llIconTitle
149 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
150 End_Procedure
151
152 Function ComIsBalloonStyleSupported Returns Boolean
153 Handle hDispatchDriver
154 Boolean retVal
155 Get phDispatchDriver to hDispatchDriver
156 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BOOL to retVal
157 Function_Return retVal
158 End_Function
159
160 Procedure ComSetMargin Integer llLeft Integer llTop Integer llRight Integer llBottom
161 Handle hDispatchDriver
162 Get phDispatchDriver to hDispatchDriver
163 Send PrepareParams to hDispatchDriver 4
164 Send DefineParam to hDispatchDriver OLE_VT_I4 llLeft
165 Send DefineParam to hDispatchDriver OLE_VT_I4 llTop
166 Send DefineParam to hDispatchDriver OLE_VT_I4 llRight
167 Send DefineParam to hDispatchDriver OLE_VT_I4 llBottom
168 Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
169 End_Procedure
170
171 Procedure ComShowImage Boolean llShowImage Integer llImageBase
172 Handle hDispatchDriver
173 Get phDispatchDriver to hDispatchDriver
174 Send PrepareParams to hDispatchDriver 2
175 Send DefineParam to hDispatchDriver OLE_VT_BOOL llShowImage
176 Send DefineParam to hDispatchDriver OLE_VT_I4 llImageBase
177 Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
178 End_Procedure
179End_Class
180
181// CoClass
182Class cSigCjComToolTipContext is a cComAutomationObject
183 Import_Class_Protocol cSigCjComIToolTipContext
184
185 Procedure Construct_Object
186 Forward Send Construct_Object
187 Set peAutoCreate to acNoAutoCreate
188 End_Procedure
189End_Class
190
191//==============================================================================
192//End of package - SigCjC_ToolTipContext.pkg
193//==============================================================================
194