Changeset 30 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Apr 25, 2011, 7:46:28 PM (14 years ago)

Author:

george

Message:

• Modified: Used new CoolDocking version.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (4 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UCompiler, Registry,
-  ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
-  UProject, FileUtil, Menus, ActnList, UCoolDocking,
-  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
-  UDebugLog, UAnalyzer, UProducer;
+  SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  UCompiler, Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
+  UCDManager, UProject, FileUtil, Menus, ActnList, UCDClient, UCDMaster,
+  UCDConjoinForm, UCDWindowList, UCDLayout, UCDCustomize, UCompiledForm,
+  UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo, UDebugLog,
+  UAnalyzer, UProducer;
 
 const
@@ -29 +29 @@
     ActionList1: TActionList;
     Button1: TButton;
+    CDCustomize1: TCDCustomize;
+    CDLayoutList1: TCDLayoutList;
+    CDWindowList1: TCDWindowList;
     CheckBoxLogParsing: TCheckBox;
     ComboBoxAnalyzer: TComboBox;
     ComboBoxProducer: TComboBox;
-    CoolDockClient1: TCoolDockClient;
-    CoolDockMaster1: TCoolDockMaster;
+    CoolDockClient1: TCDClient;
+    CoolDockMaster1: TCDMaster;
+    ImageList1: TImageList;
     Label1: TLabel;
     Label2: TLabel;
@@ -81 +85 @@
   MainForm: TMainForm;
 
+
 implementation
 
@@ -136 +141 @@
 procedure TMainForm.DockInit;
 var
-  Container1: TCoolDockConjoinForm;
-  Container2: TCoolDockConjoinForm;
+  Container1: TCDConjoinForm;
+  Container2: TCDConjoinForm;
 begin
   ProjectManager.ManualDock(DockPanel, nil, alLeft);
   ProjectManager.Show;
 
-  Container1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
+  Container1 := TCDManager(DockPanel.DockManager).CreateConjoinForm;
   Container1.Caption := 'Tools';
   Container1.Name := 'Tools';
   Container1.ManualDock(DockPanel, nil, alRight);
-
-  CodeTreeForm.ManualDock(DockPanel, nil, alLeft);
+  Container1.Show;
+  Container1.Parent.Parent.Width := MainForm.Width;
+
+  CodeTreeForm.ManualDock(DockPanel, nil, alRight);
   CodeTreeForm.Show;
-  Container1.Parent.Parent.Width := MainForm.Width;
-
-  Container2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
+
+  Container2 := TCDManager(DockPanel.DockManager).CreateConjoinForm;
   Container2.Caption := 'Panel';
   Container2.Name := 'Tools2';
-  Container2.ManualDock(Container1.Panel, nil, alRight);
-
-  MessagesForm.ManualDock(Container1.Panel, nil, alBottom);
+  Container2.ManualDock(Container1, nil, alRight);
+  Container2.Show;
+
+  MessagesForm.ManualDock(Container1, nil, alBottom);
   MessagesForm.Show;
 
-  CodeForm.ManualDock(Container2.Panel, nil, alTop);
+  CodeForm.ManualDock(Container2, nil, alTop);
   CodeForm.Show;
 
-  CompiledForm.ManualDock(Container2.Panel, nil, alTop);
-  CompiledForm.Show;
+
+  //CompiledForm.ManualDock(Container2.Panel, nil, alTop);
+  //CompiledForm.Show;
 
   //TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;
 
-  ProjectManager.Parent.Parent.Width := 200;
+  Container1.Parent.Parent.Width := MainForm.Width - ProjectManager.Width - 200;
   Container2.Parent.Parent.Height := MainForm.Height;
 end;