Changeset 198 for Docking/CoolDocking/Demo/IDE/UMainForm.pas

Timestamp:

Mar 16, 2011, 12:32:41 PM (14 years ago)

Author:

george

Message:

• Fixed: Popup submenus style and position item selection.
• Added: Locking dock managers.
• Modified: Enhanced auto popup tabs handling. Not yet finished.
• Modified: Dock manager position united for all dock manager descendands.

File:

• Docking/CoolDocking/Demo/IDE/UMainForm.pas (modified) (4 diffs)

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -12 +12 @@
   UWatchListForm, UThreadStatusForm, USourceEditorForm, UCDWindowList,
   UCDCustomize, UComponentTree, UCDConjoinForm, UCDManager,
-  UCDMaster;
+  UCDMaster, UCDCommon;
 
 const
@@ -160 +160 @@
   if not Assigned(DefaultLayout) then begin
     NewContainer1 := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
-    NewContainer1.Show;
+    TCDManager(NewContainer1.DockManager).DockStyle := dsPopupTabs;
+    TCDManager(NewContainer1.DockManager).HeaderPos := hpLeft;
 
     StructureForm.ManualDock(NewContainer1, nil, alTop);
@@ -168 +169 @@
 
     NewContainer2 := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
-    NewContainer2.Show;
+    TCDManager(NewContainer2.DockManager).DockStyle := dsPopupTabs;
+    TCDManager(NewContainer2.DockManager).HeaderPos := hpRight;
     ProjectManagerForm.ManualDock(NewContainer2, nil, alTop);
     ProjectManagerForm.Show;
@@ -175 +177 @@
 
     NewContainer1.ManualDock(DockPanel);
+    NewContainer1.Show;
     SourceEditorForm.ManualDock(DockPanel);
     SourceEditorForm.Show;
     NewContainer2.ManualDock(DockPanel);
+    NewContainer2.Show;
 
     DefaultLayout := TCDLayout.Create;