Module SigCjW_ShortcutBar.pkg
1//==============================================================================
2// Project : SigCj - VDF Classes for Codejock
3// File : SigCjW_ShortcutBar.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
38Use SigCjLicense_v13.4.2.pkg
39Use SigCjC_ColorManager.pkg
40Use SigCjC_ImageManager.pkg
41Use SigCjC_ToolTipContext.pkg
42
43Define OLEXTPTextAlignment for Integer
44 Define OLExtpAlignmentLeft for 0
45 Define OLExtpAlignmentCenter for 1
46 Define OLExtpAlignmentRight for 2
47
48Define OLEXTPShortcutBarPaintTheme for Integer
49 Define OLExtpShortcutThemeOffice2000 for 0
50 Define OLExtpShortcutThemeOfficeXP for 1
51 Define OLExtpShortcutThemeOffice2003 for 2
52 Define OLExtpShortcutThemeOffice2007 for 3
53 Define OLExtpShortcutThemeNativeWinXP for 4
54
55Class cSigCjComIShortcutBarItem is a Mixin
56
57 { MethodType=Property DesignTime=False }
58 Function ComCaption Returns String
59 String retVal
60 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to retVal
61 Function_Return retVal
62 End_Function
63
64 { MethodType=Property DesignTime=False }
65 Procedure Set ComCaption String value
66 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to value
67 End_Procedure
68
69 { MethodType=Property DesignTime=False }
70 Function ComTooltip Returns String
71 String retVal
72 Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to retVal
73 Function_Return retVal
74 End_Function
75
76 { MethodType=Property DesignTime=False }
77 Procedure Set ComTooltip String value
78 Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to value
79 End_Procedure
80
81 { MethodType=Property DesignTime=False }
82 Function ComId Returns Integer
83 Integer retVal
84 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to retVal
85 Function_Return retVal
86 End_Function
87
88 { MethodType=Property DesignTime=False }
89 Procedure Set ComId Integer value
90 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to value
91 End_Procedure
92
93 { MethodType=Property DesignTime=False }
94 Function ComVisible Returns Boolean
95 Boolean retVal
96 Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_BOOL to retVal
97 Function_Return retVal
98 End_Function
99
100 { MethodType=Property DesignTime=False }
101 Procedure Set ComVisible Boolean value
102 Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_BOOL to value
103 End_Procedure
104
105 { MethodType=Property DesignTime=False }
106 Function ComIconHandle Returns Integer
107 Integer retVal
108 Get ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_I4 to retVal
109 Function_Return retVal
110 End_Function
111
112 { MethodType=Property DesignTime=False }
113 Procedure Set ComIconHandle Integer value
114 Set ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_I4 to value
115 End_Procedure
116
117 { MethodType=Property DesignTime=False }
118 Function ComSelected Returns Boolean
119 Boolean retVal
120 Get ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_BOOL to retVal
121 Function_Return retVal
122 End_Function
123
124 { MethodType=Property DesignTime=False }
125 Procedure Set ComSelected Boolean value
126 Set ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_BOOL to value
127 End_Procedure
128
129 { MethodType=Property DesignTime=False }
130 Function ComHWnd Returns OLE_HANDLE
131 OLE_HANDLE retVal
132 Get ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_I4 to retVal
133 Function_Return retVal
134 End_Function
135
136 { MethodType=Property DesignTime=False }
137 Procedure Set ComHWnd OLE_HANDLE value
138 Set ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_I4 to value
139 End_Procedure
140
141 { MethodType=Property DesignTime=False }
142 Function ComIconId Returns Integer
143 Integer retVal
144 Get ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_I4 to retVal
145 Function_Return retVal
146 End_Function
147
148 { MethodType=Property DesignTime=False }
149 Procedure Set ComIconId Integer value
150 Set ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_I4 to value
151 End_Procedure
152
153 { MethodType=Property DesignTime=False }
154 Function ComEnabled Returns Boolean
155 Boolean retVal
156 Get ComProperty of (phDispatchDriver(Self)) 11 OLE_VT_BOOL to retVal
157 Function_Return retVal
158 End_Function
159
160 { MethodType=Property DesignTime=False }
161 Procedure Set ComEnabled Boolean value
162 Set ComProperty of (phDispatchDriver(Self)) 11 OLE_VT_BOOL to value
163 End_Procedure
164
165 { MethodType=Property DesignTime=False }
166 Function ComHidden Returns Boolean
167 Handle hDispatchDriver
168 Boolean retVal
169 Get phDispatchDriver to hDispatchDriver
170 Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
171 Function_Return retVal
172 End_Function
173End_Class
174
175// CoClass
176Class cSigCjComShortcutBarItem is a cComAutomationObject
177 Import_Class_Protocol cSigCjComIShortcutBarItem
178
179 Procedure Construct_Object
180 Forward Send Construct_Object
181 Set peAutoCreate to acNoAutoCreate
182 End_Procedure
183End_Class
184
185Class cSigCjComIShortcutBarColorSet is a Mixin
186
187 { MethodType=Property DesignTime=False }
188 Function ComSelectedItemLight Returns OLE_COLOR
189 OLE_COLOR retVal
190 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
191 Function_Return retVal
192 End_Function
193
194 { MethodType=Property DesignTime=False }
195 Procedure Set ComSelectedItemLight OLE_COLOR value
196 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
197 End_Procedure
198
199 { MethodType=Property DesignTime=False }
200 Function ComSelectedItemDark Returns OLE_COLOR
201 OLE_COLOR retVal
202 Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_I4 to retVal
203 Function_Return retVal
204 End_Function
205
206 { MethodType=Property DesignTime=False }
207 Procedure Set ComSelectedItemDark OLE_COLOR value
208 Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_I4 to value
209 End_Procedure
210
211 { MethodType=Property DesignTime=False }
212 Function ComSelectedItemText Returns OLE_COLOR
213 OLE_COLOR retVal
214 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to retVal
215 Function_Return retVal
216 End_Function
217
218 { MethodType=Property DesignTime=False }
219 Procedure Set ComSelectedItemText OLE_COLOR value
220 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to value
221 End_Procedure
222
223 { MethodType=Property DesignTime=False }
224 Function ComHotItemLight Returns OLE_COLOR
225 OLE_COLOR retVal
226 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to retVal
227 Function_Return retVal
228 End_Function
229
230 { MethodType=Property DesignTime=False }
231 Procedure Set ComHotItemLight OLE_COLOR value
232 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to value
233 End_Procedure
234
235 { MethodType=Property DesignTime=False }
236 Function ComHotItemDark Returns OLE_COLOR
237 OLE_COLOR retVal
238 Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to retVal
239 Function_Return retVal
240 End_Function
241
242 { MethodType=Property DesignTime=False }
243 Procedure Set ComHotItemDark OLE_COLOR value
244 Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to value
245 End_Procedure
246
247 { MethodType=Property DesignTime=False }
248 Function ComHotItemText Returns OLE_COLOR
249 OLE_COLOR retVal
250 Get ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_I4 to retVal
251 Function_Return retVal
252 End_Function
253
254 { MethodType=Property DesignTime=False }
255 Procedure Set ComHotItemText OLE_COLOR value
256 Set ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_I4 to value
257 End_Procedure
258
259 { MethodType=Property DesignTime=False }
260 Function ComPressedItemDark Returns OLE_COLOR
261 OLE_COLOR retVal
262 Get ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_I4 to retVal
263 Function_Return retVal
264 End_Function
265
266 { MethodType=Property DesignTime=False }
267 Procedure Set ComPressedItemDark OLE_COLOR value
268 Set ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_I4 to value
269 End_Procedure
270
271 { MethodType=Property DesignTime=False }
272 Function ComPressedItemLight Returns OLE_COLOR
273 OLE_COLOR retVal
274 Get ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_I4 to retVal
275 Function_Return retVal
276 End_Function
277
278 { MethodType=Property DesignTime=False }
279 Procedure Set ComPressedItemLight OLE_COLOR value
280 Set ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_I4 to value
281 End_Procedure
282
283 { MethodType=Property DesignTime=False }
284 Function ComPressedItemText Returns OLE_COLOR
285 OLE_COLOR retVal
286 Get ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_I4 to retVal
287 Function_Return retVal
288 End_Function
289
290 { MethodType=Property DesignTime=False }
291 Procedure Set ComPressedItemText OLE_COLOR value
292 Set ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_I4 to value
293 End_Procedure
294
295 { MethodType=Property DesignTime=False }
296 Function ComNormalItemLight Returns OLE_COLOR
297 OLE_COLOR retVal
298 Get ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_I4 to retVal
299 Function_Return retVal
300 End_Function
301
302 { MethodType=Property DesignTime=False }
303 Procedure Set ComNormalItemLight OLE_COLOR value
304 Set ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_I4 to value
305 End_Procedure
306
307 { MethodType=Property DesignTime=False }
308 Function ComNormalItemDark Returns OLE_COLOR
309 OLE_COLOR retVal
310 Get ComProperty of (phDispatchDriver(Self)) 11 OLE_VT_I4 to retVal
311 Function_Return retVal
312 End_Function
313
314 { MethodType=Property DesignTime=False }
315 Procedure Set ComNormalItemDark OLE_COLOR value
316 Set ComProperty of (phDispatchDriver(Self)) 11 OLE_VT_I4 to value
317 End_Procedure
318
319 { MethodType=Property DesignTime=False }
320 Function ComNormalItemText Returns OLE_COLOR
321 OLE_COLOR retVal
322 Get ComProperty of (phDispatchDriver(Self)) 12 OLE_VT_I4 to retVal
323 Function_Return retVal
324 End_Function
325
326 { MethodType=Property DesignTime=False }
327 Procedure Set ComNormalItemText OLE_COLOR value
328 Set ComProperty of (phDispatchDriver(Self)) 12 OLE_VT_I4 to value
329 End_Procedure
330
331 { MethodType=Property DesignTime=False }
332 Function ComNormalItemShadow Returns OLE_COLOR
333 OLE_COLOR retVal
334 Get ComProperty of (phDispatchDriver(Self)) 13 OLE_VT_I4 to retVal
335 Function_Return retVal
336 End_Function
337
338 { MethodType=Property DesignTime=False }
339 Procedure Set ComNormalItemShadow OLE_COLOR value
340 Set ComProperty of (phDispatchDriver(Self)) 13 OLE_VT_I4 to value
341 End_Procedure
342
343 { MethodType=Property DesignTime=False }
344 Function ComGripperLight Returns OLE_COLOR
345 OLE_COLOR retVal
346 Get ComProperty of (phDispatchDriver(Self)) 14 OLE_VT_I4 to retVal
347 Function_Return retVal
348 End_Function
349
350 { MethodType=Property DesignTime=False }
351 Procedure Set ComGripperLight OLE_COLOR value
352 Set ComProperty of (phDispatchDriver(Self)) 14 OLE_VT_I4 to value
353 End_Procedure
354
355 { MethodType=Property DesignTime=False }
356 Function ComGripperDark Returns OLE_COLOR
357 OLE_COLOR retVal
358 Get ComProperty of (phDispatchDriver(Self)) 15 OLE_VT_I4 to retVal
359 Function_Return retVal
360 End_Function
361
362 { MethodType=Property DesignTime=False }
363 Procedure Set ComGripperDark OLE_COLOR value
364 Set ComProperty of (phDispatchDriver(Self)) 15 OLE_VT_I4 to value
365 End_Procedure
366End_Class
367
368// CoClass
369Class cSigCjComShortcutBarColorSet is a cComAutomationObject
370 Import_Class_Protocol cSigCjComIShortcutBarColorSet
371
372 Procedure Construct_Object
373 Forward Send Construct_Object
374 Set peAutoCreate to acNoAutoCreate
375 End_Procedure
376End_Class
377
378Class cSigCjComIShortcutBarPaintManager is a Mixin
379
380 { MethodType=Property DesignTime=False }
381 Function ComNormalIconWidth Returns Integer
382 Integer retVal
383 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
384 Function_Return retVal
385 End_Function
386
387 { MethodType=Property DesignTime=False }
388 Procedure Set ComNormalIconWidth Integer value
389 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
390 End_Procedure
391
392 { MethodType=Property DesignTime=False }
393 Function ComExpandedIconWidth Returns Integer
394 Integer retVal
395 Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_I4 to retVal
396 Function_Return retVal
397 End_Function
398
399 { MethodType=Property DesignTime=False }
400 Procedure Set ComExpandedIconWidth Integer value
401 Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_I4 to value
402 End_Procedure
403
404 { MethodType=Property DesignTime=False }
405 Function ComClearTypeTextQuality Returns Boolean
406 Boolean retVal
407 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BOOL to retVal
408 Function_Return retVal
409 End_Function
410
411 { MethodType=Property DesignTime=False }
412 Procedure Set ComClearTypeTextQuality Boolean value
413 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BOOL to value
414 End_Procedure
415
416 { MethodType=Property DesignTime=False }
417 Function ComFont Returns Variant
418 Variant retVal
419 Get ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to retVal
420 Function_Return retVal
421 End_Function
422
423 { MethodType=Property DesignTime=False }
424 Procedure Set ComFont Variant value
425 Set ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to value
426 End_Procedure
427End_Class
428
429// CoClass
430Class cSigCjComShortcutBarPaintManager is a cComAutomationObject
431 Import_Class_Protocol cSigCjComIShortcutBarPaintManager
432
433 Procedure Construct_Object
434 Forward Send Construct_Object
435 Set peAutoCreate to acNoAutoCreate
436 End_Procedure
437End_Class
438
439// Dispatch interface for Xtreme ShortcutBar Control
440Class cSigCjCom_DShortcutBar is a Mixin
441
442 { MethodType=Property DesignTime=False }
443 Function ComVisualTheme Returns OLEXTPShortcutBarPaintTheme
444 OLEXTPShortcutBarPaintTheme retVal
445 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
446 Function_Return retVal
447 End_Function
448
449 { MethodType=Property DesignTime=False }
450 Procedure Set ComVisualTheme OLEXTPShortcutBarPaintTheme value
451 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
452 End_Procedure
453
454 { MethodType=Property DesignTime=False }
455 Function ComSelected Returns Variant
456 Variant retVal
457 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_DISPATCH to retVal
458 Function_Return retVal
459 End_Function
460
461 { MethodType=Property DesignTime=False }
462 Procedure Set ComSelected Variant value
463 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_DISPATCH to value
464 End_Procedure
465
466 { MethodType=Property DesignTime=False }
467 Function ComExpandedLinesCount Returns Integer
468 Integer retVal
469 Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to retVal
470 Function_Return retVal
471 End_Function
472
473 { MethodType=Property DesignTime=False }
474 Procedure Set ComExpandedLinesCount Integer value
475 Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to value
476 End_Procedure
477
478 { MethodType=Property DesignTime=False }
479 Function ComClientPaneVisible Returns Boolean
480 Boolean retVal
481 Get ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BOOL to retVal
482 Function_Return retVal
483 End_Function
484
485 { MethodType=Property DesignTime=False }
486 Procedure Set ComClientPaneVisible Boolean value
487 Set ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BOOL to value
488 End_Procedure
489
490 { MethodType=Property DesignTime=False }
491 Function ComHWnd Returns OLE_HANDLE
492 OLE_HANDLE retVal
493 Get ComProperty of (phDispatchDriver(Self)) -515 OLE_VT_I4 to retVal
494 Function_Return retVal
495 End_Function
496
497 { MethodType=Property DesignTime=False }
498 Procedure Set ComHWnd OLE_HANDLE value
499 Set ComProperty of (phDispatchDriver(Self)) -515 OLE_VT_I4 to value
500 End_Procedure
501
502 { MethodType=Property DesignTime=False }
503 Function ComEnabled Returns Boolean
504 Boolean retVal
505 Get ComProperty of (phDispatchDriver(Self)) -514 OLE_VT_BOOL to retVal
506 Function_Return retVal
507 End_Function
508
509 { MethodType=Property DesignTime=False }
510 Procedure Set ComEnabled Boolean value
511 Set ComProperty of (phDispatchDriver(Self)) -514 OLE_VT_BOOL to value
512 End_Procedure
513
514 { MethodType=Property DesignTime=False }
515 Function ComIcons Returns Variant
516 Variant retVal
517 Get ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_DISPATCH to retVal
518 Function_Return retVal
519 End_Function
520
521 { MethodType=Property DesignTime=False }
522 Procedure Set ComIcons Variant value
523 Set ComProperty of (phDispatchDriver(Self)) 10 OLE_VT_DISPATCH to value
524 End_Procedure
525
526 { MethodType=Property DesignTime=False }
527 Function ComMinimumClientHeight Returns Integer
528 Integer retVal
529 Get ComProperty of (phDispatchDriver(Self)) 13 OLE_VT_I4 to retVal
530 Function_Return retVal
531 End_Function
532
533 { MethodType=Property DesignTime=False }
534 Procedure Set ComMinimumClientHeight Integer value
535 Set ComProperty of (phDispatchDriver(Self)) 13 OLE_VT_I4 to value
536 End_Procedure
537
538 { MethodType=Property DesignTime=False }
539 Function ComAllowGripperResize Returns Boolean
540 Boolean retVal
541 Get ComProperty of (phDispatchDriver(Self)) 14 OLE_VT_BOOL to retVal
542 Function_Return retVal
543 End_Function
544
545 { MethodType=Property DesignTime=False }
546 Procedure Set ComAllowGripperResize Boolean value
547 Set ComProperty of (phDispatchDriver(Self)) 14 OLE_VT_BOOL to value
548 End_Procedure
549
550 { MethodType=Property DesignTime=False }
551 Function ComSingleSelection Returns Boolean
552 Boolean retVal
553 Get ComProperty of (phDispatchDriver(Self)) 15 OLE_VT_BOOL to retVal
554 Function_Return retVal
555 End_Function
556
557 { MethodType=Property DesignTime=False }
558 Procedure Set ComSingleSelection Boolean value
559 Set ComProperty of (phDispatchDriver(Self)) 15 OLE_VT_BOOL to value
560 End_Procedure
561
562 { MethodType=Property DesignTime=False }
563 Function ComShowExpandButton Returns Boolean
564 Boolean retVal
565 Get ComProperty of (phDispatchDriver(Self)) 16 OLE_VT_BOOL to retVal
566 Function_Return retVal
567 End_Function
568
569 { MethodType=Property DesignTime=False }
570 Procedure Set ComShowExpandButton Boolean value
571 Set ComProperty of (phDispatchDriver(Self)) 16 OLE_VT_BOOL to value
572 End_Procedure
573
574 { MethodType=Property DesignTime=False }
575 Function ComShowActiveItemOnTop Returns Boolean
576 Boolean retVal
577 Get ComProperty of (phDispatchDriver(Self)) 17 OLE_VT_BOOL to retVal
578 Function_Return retVal
579 End_Function
580
581 { MethodType=Property DesignTime=False }
582 Procedure Set ComShowActiveItemOnTop Boolean value
583 Set ComProperty of (phDispatchDriver(Self)) 17 OLE_VT_BOOL to value
584 End_Procedure
585
586 { MethodType=Property DesignTime=False }
587 Function ComAllowFreeResize Returns Boolean
588 Boolean retVal
589 Get ComProperty of (phDispatchDriver(Self)) 18 OLE_VT_BOOL to retVal
590 Function_Return retVal
591 End_Function
592
593 { MethodType=Property DesignTime=False }
594 Procedure Set ComAllowFreeResize Boolean value
595 Set ComProperty of (phDispatchDriver(Self)) 18 OLE_VT_BOOL to value
596 End_Procedure
597
598 { MethodType=Property DesignTime=False }
599 Function ComAllowMinimize Returns Boolean
600 Boolean retVal
601 Get ComProperty of (phDispatchDriver(Self)) 19 OLE_VT_BOOL to retVal
602 Function_Return retVal
603 End_Function
604
605 { MethodType=Property DesignTime=False }
606 Procedure Set ComAllowMinimize Boolean value
607 Set ComProperty of (phDispatchDriver(Self)) 19 OLE_VT_BOOL to value
608 End_Procedure
609
610 { MethodType=Property DesignTime=False }
611 Function ComRightToLeft Returns Boolean
612 Boolean retVal
613 Get ComProperty of (phDispatchDriver(Self)) 37 OLE_VT_BOOL to retVal
614 Function_Return retVal
615 End_Function
616
617 { MethodType=Property DesignTime=False }
618 Procedure Set ComRightToLeft Boolean value
619 Set ComProperty of (phDispatchDriver(Self)) 37 OLE_VT_BOOL to value
620 End_Procedure
621
622 { MethodType=Property DesignTime=False }
623 Function ComItemWidth Returns Integer
624 Integer retVal
625 Get ComProperty of (phDispatchDriver(Self)) 56 OLE_VT_I4 to retVal
626 Function_Return retVal
627 End_Function
628
629 { MethodType=Property DesignTime=False }
630 Procedure Set ComItemWidth Integer value
631 Set ComProperty of (phDispatchDriver(Self)) 56 OLE_VT_I4 to value
632 End_Procedure
633
634 { MethodType=Property DesignTime=False }
635 Function ComItemHeight Returns Integer
636 Integer retVal
637 Get ComProperty of (phDispatchDriver(Self)) 57 OLE_VT_I4 to retVal
638 Function_Return retVal
639 End_Function
640
641 { MethodType=Property DesignTime=False }
642 Procedure Set ComItemHeight Integer value
643 Set ComProperty of (phDispatchDriver(Self)) 57 OLE_VT_I4 to value
644 End_Procedure
645
646 { MethodType=Property DesignTime=False }
647 Function ComEnableAnimation Returns Boolean
648 Boolean retVal
649 Get ComProperty of (phDispatchDriver(Self)) 58 OLE_VT_BOOL to retVal
650 Function_Return retVal
651 End_Function
652
653 { MethodType=Property DesignTime=False }
654 Procedure Set ComEnableAnimation Boolean value
655 Set ComProperty of (phDispatchDriver(Self)) 58 OLE_VT_BOOL to value
656 End_Procedure
657
658 Function ComAddItem Integer llId String llCaption Integer llhWnd Returns Variant
659 Handle hDispatchDriver
660 Variant retVal
661 Get phDispatchDriver to hDispatchDriver
662 Send PrepareParams to hDispatchDriver 3
663 Send DefineParam to hDispatchDriver OLE_VT_I4 llId
664 Send DefineParam to hDispatchDriver OLE_VT_BSTR llCaption
665 Send DefineParam to hDispatchDriver OLE_VT_I4 llhWnd
666 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_DISPATCH to retVal
667 Function_Return retVal
668 End_Function
669
670 Procedure ComAddImageList Variant llImageList
671 Handle hDispatchDriver
672 Get phDispatchDriver to hDispatchDriver
673 Send PrepareParams to hDispatchDriver 1
674 Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llImageList
675 Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
676 End_Procedure
677
678 Procedure ComRemoveItem Integer llId
679 Handle hDispatchDriver
680 Get phDispatchDriver to hDispatchDriver
681 Send PrepareParams to hDispatchDriver 1
682 Send DefineParam to hDispatchDriver OLE_VT_I4 llId
683 Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
684 End_Procedure
685
686 Procedure ComRemoveAllItems
687 Handle hDispatchDriver
688 Get phDispatchDriver to hDispatchDriver
689 Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
690 End_Procedure
691
692 Function ComFindItem Integer llId Returns Variant
693 Handle hDispatchDriver
694 Variant retVal
695 Get phDispatchDriver to hDispatchDriver
696 Send PrepareParams to hDispatchDriver 1
697 Send DefineParam to hDispatchDriver OLE_VT_I4 llId
698 Get InvokeComMethod of hDispatchDriver 9 OLE_VT_DISPATCH to retVal
699 Function_Return retVal
700 End_Function
701
702 Procedure ComAboutBox
703 Handle hDispatchDriver
704 Get phDispatchDriver to hDispatchDriver
705 Send InvokeComMethod to hDispatchDriver -552 OLE_VT_VOID
706 End_Procedure
707
708 { MethodType=Property DesignTime=False }
709 Function ComItem Integer llIndex Returns Variant
710 Handle hDispatchDriver
711 Variant retVal
712 Get phDispatchDriver to hDispatchDriver
713 Send PrepareParams to hDispatchDriver 1
714 Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
715 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
716 Function_Return retVal
717 End_Function
718
719 { MethodType=Property DesignTime=False }
720 Function ComItemCount Returns Integer
721 Handle hDispatchDriver
722 Integer retVal
723 Get phDispatchDriver to hDispatchDriver
724 Get InvokeComMethod of hDispatchDriver 11 OLE_VT_I4 to retVal
725 Function_Return retVal
726 End_Function
727
728 { MethodType=Property DesignTime=False }
729 Function Com_NewEnum Returns Variant
730 Handle hDispatchDriver
731 Variant retVal
732 Get phDispatchDriver to hDispatchDriver
733 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
734 Function_Return retVal
735 End_Function
736
737 Function ComHitTest Integer llx Integer lly Returns Variant
738 Handle hDispatchDriver
739 Variant retVal
740 Get phDispatchDriver to hDispatchDriver
741 Send PrepareParams to hDispatchDriver 2
742 Send DefineParam to hDispatchDriver OLE_VT_I4 llx
743 Send DefineParam to hDispatchDriver OLE_VT_I4 lly
744 Get InvokeComMethod of hDispatchDriver 12 OLE_VT_DISPATCH to retVal
745 Function_Return retVal
746 End_Function
747
748 { MethodType=Property DesignTime=False }
749 Function ComToolTipContext Returns Variant
750 Handle hDispatchDriver
751 Variant retVal
752 Get phDispatchDriver to hDispatchDriver
753 Get InvokeComMethod of hDispatchDriver 29 OLE_VT_DISPATCH to retVal
754 Function_Return retVal
755 End_Function
756
757 { MethodType=Property DesignTime=False }
758 Function ComColorSet Returns Variant
759 Handle hDispatchDriver
760 Variant retVal
761 Get phDispatchDriver to hDispatchDriver
762 Get InvokeComMethod of hDispatchDriver 30 OLE_VT_DISPATCH to retVal
763 Function_Return retVal
764 End_Function
765
766 { MethodType=Property DesignTime=False }
767 Function ComHighlighted Returns Variant
768 Handle hDispatchDriver
769 Variant retVal
770 Get phDispatchDriver to hDispatchDriver
771 Get InvokeComMethod of hDispatchDriver 38 OLE_VT_DISPATCH to retVal
772 Function_Return retVal
773 End_Function
774
775 { MethodType=Property DesignTime=False }
776 Function ComClientLeft Returns Float
777 Handle hDispatchDriver
778 Float retVal
779 Get phDispatchDriver to hDispatchDriver
780 Get InvokeComMethod of hDispatchDriver 46 OLE_VT_R4 to retVal
781 Function_Return retVal
782 End_Function
783
784 { MethodType=Property DesignTime=False }
785 Function ComClientTop Returns Float
786 Handle hDispatchDriver
787 Float retVal
788 Get phDispatchDriver to hDispatchDriver
789 Get InvokeComMethod of hDispatchDriver 47 OLE_VT_R4 to retVal
790 Function_Return retVal
791 End_Function
792
793 { MethodType=Property DesignTime=False }
794 Function ComClientWidth Returns Float
795 Handle hDispatchDriver
796 Float retVal
797 Get phDispatchDriver to hDispatchDriver
798 Get InvokeComMethod of hDispatchDriver 48 OLE_VT_R4 to retVal
799 Function_Return retVal
800 End_Function
801
802 { MethodType=Property DesignTime=False }
803 Function ComClientHeight Returns Float
804 Handle hDispatchDriver
805 Float retVal
806 Get phDispatchDriver to hDispatchDriver
807 Get InvokeComMethod of hDispatchDriver 49 OLE_VT_R4 to retVal
808 Function_Return retVal
809 End_Function
810
811 { MethodType=Property DesignTime=False }
812 Function ComPaintManager Returns Variant
813 Handle hDispatchDriver
814 Variant retVal
815 Get phDispatchDriver to hDispatchDriver
816 Get InvokeComMethod of hDispatchDriver 55 OLE_VT_DISPATCH to retVal
817 Function_Return retVal
818 End_Function
819End_Class
820
821// Event interface for Xtreme ShortcutBar Control
822Class cSigCjCom_DShortcutBarEvents is a Mixin
823
824 { MethodType=Event }
825 Procedure OnComSelectedChanged Variant llItem
826 End_Procedure
827
828 { MethodType=Event }
829 Procedure OnComExpandButtonDown Boolean ByRef llCancelMenu
830 End_Procedure
831
832 { MethodType=Event }
833 Procedure OnComSelectedChanging Variant llItem Boolean ByRef llCancel
834 End_Procedure
835
836 { MethodType=Event }
837 Procedure OnComMouseUp Short llButton Short llShift Integer llx Integer lly
838 End_Procedure
839
840 { MethodType=Event }
841 Procedure OnComHighlightedChanged
842 End_Procedure
843
844 { MethodType=Event }
845 Procedure OnComClientSizeChanged
846 End_Procedure
847
848 { Visibility=Private }
849 Procedure RegisterComEvents
850 Send RegisterComEvent 1 msg_OnComSelectedChanged
851 Send RegisterComEvent 2 msg_OnComExpandButtonDown
852 Send RegisterComEvent 3 msg_OnComSelectedChanging
853 Send RegisterComEvent -607 msg_OnComMouseUp
854 Send RegisterComEvent 4 msg_OnComHighlightedChanged
855 Send RegisterComEvent 5 msg_OnComClientSizeChanged
856 End_Procedure
857End_Class
858
859// CoClass
860// Xtreme ShortcutBar Control
861{ CLSID=L_cSigCjComShortcutBar }
862Class cSigCjComShortcutBar is a cComActiveXControl
863 Import_Class_Protocol cSigCjCom_DShortcutBar
864 Import_Class_Protocol cSigCjCom_DShortcutBarEvents
865
866 Procedure Construct_Object
867 Forward Send Construct_Object
868 Set psProgID to L_cSigCjComShortcutBar
869 Set psEventId to "{A9AB8C91-C48C-4F2D-9556-81968DE6CB8F}"
870 Set psLicenseKey to L_cSigCjKeyShortcutBar
871 Set peAutoCreate to acDeferredAutoCreate
872 End_Procedure
873End_Class
874
875// Dispatch interface for Xtreme ShortcutCaption Control
876Class cSigCjCom_DShortcutCaption is a Mixin
877
878 { MethodType=Property DesignTime=False }
879 Function ComVisualTheme Returns OLEXTPShortcutBarPaintTheme
880 OLEXTPShortcutBarPaintTheme retVal
881 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to retVal
882 Function_Return retVal
883 End_Function
884
885 { MethodType=Property DesignTime=False }
886 Procedure Set ComVisualTheme OLEXTPShortcutBarPaintTheme value
887 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_I4 to value
888 End_Procedure
889
890 { MethodType=Property DesignTime=False }
891 Function ComCaption Returns String
892 String retVal
893 Get ComProperty of (phDispatchDriver(Self)) -518 OLE_VT_BSTR to retVal
894 Function_Return retVal
895 End_Function
896
897 { MethodType=Property DesignTime=False }
898 Procedure Set ComCaption String value
899 Set ComProperty of (phDispatchDriver(Self)) -518 OLE_VT_BSTR to value
900 End_Procedure
901
902 { MethodType=Property DesignTime=False }
903 Function ComFont Returns Variant
904 Variant retVal
905 Get ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to retVal
906 Function_Return retVal
907 End_Function
908
909 { MethodType=Property DesignTime=False }
910 Procedure Set ComFont Variant value
911 Set ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to value
912 End_Procedure
913
914 { MethodType=Property DesignTime=False }
915 Function ComSubItemCaption Returns Boolean
916 Boolean retVal
917 Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BOOL to retVal
918 Function_Return retVal
919 End_Function
920
921 { MethodType=Property DesignTime=False }
922 Procedure Set ComSubItemCaption Boolean value
923 Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BOOL to value
924 End_Procedure
925
926 { MethodType=Property DesignTime=False }
927 Function ComAlignment Returns OLEXTPTextAlignment
928 OLEXTPTextAlignment retVal
929 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to retVal
930 Function_Return retVal
931 End_Function
932
933 { MethodType=Property DesignTime=False }
934 Procedure Set ComAlignment OLEXTPTextAlignment value
935 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_I4 to value
936 End_Procedure
937
938 { MethodType=Property DesignTime=False }
939 Function ComGradientColorLight Returns OLE_COLOR
940 OLE_COLOR retVal
941 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to retVal
942 Function_Return retVal
943 End_Function
944
945 { MethodType=Property DesignTime=False }
946 Procedure Set ComGradientColorLight OLE_COLOR value
947 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_I4 to value
948 End_Procedure
949
950 { MethodType=Property DesignTime=False }
951 Function ComGradientColorDark Returns OLE_COLOR
952 OLE_COLOR retVal
953 Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to retVal
954 Function_Return retVal
955 End_Function
956
957 { MethodType=Property DesignTime=False }
958 Procedure Set ComGradientColorDark OLE_COLOR value
959 Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_I4 to value
960 End_Procedure
961
962 { MethodType=Property DesignTime=False }
963 Function ComGradientHorizontal Returns Boolean
964 Boolean retVal
965 Get ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BOOL to retVal
966 Function_Return retVal
967 End_Function
968
969 { MethodType=Property DesignTime=False }
970 Procedure Set ComGradientHorizontal Boolean value
971 Set ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BOOL to value
972 End_Procedure
973
974 { MethodType=Property DesignTime=False }
975 Function ComForeColor Returns OLE_COLOR
976 OLE_COLOR retVal
977 Get ComProperty of (phDispatchDriver(Self)) -513 OLE_VT_I4 to retVal
978 Function_Return retVal
979 End_Function
980
981 { MethodType=Property DesignTime=False }
982 Procedure Set ComForeColor OLE_COLOR value
983 Set ComProperty of (phDispatchDriver(Self)) -513 OLE_VT_I4 to value
984 End_Procedure
985
986 // For languages that support reading order alignment specifies right-to-left reading order
987 { MethodType=Property DesignTime=False }
988 Function ComRightToLeftReading Returns Boolean
989 Boolean retVal
990 Get ComProperty of (phDispatchDriver(Self)) 44 OLE_VT_BOOL to retVal
991 Function_Return retVal
992 End_Function
993
994 // For languages that support reading order alignment specifies right-to-left reading order
995 { MethodType=Property DesignTime=False }
996 Procedure Set ComRightToLeftReading Boolean value
997 Set ComProperty of (phDispatchDriver(Self)) 44 OLE_VT_BOOL to value
998 End_Procedure
999
1000 { MethodType=Property DesignTime=False }
1001 Function ComIcon Returns Variant
1002 Variant retVal
1003 Get ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_DISPATCH to retVal
1004 Function_Return retVal
1005 End_Function
1006
1007 { MethodType=Property DesignTime=False }
1008 Procedure Set ComIcon Variant value
1009 Set ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_DISPATCH to value
1010 End_Procedure
1011
1012 { MethodType=Property DesignTime=False }
1013 Function ComExpandable Returns Boolean
1014 Boolean retVal
1015 Get ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_BOOL to retVal
1016 Function_Return retVal
1017 End_Function
1018
1019 { MethodType=Property DesignTime=False }
1020 Procedure Set ComExpandable Boolean value
1021 Set ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_BOOL to value
1022 End_Procedure
1023
1024 { MethodType=Property DesignTime=False }
1025 Function ComExpanded Returns Boolean
1026 Boolean retVal
1027 Get ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_BOOL to retVal
1028 Function_Return retVal
1029 End_Function
1030
1031 { MethodType=Property DesignTime=False }
1032 Procedure Set ComExpanded Boolean value
1033 Set ComProperty of (phDispatchDriver(Self)) 9 OLE_VT_BOOL to value
1034 End_Procedure
1035
1036 Procedure ComAboutBox
1037 Handle hDispatchDriver
1038 Get phDispatchDriver to hDispatchDriver
1039 Send InvokeComMethod to hDispatchDriver -552 OLE_VT_VOID
1040 End_Procedure
1041End_Class
1042
1043// Event interface for Xtreme ShortcutCaption Control
1044Class cSigCjCom_DShortcutCaptionEvents is a Mixin
1045
1046 { MethodType=Event }
1047 Procedure OnComMouseUp Short llButton Short llShift OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
1048 End_Procedure
1049
1050 { MethodType=Event }
1051 Procedure OnComMouseDown Short llButton Short llShift OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
1052 End_Procedure
1053
1054 { Visibility=Private }
1055 Procedure RegisterComEvents
1056 Send RegisterComEvent -607 msg_OnComMouseUp
1057 Send RegisterComEvent -605 msg_OnComMouseDown
1058 End_Procedure
1059End_Class
1060
1061// CoClass
1062// Xtreme ShortcutCaption Control
1063{ CLSID=L_cSigCjComShortcutCaption }
1064Class cSigCjComShortcutCaption is a cComActiveXControl
1065 Import_Class_Protocol cSigCjCom_DShortcutCaption
1066 Import_Class_Protocol cSigCjCom_DShortcutCaptionEvents
1067
1068 Procedure Construct_Object
1069 Forward Send Construct_Object
1070 Set psProgID to L_cSigCjComShortcutCaption
1071 Set psEventId to "{A093652A-CFAE-4354-8551-B8DC4938E543}"
1072 Set psLicenseKey to L_cSigCjKeyShortcutBar
1073 Set peAutoCreate to acDeferredAutoCreate
1074 End_Procedure
1075End_Class
1076
1077// ShortcutBar Global Settings
1078Class cSigCjComIShortcutBarGlobalSettings is a Mixin
1079
1080 { MethodType=Property DesignTime=False }
1081 Function ComResourceFile Returns String
1082 String retVal
1083 Get ComProperty of (phDispatchDriver(Self)) 100 OLE_VT_BSTR to retVal
1084 Function_Return retVal
1085 End_Function
1086
1087 { MethodType=Property DesignTime=False }
1088 Procedure Set ComResourceFile String value
1089 Set ComProperty of (phDispatchDriver(Self)) 100 OLE_VT_BSTR to value
1090 End_Procedure
1091
1092 { MethodType=Property DesignTime=False }
1093 Function ComLicense Returns String
1094 String retVal
1095 Get ComProperty of (phDispatchDriver(Self)) 101 OLE_VT_BSTR to retVal
1096 Function_Return retVal
1097 End_Function
1098
1099 { MethodType=Property DesignTime=False }
1100 Procedure Set ComLicense String value
1101 Set ComProperty of (phDispatchDriver(Self)) 101 OLE_VT_BSTR to value
1102 End_Procedure
1103
1104 { MethodType=Property DesignTime=False }
1105 Function ComTitle Returns String
1106 String retVal
1107 Get ComProperty of (phDispatchDriver(Self)) 102 OLE_VT_BSTR to retVal
1108 Function_Return retVal
1109 End_Function
1110
1111 { MethodType=Property DesignTime=False }
1112 Procedure Set ComTitle String value
1113 Set ComProperty of (phDispatchDriver(Self)) 102 OLE_VT_BSTR to value
1114 End_Procedure
1115
1116 { MethodType=Property DesignTime=False }
1117 Function ComOffice2007Images Returns String
1118 String retVal
1119 Get ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BSTR to retVal
1120 Function_Return retVal
1121 End_Function
1122
1123 { MethodType=Property DesignTime=False }
1124 Procedure Set ComOffice2007Images String value
1125 Set ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BSTR to value
1126 End_Procedure
1127
1128 { MethodType=Property DesignTime=False }
1129 Function ComColorManager Returns Variant
1130 Handle hDispatchDriver
1131 Variant retVal
1132 Get phDispatchDriver to hDispatchDriver
1133 Get InvokeComMethod of hDispatchDriver 103 OLE_VT_DISPATCH to retVal
1134 Function_Return retVal
1135 End_Function
1136
1137 { MethodType=Property DesignTime=False }
1138 Function ComVersion Returns String
1139 Handle hDispatchDriver
1140 String retVal
1141 Get phDispatchDriver to hDispatchDriver
1142 Get InvokeComMethod of hDispatchDriver 104 OLE_VT_BSTR to retVal
1143 Function_Return retVal
1144 End_Function
1145
1146 { MethodType=Property DesignTime=False }
1147 Function ComUnicode Returns Boolean
1148 Handle hDispatchDriver
1149 Boolean retVal
1150 Get phDispatchDriver to hDispatchDriver
1151 Get InvokeComMethod of hDispatchDriver 105 OLE_VT_BOOL to retVal
1152 Function_Return retVal
1153 End_Function
1154
1155 { MethodType=Property DesignTime=False }
1156 Function ComOcxPath Returns String
1157 Handle hDispatchDriver
1158 String retVal
1159 Get phDispatchDriver to hDispatchDriver
1160 Get InvokeComMethod of hDispatchDriver 106 OLE_VT_BSTR to retVal
1161 Function_Return retVal
1162 End_Function
1163End_Class
1164
1165// CoClass
1166// ShortcutBar Global Settings
1167Class cSigCjComShortcutBarGlobalSettings is a cComAutomationObject
1168 Import_Class_Protocol cSigCjComIShortcutBarGlobalSettings
1169
1170 Procedure Construct_Object
1171 Forward Send Construct_Object
1172 Set psProgID to L_cSigCjComShortcutBarGlobalSettings
1173 Set peAutoCreate to acNoAutoCreate
1174 End_Procedure
1175End_Class
1176
1177//==============================================================================
1178//End of package - SigCjW_ShortcutBar.pkg
1179//==============================================================================
1180