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

Timestamp:

Mar 23, 2011, 12:22:26 PM (13 years ago)

Author:

george

Message:

• Fixed: Parent manager tabs switching.

File:

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

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -161 +161 @@
   DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
   if not Assigned(DefaultLayout) then begin
-    NewContainer1 := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
+    NewContainer1 := TCDManager(DockPanel.DockManager).CreateConjoinForm;
     TCDManager(NewContainer1.DockManager).DockStyle := dsPopupTabs;
     TCDManager(NewContainer1.DockManager).HeaderPos := hpLeft;
+    NewContainer1.Visible := True;
 
     StructureForm.ManualDock(NewContainer1, nil, alTop);
@@ -170 +171 @@
     ObjectInspectorForm.Show;
 
-    NewContainer2 := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
+    NewContainer2 := TCDManager(DockPanel.DockManager).CreateConjoinForm;
     TCDManager(NewContainer2.DockManager).DockStyle := dsPopupTabs;
     TCDManager(NewContainer2.DockManager).HeaderPos := hpRight;
+    NewContainer2.Visible := True;
+
     ProjectManagerForm.ManualDock(NewContainer2, nil, alTop);
     ProjectManagerForm.Show;
@@ -178 +181 @@
     ToolPaletteForm.Show;
 
-    SourceCodeContainer := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
+    SourceCodeContainer := TCDManager(DockPanel.DockManager).CreateConjoinForm;
     TCDManager(SourceCodeContainer.DockManager).DockStyle := dsTabs;
     TCDManager(SourceCodeContainer.DockManager).HeaderPos := hpTop;
-
-    NewContainer1.ManualDock(DockPanel);
+    SourceCodeContainer.Visible := True;
+
+    //NewContainer1.ManualDock(DockPanel);
     NewContainer1.Show;
-//    SourceCodeContainer.ManualDock(DockPanel);
-//    SourceCodeContainer.Show;
-    NewContainer2.ManualDock(DockPanel);
+    SourceCodeContainer.ManualDock(DockPanel);
+    SourceCodeContainer.Show;
+    //NewContainer2.ManualDock(DockPanel);
     NewContainer2.Show;