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

Timestamp:

Mar 9, 2011, 2:11:40 PM (14 years ago)

Author:

george

Message:

• Added: Default layout initialization in Demo IDE.
• Fixed: Tab position switching through popup menu.

File:

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

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -95 +95 @@
     procedure FormShow(Sender: TObject);
   public
+    procedure InitDefaultDockLayout;
   end;
 
@@ -137 +138 @@
     if FileExistsUTF8(DockLayoutFileName) then
       LoadFromFile(DockLayoutFileName);
+    InitDefaultDockLayout;
     PopulateStringList(ComboBox1.Items);
+  end;
+end;
+
+procedure TMainForm.InitDefaultDockLayout;
+const
+  DefaultLayoutName = 'Default Layout';
+var
+  NewContainer1: TCoolDockConjoinForm;
+  NewContainer2: TCoolDockConjoinForm;
+  DefaultLayout: TCoolDockLayout;
+begin
+  DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
+  if not Assigned(DefaultLayout) then begin
+    NewContainer1 := TCoolDockConjoinForm.Create(nil);
+    NewContainer1.Show;
+
+    StructureForm.ManualDock(NewContainer1.Panel, nil, alTop);
+    StructureForm.Show;
+    ObjectInspectorForm.ManualDock(NewContainer1.Panel, nil, alTop);
+    ObjectInspectorForm.Show;
+
+    NewContainer2 := TCoolDockConjoinForm.Create(nil);
+    NewContainer2.Show;
+    ProjectManagerForm.ManualDock(NewContainer2.Panel, nil, alTop);
+    ProjectManagerForm.Show;
+    ToolPaletteForm.ManualDock(NewContainer2.Panel, nil, alTop);
+    ToolPaletteForm.Show;
+
+    NewContainer1.ManualDock(Panel1);
+    SourceEditorForm.ManualDock(Panel1);
+    SourceEditorForm.Show;
+    NewContainer2.ManualDock(Panel1);
+
+    DefaultLayout := TCoolDockLayout.Create;
+    DefaultLayout.Name := DefaultLayoutName;
+    CoolDockLayoutList1.Items.Add(DefaultLayout);
+    DefaultLayout.Store;
   end;
 end;