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

Timestamp:

Dec 9, 2010, 2:15:54 PM (14 years ago)

Author:

george

Message:

• Upraveno: Rozdělení zobrazovaných stylů do více jednotek.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -69 +69 @@
   ConjoinedDockForm1 := TCoolDockManager(Panel1.DockManager).CreateContainer(alRight);
   ConjoinedDockForm1.Name := 'Model';;
-  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
+  //TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
   ConjoinedDockForm1.ManualDock(Panel1);
-  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
+  //TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);