Changeset 359 for Docking/CoolDocking/Demo/Testing/UMainForm.pas

Timestamp:

May 4, 2012, 12:27:25 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Regions size update on Control visible state change.
• Added: Support for custom center region selection. Surrounding regions are aligned to edges and keep size on docksite resize.

File:

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

Docking/CoolDocking/Demo/Testing/UMainForm.pas

@@ -9 +9 @@
   ComCtrls, ExtCtrls, Buttons, Menus, UCDMaster, UCDCustomize, UCDClient,
   UDockForm, UComponentTree, UCDWindowList, UCDConjoinForm, UCDManager,
-  UCDCommon;
+  UCDCommon, UCDManagerRegions;
 
 type
@@ -69 +69 @@
   ConjoinedDockForm2: TCDConjoinForm;
   Form1: TDockForm;
+  Form2: TDockForm;
+  Form3: TDockForm;
 begin
-  NewDockForm.ManualDock(Panel1);
   Form1 := NewDockForm;
-  Form1.ManualDock(Panel1);
-  NewDockForm.ManualDock(Form1);
-  TCDManager(Panel1.DockManager).DockStyle := dsTabs;
-  NewDockForm.ManualDock(Panel1);
+  Form1.ManualDock(Panel1, nil, alRight);
+  Form2 := NewDockForm;
+  Form2.ManualDock(Panel1, nil, alRight);
+  Form3 := NewDockForm;
+  Form3.ManualDock(Panel1, nil, alRight);
+  TCDManagerRegionsItem(TCDPanelHeader(Form2.Parent.Parent).DockItem).SetCenter;
+
+  //Form1 := NewDockForm;
+  //Form1.ManualDock(Panel1);
+  //NewDockForm.ManualDock(Form1);
+  //TCDManager(Panel1.DockManager).DockStyle := dsTabs;
+  //NewDockForm.ManualDock(Panel1);
 (*  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
   ConjoinedDockForm1.Name := 'Model';;