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

Timestamp:

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

Author:

george

Message:

• Upraveno: Zamezení ihned startu kotvení záložky při pokliku na záložku.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -64 +64 @@
 begin
   NewDockForm.ManualDock(Panel1);
- // NewDockForm.ManualDock(Panel1);
-  //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(Panel1);
+  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);
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);