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

Timestamp:

May 19, 2011, 3:14:19 PM (13 years ago)

Author:

george

Message:

• Fixed: Tab removing from PageControl in ManagerTabs.
• Fixed: Infinite loop in calling invalidate for ManagerTabs.
• Modified: Enhanced TRectangle class.

File:

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

Docking/CoolDocking/Demo/Testing/UMainForm.pas

@@ -75 +75 @@
   NewDockForm.ManualDock(Panel1);
   NewDockForm.ManualDock(Panel1);
-  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
+(*  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
   ConjoinedDockForm1.Name := 'Model';;
+  ConjoinedDockForm1.Show;
   //TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
   ConjoinedDockForm1.ManualDock(Panel1);
-  TCDManager(ConjoinedDockForm1.DockManager).DockStyle := dsTabs;
+  //TCDManager(ConjoinedDockForm1.DockManager).DockStyle := dsTabs;
   NewDockForm.ManualDock(ConjoinedDockForm1);
   NewDockForm.ManualDock(ConjoinedDockForm1);
-  NewDockForm.ManualDock(ConjoinedDockForm1);
+  //NewDockForm.ManualDock(ConjoinedDockForm1);
   //NewDockForm.ManualDock(TForm(DockForms[0]));
   //NewDockForm.ManualDock(TForm(DockForms[0]));
   //NewDockForm.ManualDock(TForm(DockForms[0]));
-  //TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs;
+  //TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs; *)
 end;