Module cSigCJDockingPane.pkg
1//==============================================================================
2// Project : SigCj - VDF Classes for Codejock
3// File : cSigCJDockingPanes.pkg
4// Description : VDF Class for Codejock control
5//
6// Revision : $Rev: 687 $
7// $Date: 2011-03-14 13:19:50 -0400 (Mon, 14 Mar 2011) $
8// $Author: martin $
9//
10// Requirements : Visual DataFlex 12.1+
11// Codejock SuitePro - Version 12.0.0+
12//
13// Copyright : (c) 2009 VDF SIG UK
14// Visual DataFlex Special Interest Group UK.
15// http://www.vdfsig.co.uk/
16// dev@vdfsig.co.uk
17//
18// Some of this code and ideas may have come from a package that Emil wrote!
19// Thanks to John T for his help too.
20//
21// This file is part of SigCj.
22//
23// SigCj is free software: you can redistribute it and/or modify
24// it under the terms of the GNU Lesser General Public License
25// as published by the Free Software Foundation, either version
26// 2.1 of the License, or (at your option) any later version.
27//
28// SigCj is distributed in the hope that it will be useful, but
29// WITHOUT ANY WARRANTY; without even the implied warranty of
30// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
31// GNU Lesser General Public License for more details.
32//
33// If you have the complete SigCj workspace then a copy of the
34// GNU Lesser General Public License is in the Docs folder. If
35// not, see <http://www.gnu.org/licenses/>.
36//
37//==============================================================================
38
39Use SigCjW_DockingPane.pkg
40Use cSigCJGlobalSettings.pkg
41Use cSigCJPropEx_Mixin.pkg
42Use cSigCJMethods_Mixin.pkg
43
44//=============================================================================
45
46Enum_List //eDP_Client_Type
47 Define eDP_Normal
48 Define eDP_ActiveX
49End_Enum_List
50
51Enum_List //eDP_Event_Director
52 Define eDP_No_Events
53 Define eDP_Direct_To_Manager
54 Define eDP_Direct_To_Panes
55 Define eDP_Direct_To_Both
56End_Enum_List
57
58//=============================================================================
59
60Class cSigCjDockingPaneLayout is a cSigCjComDockingPaneLayout
61 Import_Class_Protocol cSigCJPropEx_Mixin
62
63 Procedure Construct_Object
64 Forward Send Construct_Object
65
66 Send Initialise_PropEx_Mixin
67 Set psPX_Class to "SigCJDockingPanesControl"
68 End_Procedure
69End_Class
70
71//=============================================================================
72
73{ OverrideProperty=psLicenseKey DesignTime=False }
74{ OverrideProperty=psProgID DesignTime=False }
75{ OverrideProperty=peAutoCreate DesignTime=False }
76{ OverrideProperty=peNeighborhood DesignTime=False }
77{ OverrideProperty=Delegation_Mode DesignTime=False }
78Class cSigCjDockingPane is a cSigCjComPane
79
80 Procedure Construct_Object
81 Forward Send Construct_Object
82
83 { Category="CodeJock" InitialValue=0 }
84 Property Integer piID 0
85
86 { Category="CodeJock" InitialValue=150 }
87 Property Integer piHeight 150
88
89 { Category="CodeJock" InitialValue=150 }
90 Property Integer piWidth 150
91
92 { Category="CodeJock" InitialValue=OLEDockLeftOf }
93 { EnumList="OLEDockLeftOf, OLEDockRightOf, OLEDockTopOf, OLEDockBottomOf" }
94 Property Integer peLocation OLEDockLeftOf
95
96 { Category="CodeJock" InitialValue=0 }
97 Property Integer piNeighbour 0
98
99 { Category="CodeJock" InitialValue="" }
100 Property String psTitle ""
101
102 { Category="CodeJock" InitialValue=0 }
103 Property Handle phoClientObject 0
104
105 { Category="CodeJock" InitialValue=-1 }
106 Property Integer piSideDockingOffset -1
107
108 { Category="CodeJock" InitialValue=False }
109 Property Boolean pbInitiallyHidden False
110
111 { Category="CodeJock" InitialValue=eDP_Normal }
112 { EnumList="eDP_Normal, eDP_ActiveX" }
113 Property Integer peClientType eDP_Normal
114
115 //-------------------------------------------------------------------------
116
117 { Category="CodeJock" InitialValue=True }
118 Property Boolean pbCloseable True
119
120 { Category="CodeJock" InitialValue=True }
121 Property Boolean pbHideable True
122
123 { Category="CodeJock" InitialValue=True }
124 Property Boolean pbFloatable True
125
126 { Category="CodeJock" InitialValue=True }
127 Property Boolean pbCaption True
128
129 { Category="CodeJock" InitialValue=False }
130 Property Boolean pbMenuButton False
131
132 { Category="CodeJock" InitialValue=True }
133 Property Boolean pbDockable True
134
135 //-------------------------------------------------------------------------
136
137 { DesignTime=False }
138 Property Integer Private_piImage 0
139 { DesignTime=False }
140 Property String Private_psImage ""
141 End_Procedure
142
143 //-------------------------------------------------------------------------
144
145 Procedure Set psImage String sImage
146 Integer iImageId
147
148 Set Private_psImage to sImage
149
150 Get AddImage of ghoSigCjGlobalSetting sImage 0 OLExtpImageNormal to iImageId
151 Set Private_piImage to iImageId
152
153 If (IsComObjectCreated(Self)) Begin
154 Set ComIconID to iImageId
155 End
156 End_Procedure
157
158 Function psImage Returns String
159 Function_Return (Private_psImage(Self))
160 End_Function
161
162 //-------------------------------------------------------------------------
163
164 Procedure Setup_Pane
165 Handle hoWnd hoClient ii
166 Variant vPane
167 Integer iOptions
168
169 Get Create_Pane (piId(Self)) (piHeight(Self)) (piWidth(Self)) (peLocation(Self)) (piNeighbour(Self)) (Self) to vPane //Docking Manager
170 Set pvComObject to vPane
171 Set ComTitle to (psTitle(Self))
172 Set ComIconId to (Private_piImage(Self))
173
174 If (piSideDockingOffset(Self) > -1) Begin
175 Send ComDockSidePane vPane (piSideDockingOffset(Self)) (peLocation(Self)) //Docking Manager
176 End
177
178 Set ComHidden to (pbInitiallyHidden(Self))
179
180 //Set Options
181 Move 0 to iOptions
182 If (not(pbCloseable (Self))) Move (iOptions ior OLEPaneNoCloseable ) to iOptions
183 If (not(pbHideable (Self))) Move (iOptions ior OLEPaneNoHideable ) to iOptions
184 If (not(pbFloatable (Self))) Move (iOptions ior OLEPaneNoFloatable ) to iOptions
185 If (not(pbCaption (Self))) Move (iOptions ior OLEPaneNoCaption ) to iOptions
186 If ( pbMenuButton(Self)) Move (iOptions ior OLEPaneHasMenuButton) to iOptions
187 If (not(pbDockable (Self))) Move (iOptions ior OLEPaneNoDockable ) to iOptions
188 Set ComOptions to iOptions
189
190 End_Procedure
191
192 //-------------------------------------------------------------------------
193 //Events
194 //-------------------------------------------------------------------------
195
196 { MethodType=Event }
197 Procedure OnClosed Boolean ByRef bCancel
198 End_Procedure
199
200 { MethodType=Event }
201 Procedure OnClosing Boolean ByRef bCancel
202 End_Procedure
203
204 { MethodType=Event }
205 Procedure OnCollapsed Boolean ByRef bCancel
206 End_Procedure
207
208 { MethodType=Event }
209 Procedure OnCollapsing Boolean ByRef bCancel
210 End_Procedure
211
212 { MethodType=Event }
213 Procedure OnDocked Boolean ByRef bCancel
214 End_Procedure
215
216 { MethodType=Event }
217 Procedure OnExpanded Boolean ByRef bCancel
218 End_Procedure
219
220 { MethodType=Event }
221 Procedure OnExpanding Boolean ByRef bCancel
222 End_Procedure
223
224 { MethodType=Event }
225 Procedure OnFloated Boolean ByRef bCancel
226 End_Procedure
227
228 { MethodType=Event }
229 Procedure OnPinned Boolean ByRef bCancel
230 End_Procedure
231
232 { MethodType=Event }
233 Procedure OnUnPinned Boolean ByRef bCancel
234 End_Procedure
235
236End_Class
237
238//=============================================================================
239
240{ OverrideProperty=Attach_Parent_State DesignTime=False }
241{ OverrideProperty=Block_Mouse_State DesignTime=False }
242{ OverrideProperty=Client_Area_State DesignTime=False }
243{ OverrideProperty=Delegation_Mode DesignTime=False }
244{ OverrideProperty=Focus_Mode DesignTime=False }
245{ OverrideProperty=pbBindValue DesignTime=False }
246{ OverrideProperty=peAutoCreate DesignTime=False }
247{ OverrideProperty=peNeighborhood DesignTime=False }
248{ OverrideProperty=Popup_State DesignTime=False }
249{ OverrideProperty=Ring_State DesignTime=False }
250{ OverrideProperty=Scope_State DesignTime=False }
251{ OverrideProperty=Search_Case DesignTime=False }
252{ OverrideProperty=Skip_State DesignTime=False }
253{ OverrideProperty=Label DesignTime=False }
254{ OverrideProperty=Label_Col_Offset DesignTime=False }
255{ OverrideProperty=Label_Justification_Mode DesignTime=False }
256{ OverrideProperty=Label_Row_Offset DesignTime=False }
257{ OverrideProperty=Location DesignTime=False }
258{ OverrideProperty=peAnchors DesignTime=False }
259{ OverrideProperty=piMinSize DesignTime=False }
260{ OverrideProperty=Size DesignTime=False }
261{ OverrideProperty=TextColor DesignTime=False }
262{ OverrideProperty=Color DesignTime=False }
263{ OverrideProperty=Border_Style DesignTime=False }
264{ OverrideProperty=Enabled_State DesignTime=False }
265{ OverrideProperty=Visible_State DesignTime=False }
266{ OverrideProperty=Help_Id DesignTime=False }
267{ OverrideProperty=Help_Keyword DesignTime=False }
268{ OverrideProperty=psHtmlHelpTopic DesignTime=False }
269{ OverrideProperty=Status_Help DesignTime=False }
270{ OverrideProperty=Use_Parent_Status_Help DesignTime=False }
271{ OverrideProperty=psLicenseKey DesignTime=False }
272{ OverrideProperty=psProgID DesignTime=False }
273Class cSigCjDockingManager is a cSigCjComDockingPane
274 Import_Class_Protocol cSigCJMethods_Mixin
275
276 Procedure Construct_Object
277 Forward Send Construct_Object
278
279 Set peAutoCreate to acDeferredAutoCreate
280
281 //---------------------------------------------------------------------
282 //Private Properties
283 { DesignTime=False}
284 Property Handle Private_phoLayout (Create(Self, U_cSigCjDockingPaneLayout))
285 { DesignTime=False}
286 Property Handle Private_phoOptions (Create(Self, U_cSigCjComDockingPaneOptions))
287 { DesignTime=False}
288 Property Handle Private_phoPaintManager (Create(Self, U_cSigCjComDockingPanePaintManager))
289 { DesignTime=False}
290 Property Handle Private_phoPane (Create(Self, U_cSigCjComPane))
291
292 { DesignTime=False}
293 Property Integer[] piVDF_Objects
294
295 { Category="CodeJock" InitialValue=eDP_No_Events }
296 { EnumList="eDP_No_Events, eDP_Direct_To_Manager, eDP_Direct_To_Panes, eDP_Direct_To_Both" }
297 Property Integer peEventDirector eDP_No_Events
298
299 { Category="CodeJock" }
300 Property Boolean pbPX_Save_Layout False
301 { Category="CodeJock" }
302 Property String psPX_Tag ""
303 { Category="CodeJock" }
304 Property Handle phoContainerObject 0
305
306 //---------------------------------------------------------------------
307 //Docking Manager Properties
308 { DesignTime=False}
309 #IF (SigCj_Codejock_Version < 150001)
310 Property Integer Private_peVisualTheme OLEThemeOffice2007
311 #ELSE
312 Property Integer Private_peVisualTheme OLEThemeResource
313 #ENDIF
314
315 //---------------------------------------------------------------------
316 //Options Properties
317 { DesignTime=False}
318 Property Integer Private_peStickerStyle OLEStickerStyleWhidbey
319 { DesignTime=False}
320 Property Boolean Private_pbShowFloatingFramePinButton True
321 { DesignTime=False}
322 Property Boolean Private_pbLockSplitters False
323 { DesignTime=False}
324 Property Boolean Private_pbShowDockingPosition True
325 { DesignTime=False}
326 Property Boolean Private_pbShowDockingStickers True
327 { DesignTime=False}
328 Property Boolean Private_pbSideDocking True
329 { DesignTime=False}
330 Property Boolean Private_pbSyncActiveFloatingFrames True
331 { DesignTime=False}
332 Property Boolean Private_pbThemedFloatingFrames True
333
334 { DesignTime=False}
335 Property Integer Private_piSideMargin_Left 3
336 { DesignTime=False}
337 Property Integer Private_piSideMargin_Right 3
338 { DesignTime=False}
339 Property Integer Private_piSideMargin_Top 3
340 { DesignTime=False}
341 Property Integer Private_piSideMargin_Bottom 3
342
343 //---------------------------------------------------------------------
344 //Paint Manager Properties
345 { DesignTime=False}
346 Property Boolean Private_pbHighLightActiveCaption True
347 { DesignTime=False}
348 Property Integer Private_piSplitterColor
349 { DesignTime=False}
350 Property Integer Private_piSplitterSize 4 //Codejock default
351 { DesignTime=False}
352 Property Boolean Private_pbDrawCaptionIcon True
353 End_Procedure
354
355 //-------------------------------------------------------------------------
356
357 Procedure OnCreate
358 Boolean bVoid
359 Handle hoContainer
360 Variant vObject
361 Integer iWork
362
363 Forward Send OnCreate
364
365 //---------------------------------------------------------------------
366 //Connect to View if required
367 Get phoContainerObject to hoContainer
368 If (hoContainer > 0) Begin
369 Send ComAttachToWindow (Window_Handle(hoContainer))
370 End
371
372 //---------------------------------------------------------------------
373 //Link to Command Bars
374 If ((ghoCommandBars > 0) and (hoContainer = 0)) Begin
375 Get pvComObject of ghoCommandBars to vObject
376 Send ComSetCommandBars vObject
377 End
378
379 //---------------------------------------------------------------------
380 //Docking Manager Properties - Set Theme
381
382 Set peVisualTheme to (Private_peVisualTheme(Self))
383
384 //---------------------------------------------------------------------
385 //Link Embedded objects
386
387 Get ComLayout to vObject
388 Set pvComObject of (Private_phoLayout(Self)) to vObject
389
390 Get ComOptions to vObject
391 Set pvComObject of (Private_phoOptions(Self)) to vObject
392
393 Get ComPaintManager to vObject
394 Set pvComObject of (Private_phoPaintManager(Self)) to vObject
395
396 Get ComIcons of ghoSigCjGlobalSetting to vObject
397 Set ComIcons to vObject
398
399 //---------------------------------------------------------------------
400 //Property Exchnage Tag
401
402 Set psPX_Tag of (Private_phoLayout(Self)) to (psPX_Tag(Self))
403 Set pbPX_Save_Layout of (Private_phoLayout(Self)) to (pbPX_Save_Layout(Self))
404
405 //---------------------------------------------------------------------
406 //Set Options Properties
407
408 Set peStickerStyle to (Private_peStickerStyle(Self))
409 Set pbShowFloatingFramePinButton to (Private_pbShowFloatingFramePinButton(Self))
410 Set pbLockSplitters to (Private_pbLockSplitters(Self))
411 Set pbShowDockingPosition to (Private_pbShowDockingPosition(Self))
412 Set pbSideDocking to (Private_pbSideDocking(Self))
413 Set pbShowDockingStickers to (Private_pbShowDockingStickers(Self))
414 Set pbSyncActiveFloatingFrames to (Private_pbSyncActiveFloatingFrames(Self))
415 Set pbThemedFloatingFrames to (Private_pbThemedFloatingFrames(Self))
416
417 Get ComSetSideDockingMargin of (Private_phoOptions(Self)) ;
418 (Private_piSideMargin_Left(Self)) ;
419 (Private_piSideMargin_Top(Self)) ;
420 (Private_piSideMargin_Right(Self)) ;
421 (Private_piSideMargin_Bottom(Self)) ;
422 to bVoid
423
424 //---------------------------------------------------------------------
425 //Set Paint Manager Properties
426 Set pbHighLightActiveCaption to (Private_pbHighLightActiveCaption(Self))
427 Set piSplitterSize to (Private_piSplitterSize(Self))
428 Set pbDrawCaptionIcon to (Private_pbDrawCaptionIcon(Self))
429
430 If (Private_piSplitterColor(Self) = 0) Begin
431 //If no default color set then update DF side with COM side
432 Get ComSplitterColor of (Private_phoPaintManager(Self)) to iWork
433 Set Private_piSplitterColor to iWork
434 End
435 Else Begin
436 //Color set so update COM side
437 Set piSplitterColor to (Private_piSplitterColor(Self))
438 End
439
440 //setup the docking panes
441 Broadcast Send Setup_Pane
442
443 //Load layout from registry
444 Send PX_Load of (Private_phoLayout(Self))
445 End_Procedure
446
447 //-------------------------------------------------------------------------
448
449 Function Create_Pane Integer iID Integer iHeight Integer iWidth Integer eLocation Integer iNeighbour Handle hoVDF_Object Returns Variant
450 Integer[] iVDF_Objects
451 Variant vPane vNeighbour
452
453 If (iNeighbour > 0) Begin
454 Get ComFindPane iNeighbour to vNeighbour
455 Get ComCreatePane iID iWidth iHeight eLocation vNeighbour to vPane
456 End
457 Else Begin
458 Get ComCreatePane iID iWidth iHeight eLocation Nothing to vPane
459 End
460
461 //Keep track of VDF object
462 Get piVDF_Objects to iVDF_Objects
463 Move hoVDF_Object to iVDF_Objects[iID]
464 Set piVDF_Objects to iVDF_Objects
465
466 Function_Return vPane
467 End_Function
468
469 //-------------------------------------------------------------------------
470
471 Procedure Deactivating Returns Integer
472 Integer iRetVal
473 Forward Get msg_Deactivating to iRetVal
474
475 Send PX_Save of (Private_phoLayout(Self))
476
477 Procedure_Return iRetVal
478 End_Procedure
479
480 //-------------------------------------------------------------------------
481
482 Procedure OnComAttachPane Variant llItem
483 Handle hoClient hoPane hWnd hoVDF_Object
484 Integer eClientType iID
485 Integer[] iVDF_Objects
486
487 Get Private_phoPane to hoPane
488 Set pvComObject of hoPane to llItem
489 Get ComId of hoPane to iID
490
491 Get piVDF_Objects to iVDF_Objects
492 Move iVDF_Objects[iID] to hoVDF_Object
493 Move (phoClientObject(hoVDF_Object)) to hoClient
494 Move (peClientType (hoVDF_Object)) to eClientType
495
496 If (eClientType = eDP_ActiveX) Begin
497 Get ComHwnd of hoClient to hWnd
498 End
499 Else Begin //(eClientType = eDP_Normal)
500 Get Window_Handle of hoClient to hWnd
501 End
502
503 Set ComHandle of hoPane to hWnd
504 End_Procedure
505
506 //-------------------------------------------------------------------------
507
508 Procedure ShowPane Integer iId
509 Send ComShowPane iID
510 End_Procedure
511
512 //-------------------------------------------------------------------------
513
514 Function IsPaneClosed Integer iId Returns Boolean
515 Boolean bClosed
516 Handle hoPane
517 Variant vPane
518
519 Get Private_phoPane to hoPane
520 If (hoPane) Begin
521 Get ComFindPane iId to vPane
522 Set pvComObject of hoPane to vPane
523
524 Get ComClosed of hoPane to bClosed
525 End
526 Function_Return bClosed
527 End_Function
528
529 //-------------------------------------------------------------------------
530 //Events
531 //-------------------------------------------------------------------------
532
533 { MethodType=Event }
534 Procedure OnClosed Integer iPane Boolean ByRef bCancel
535 End_Procedure
536
537 { MethodType=Event }
538 Procedure OnClosing Integer iPane Boolean ByRef bCancel
539 End_Procedure
540
541 { MethodType=Event }
542 Procedure OnCollapsed Integer iPane Boolean ByRef bCancel
543 End_Procedure
544
545 { MethodType=Event }
546 Procedure OnCollapsing Integer iPane Boolean ByRef bCancel
547 End_Procedure
548
549 { MethodType=Event }
550 Procedure OnDocked Integer iPane Boolean ByRef bCancel
551 End_Procedure
552
553 { MethodType=Event }
554 Procedure OnExpanded Integer iPane Boolean ByRef bCancel
555 End_Procedure
556
557 { MethodType=Event }
558 Procedure OnExpanding Integer iPane Boolean ByRef bCancel
559 End_Procedure
560
561 { MethodType=Event }
562 Procedure OnFloated Integer iPane Boolean ByRef bCancel
563 End_Procedure
564
565 { MethodType=Event }
566 Procedure OnPinned Integer iPane Boolean ByRef bCancel
567 End_Procedure
568
569 { MethodType=Event }
570 Procedure OnUnPinned Integer iPane Boolean ByRef bCancel
571 End_Procedure
572
573 { DesignTime=False }
574 Procedure OnComAction OLEDockingPaneAction llAction Variant llPane Variant llContainer Boolean ByRef llCancel
575 Handle hoPane
576 Integer iPane eEvent_Director
577 Integer[] iVDF_Objects
578
579 Get piVDF_Objects to iVDF_Objects
580
581 Get peEventDirector to eEvent_Director
582 If (eEvent_Director <> eDP_No_Events) Begin
583 Get Private_phoPane to hoPane
584 Set pvComObject of hoPane to llPane
585 Get ComId of hoPane to iPane
586
587 Case Begin
588 Case (llAction = OLEPaneActionClosed)
589 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnClosed of iVDF_Objects[iPane] (&llCancel)
590 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnClosed iPane (&llCancel)
591 Case Break
592
593 Case (llAction = OLEPaneActionClosing)
594 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnClosing of iVDF_Objects[iPane] (&llCancel)
595 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnClosing iPane (&llCancel)
596 Case Break
597
598 Case (llAction = OLEPaneActionCollapsed)
599 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnCollapsed of iVDF_Objects[iPane] (&llCancel)
600 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnCollapsed iPane (&llCancel)
601 Case Break
602
603 Case (llAction = OLEPaneActionCollapsing)
604 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnCollapsing of iVDF_Objects[iPane] (&llCancel)
605 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnCollapsing iPane (&llCancel)
606 Case Break
607
608 Case (llAction = OLEPaneActionDocked)
609 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnDocked of iVDF_Objects[iPane] (&llCancel)
610 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnDocked iPane (&llCancel)
611 Case Break
612
613 Case (llAction = OLEPaneActionExpanded)
614 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnExpanded of iVDF_Objects[iPane] (&llCancel)
615 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnExpanded iPane (&llCancel)
616 Case Break
617
618 Case (llAction = OLEPaneActionExpanding)
619 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnExpanding of iVDF_Objects[iPane] (&llCancel)
620 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnExpanding iPane (&llCancel)
621 Case Break
622
623 Case (llAction = OLEPaneActionFloated)
624 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnFloated of iVDF_Objects[iPane] (&llCancel)
625 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnFloated iPane (&llCancel)
626 Case Break
627
628 Case (llAction = OLEPaneActionPinned)
629 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnPinned of iVDF_Objects[iPane] (&llCancel)
630 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnPinned iPane (&llCancel)
631 Case Break
632
633 Case (llAction = OLEPaneActionUnPinned)
634 If (eEvent_Director iand eDP_Direct_To_Panes) Send OnUnPinned of iVDF_Objects[iPane] (&llCancel)
635 If (eEvent_Director iand eDP_Direct_To_Manager) Send OnUnPinned iPane (&llCancel)
636 Case Break
637 Case End
638 End
639 End_Procedure
640
641 //-------------------------------------------------------------------------
642 //Docking Manager Properties
643 //-------------------------------------------------------------------------
644
645 #IF (SigCj_Codejock_Version < 150001)
646 { MethodType=Property Category="CodeJock" InitialValue=OLEThemeOffice2007 }
647 { EnumList="OLEThemeDefault, OLEThemeOffice, OLEThemeOffice2003, OLEThemeNativeWinXP, OLEThemeGrippered, OLEThemeVisio, OLEThemeWhidbey, OLEThemeShortcutBar2003, OLEThemeExplorer, OLEThemeVisualStudio2005, OLEThemeOffice2007, OLEThemeWord2007" }
648 #ELSE
649 { MethodType=Property Category="CodeJock" InitialValue=OLEThemeResource }
650 { EnumList="OLEThemeDefault, OLEThemeOffice, OLEThemeOffice2003, OLEThemeNativeWinXP, OLEThemeGrippered, OLEThemeVisio, OLEThemeWhidbey, OLEThemeShortcutBar2003, OLEThemeExplorer, OLEThemeVisualStudio2005, OLEThemeResource, OLEThemeWord2007, OLEThemeOutlook2007, OLEThemeVisualStudio6 OLEThemeVisualStudio2005Beta2, OLEThemeVisualStudio2008, OLEThemeVisualStudio2010" }
651 #ENDIF
652 Procedure Set peVisualTheme Integer iVisualTheme
653 Set SigCJProperty Set_Private_peVisualTheme Set_ComVisualTheme to iVisualTheme
654 End_Procedure // peVisualTheme
655
656 Function peVisualTheme Returns Integer
657 Function_Return (SigCJProperty(Self, Get_Private_peVisualTheme, Get_ComVisualTheme))
658 End_Function // peVisualTheme
659
660 //-------------------------------------------------------------------------
661 //Options Properties
662 //-------------------------------------------------------------------------
663
664 { MethodType=Property Category="CodeJock" InitialValue=OLEStickerStyleWhidbey }
665 { EnumList="OLEStickerStyleWhidbey, OLEStickerStyleStudio2005" }
666 Procedure Set peStickerStyle Integer iStyle
667 Set SigCJProperty Set_Private_peStickerStyle Set_ComStickerStyle (Private_phoOptions(Self)) to iStyle
668 End_Procedure
669
670 Function peStickerStyle Returns Boolean
671 Function_Return (SigCJProperty(Self, Get_Private_peStickerStyle, Get_ComStickerStyle, (Private_phoOptions(Self)) ))
672 End_Function
673
674 //-------------------------------------------------------------------------
675
676 { MethodType=Property Category="CodeJock" InitialValue=True }
677 Procedure Set pbShowFloatingFramePinButton Boolean bState
678 Set SigCJProperty Set_Private_pbShowFloatingFramePinButton Set_ComShowFloatingFramePinButton (Private_phoOptions(Self)) to bState
679 End_Procedure
680
681 Function pbShowFloatingFramePinButton Returns Boolean
682 Function_Return (SigCJProperty(Self, Get_Private_pbShowFloatingFramePinButton, Get_ComShowFloatingFramePinButton, (Private_phoOptions(Self)) ))
683 End_Function
684
685 //-------------------------------------------------------------------------
686
687 { MethodType=Property Category="CodeJock" InitialValue=False }
688 Procedure Set pbLockSplitters Boolean bState
689 Set SigCJProperty Set_Private_pbLockSplitters Set_ComLockSplitters (Private_phoOptions(Self)) to bState
690 End_Procedure
691
692 Function pbLockSplitters Returns Boolean
693 Function_Return (SigCJProperty(Self, Get_Private_pbLockSplitters, Get_ComLockSplitters, (Private_phoOptions(Self)) ))
694 End_Function
695
696 //-------------------------------------------------------------------------
697
698 { MethodType=Property Category="CodeJock" InitialValue=True }
699 Procedure Set pbShowDockingPosition Boolean bState
700 Set SigCJProperty Set_Private_pbShowDockingPosition Set_ComAlphaDockingContext (Private_phoOptions(Self)) to bState
701 End_Procedure
702
703 Function pbShowDockingPosition Returns Boolean
704 Function_Return (SigCJProperty(Self, Get_Private_pbShowDockingPosition, Get_ComAlphaDockingContext, (Private_phoOptions(Self)) ))
705 End_Function
706
707 //-------------------------------------------------------------------------
708
709 { MethodType=Property Category="CodeJock" InitialValue=True }
710 Procedure Set pbSideDocking Boolean bState
711 Set SigCJProperty Set_Private_pbSideDocking Set_ComSideDocking (Private_phoOptions(Self)) to bState
712 End_Procedure
713
714 Function pbSideDocking Returns Boolean
715 Function_Return (SigCJProperty(Self, Get_Private_pbSideDocking, Get_ComSideDocking, (Private_phoOptions(Self)) ))
716 End_Function
717
718 //-------------------------------------------------------------------------
719
720 { MethodType=Property Category="CodeJock" InitialValue=False }
721 Procedure Set pbShowDockingStickers Boolean bState
722 Set SigCJProperty Set_Private_pbShowDockingStickers Set_ComShowDockingContextStickers (Private_phoOptions(Self) )to bState
723 End_Procedure
724
725 Function pbShowDockingStickers Returns Boolean
726 Function_Return (SigCJProperty(Self, Get_Private_pbShowDockingStickers, Get_ComShowDockingContextStickers, (Private_phoOptions(Self)) ))
727 End_Function
728
729 //-------------------------------------------------------------------------
730
731 { MethodType=Property Category="CodeJock" InitialValue=True }
732 Procedure Set pbSyncActiveFloatingFrames Boolean bState
733 Set SigCJProperty Set_Private_pbSyncActiveFloatingFrames Set_ComSyncActiveFloatingFrames (Private_phoOptions(Self)) to bState
734 End_Procedure
735
736 Function pbSyncActiveFloatingFrames Returns Boolean
737 Function_Return (SigCJProperty(Self, Get_Private_pbSyncActiveFloatingFrames, Get_ComSyncActiveFloatingFrames, (Private_phoOptions(Self)) ))
738 End_Function
739
740 //-------------------------------------------------------------------------
741
742 { MethodType=Property Category="CodeJock" InitialValue=True }
743 Procedure Set pbThemedFloatingFrames Boolean bState
744 Set SigCJProperty Set_Private_pbThemedFloatingFrames Set_ComThemedFloatingFrames (Private_phoOptions(Self)) to bState
745 End_Procedure
746
747 Function pbThemedFloatingFrames Returns Boolean
748 Function_Return (SigCJProperty(Self, Get_Private_pbThemedFloatingFrames, Get_ComThemedFloatingFrames, (Private_phoOptions(Self)) ))
749 End_Function
750
751 //-------------------------------------------------------------------------
752 //Paint Manager Properties
753 //-------------------------------------------------------------------------
754
755 { MethodType=Property Category="CodeJock" InitialValue=True }
756 Procedure Set pbDrawCaptionIcon Boolean bState
757 Set SigCJProperty Set_Private_pbDrawCaptionIcon Set_ComDrawCaptionIcon (Private_phoPaintManager(Self)) to bState
758 End_Procedure
759
760 Function pbDrawCaptionIcon Returns Boolean
761 Function_Return (SigCJProperty(Self, Get_Private_pbDrawCaptionIcon, Get_ComDrawCaptionIcon, (Private_phoPaintManager(Self)) ))
762 End_Function
763
764 //-------------------------------------------------------------------------
765
766 { MethodType=Property Category="CodeJock" InitialValue=True }
767 Procedure Set pbHighLightActiveCaption Boolean bState
768 Set SigCJProperty Set_Private_pbHighLightActiveCaption Set_ComHighlightActiveCaption (Private_phoPaintManager(Self)) to bState
769 End_Procedure
770
771 Function pbHighLightActiveCaption Returns Boolean
772 Function_Return (SigCJProperty(Self, Get_Private_pbHighLightActiveCaption, Get_ComHighlightActiveCaption, (Private_phoPaintManager(Self)) ))
773 End_Function
774
775 //-------------------------------------------------------------------------
776
777 { MethodType=Property Category="CodeJock" }
778 Procedure Set piSplitterColor Integer iColor
779 Set SigCJProperty Set_Private_piSplitterColor Set_ComSplitterColor (Private_phoPaintManager(Self)) to iColor
780 End_Procedure
781
782 Function piSplitterColor Returns Integer
783 Function_Return (SigCJProperty(Self, Get_Private_piSplitterColor, Get_ComSplitterColor, (Private_phoPaintManager(Self)) ))
784 End_Function
785
786 //-------------------------------------------------------------------------
787
788 { MethodType=Property Category="CodeJock" InitialValue=4 }
789 Procedure Set piSplitterSize Integer iSize
790 Set SigCJProperty Set_Private_piSplitterSize Set_ComSplitterSize (Private_phoPaintManager(Self)) to iSize
791 End_Procedure
792
793 Function piSplitterSize Returns Integer
794 Function_Return (SigCJProperty(Self, Get_Private_piSplitterSize, Get_ComSplitterSize, (Private_phoPaintManager(Self)) ))
795 End_Function
796
797End_Class
798
799//=============================================================================
800//End of Package - cSigCJDockingPanes.pkg
801//=============================================================================
802