Changeset 62 for Docking/CoolDocking/Demo

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.

Location:

Docking/CoolDocking/Demo

Files:

• Demo.lpi (modified) (3 diffs)
• UMainForm.pas (modified) (1 diff)

Docking/CoolDocking/Demo/Demo.lpi

@@ -54 +54 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMainForm"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="79"/>
-        <CursorPos X="19" Y="92"/>
+        <TopLine Value="58"/>
+        <CursorPos X="3" Y="71"/>
         <UsageCount Value="126"/>
         <Loaded Value="True"/>
@@ -339 +340 @@
         <Filename Value="..\UCoolDocking.pas"/>
         <UnitName Value="UCoolDocking"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="899"/>
-        <CursorPos X="76" Y="904"/>
+        <CursorPos X="20" Y="912"/>
         <UsageCount Value="53"/>
         <Loaded Value="True"/>
@@ -523 +523 @@
         <TopLine Value="126"/>
         <CursorPos X="89" Y="147"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="11"/>
         <Loaded Value="True"/>
       </Unit53>

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);