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

Timestamp:

Apr 26, 2012, 9:12:02 AM (12 years ago)

Author:

chronos

Message:

• Added: CoolDocking text logging support.
• Added: CoolDocking update locking on TCDManager descendants update. This fixes tab disappear if tab with regions style conjoinform was switched to another tab.
• Modified: CoolDocking regions style item layout changed to support aligned forms. Only one region is aligned as alClient. Rest contained regions are aligned to borders.

File:

• Docking/CoolDocking/Demo/Testing/UMainForm.pas (modified) (1 diff)

Docking/CoolDocking/Demo/Testing/UMainForm.pas

@@ -72 +72 @@
   ConjoinedDockForm1: TCDConjoinForm;
   ConjoinedDockForm2: TCDConjoinForm;
+  Form1: TDockForm;
 begin
   NewDockForm.ManualDock(Panel1);
-  NewDockForm.ManualDock(Panel1);
+  Form1 := NewDockForm;
+  Form1.ManualDock(Panel1);
+  NewDockForm.ManualDock(Form1);
+  TCDManager(Panel1.DockManager).DockStyle := dsTabs;
 (*  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
   ConjoinedDockForm1.Name := 'Model';;