Changeset 61 for Docking/CoolDocking/Demo/UMainForm.pas

Timestamp:

Sep 29, 2010, 9:14:55 AM (14 years ago)

Author:

george

Message:

• Opraveno: Obsluha událostí OnShow a OnHide.
• Opraveno: Zamezení ukotvení okna do sebe.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

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