Changeset 184 for Docking/CoolDocking/UCoolDockStyleRegions.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/UCoolDockStyleRegions.pas (modified) (4 diffs)

Docking/CoolDocking/UCoolDockStyleRegions.pas

@@ -73 +73 @@
         NewDockSite := DockSite.HostDockSite;
         // FDockSite.ManualFloat(FDockSite.BoundsRect);
+        AControl.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
+        if DockSite is TForm then
+          DockSite.ManualDock(NewConjoinDockForm.Panel)
+        else
+        if DockSite is TPanel then
+          DockSite.Parent.ManualDock(NewConjoinDockForm.Panel);
         NewConjoinDockForm.ManualDock(NewDockSite);
-        DockSite.ManualDock(NewConjoinDockForm.Panel);
-        AControl.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
+        UpdateClientSize;
         Exit;
       end;
@@ -83 +88 @@
     with NewPanel do begin
       Parent := TCoolDockManager(Manager).DockSite;
-      OwnerDockManager := Self;
+      OwnerDockManager := Manager;
       if DockStyle = dsList then Visible := True;
       Header.PopupMenu := TCoolDockManager(Manager).PopupMenu;
@@ -103 +108 @@
 
 procedure TCoolDockStyleRegions.RemoveControl(Control: TControl);
-begin
+var
+  ClientPanel: TCoolDockClientPanel;
+begin
+  ClientPanel := TCoolDockManager(Manager).FindControlInPanels(Control);
+  Control.RemoveHandlerOnVisibleChanged(ClientPanel.VisibleChange);
+
   if TCoolDockManager(Manager).DockSite.DockClientCount = 2 then FDockDirection := ddNone;
   inherited RemoveControl(Control);
@@ -174 +184 @@
     Splitter.Parent := TCoolDockManager(Manager).DockSite;
     Splitter.Align := BaseAlign;
-    Splitter.Visible := True;
+    Splitter.Visible := I < (DockPanels.Count - 1);