Changeset 184 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Mar 10, 2011, 9:57:21 AM (14 years ago)

Author:

george

Message:

• Fixed: Placing new form inside regions with different orientation.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (3 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -297 +297 @@
       NewDockSite := FDockSite.HostDockSite;
 //      FDockSite.ManualFloat(FDockSite.BoundsRect);
-      NewConjoinDockForm.ManualDock(NewDockSite);
       FDockSite.ManualDock(NewConjoinDockForm.Panel);
       Control.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
+      NewConjoinDockForm.ManualDock(NewDockSite);
     end;
   end else
@@ -415 +415 @@
   NewConjoinDockForm.CoolDockClient.Master := Self.Master;
   NewDockSite := FDockSite.HostDockSite;
-  //      FDockSite.ManualFloat(FDockSite.BoundsRect);
-  NewConjoinDockForm.ManualDock(NewDockSite, nil, InsertAt);
+  // FDockSite.ManualFloat(FDockSite.BoundsRect);
+  //NewConjoinDockForm.ManualDock(NewDockSite, nil, InsertAt);
   Result := NewConjoinDockForm;
 end;
@@ -529 +529 @@
 begin
   inherited SetName(NewName);
-  Panel.Name := Name + '_Panel';
+  Panel.Name := Name + 'Panel';
   Panel.Caption := '';
-  CoolDockClient.Name := Name + '_CoolDockClient';
+  CoolDockClient.Name := Name + 'CoolDockClient';
 end;