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

Timestamp:

Mar 10, 2011, 9:57:21 AM (14 years ago)

Author:

george

Message:

• Fixed: Placing new form inside regions with different orientation.

File:

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

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -11 +11 @@
   UMessagesForm, UCallStackForm, ULocalVariablesForm, UToDoListForm,
   UWatchListForm, UThreadStatusForm, USourceEditorForm, UCoolDockWindowList,
-  UCoolDockCustomize;
+  UCoolDockCustomize, UComponentTree;
 
 const
@@ -22 +22 @@
   TMainForm = class(TForm)
   published
+    AViewComponentTree: TAction;
     AExit: TAction;
     ANewFile: TAction;
@@ -57 +58 @@
     MenuItem20: TMenuItem;
     MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
     MenuItem23: TMenuItem;
     MenuItem24: TMenuItem;
@@ -73 +75 @@
     MenuItem1: TMenuItem;
     MainMenu1: TMainMenu;
-    Panel1: TPanel;
+    DockPanel: TPanel;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -80 +82 @@
     procedure AExitExecute(Sender: TObject);
     procedure ANewFileExecute(Sender: TObject);
+    procedure AViewComponentTreeExecute(Sender: TObject);
     procedure AViewThreadStatusExecute(Sender: TObject);
     procedure AViewCallStackExecute(Sender: TObject);
@@ -153 +156 @@
   DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
   if not Assigned(DefaultLayout) then begin
-    NewContainer1 := TCoolDockConjoinForm.Create(nil);
+    NewContainer1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
     NewContainer1.Show;
 
@@ -161 +164 @@
     ObjectInspectorForm.Show;
 
-    NewContainer2 := TCoolDockConjoinForm.Create(nil);
+    NewContainer2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
     NewContainer2.Show;
     ProjectManagerForm.ManualDock(NewContainer2.Panel, nil, alTop);
@@ -168 +171 @@
     ToolPaletteForm.Show;
 
-    NewContainer1.ManualDock(Panel1);
-    SourceEditorForm.ManualDock(Panel1);
+    NewContainer1.ManualDock(DockPanel);
+    SourceEditorForm.ManualDock(DockPanel);
     SourceEditorForm.Show;
-    NewContainer2.ManualDock(Panel1);
+    NewContainer2.ManualDock(DockPanel);
 
     DefaultLayout := TCoolDockLayout.Create;
@@ -220 +223 @@
     CoolDockLayoutList1.Items.Add(NewLayout);
   end else
-    TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.ItemIndex]).Store;
+    TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.Items.IndexOf(ComboBox1.Text)]).Store;
+  CoolDockLayoutList1.SaveToFile(DockLayoutFileName);
   CoolDockLayoutList1.PopulateStringList(ComboBox1.Items);
 end;
@@ -232 +236 @@
 begin
   SourceEditorForm.Show;
+end;
+
+procedure TMainForm.AViewComponentTreeExecute(Sender: TObject);
+begin
+  ComponentTree.Show;
 end;