Changeset 185 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Mar 10, 2011, 11:20:08 AM (14 years ago)

Author:

george

Message:

• Added: ConjoinForm cleanup if not necessary.

File:

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

Docking/CoolDocking/UCoolDocking.pas

@@ -297 +297 @@
       NewDockSite := FDockSite.HostDockSite;
 //      FDockSite.ManualFloat(FDockSite.BoundsRect);
+      NewConjoinDockForm.ManualDock(NewDockSite, nil, InsertAt);
       FDockSite.ManualDock(NewConjoinDockForm.Panel);
       Control.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
-      NewConjoinDockForm.ManualDock(NewDockSite);
     end;
   end else
@@ -366 +366 @@
   ClientPanel: TCoolDockClientPanel;
 begin
+  DockStyleHandler.RemoveControl(Control);
   //inherited;
-  if Control.HostDockSite = Self.FDockSite then begin
+(*  if Control.HostDockSite = Self.FDockSite then begin
     ClientPanel := FindControlInPanels(Control);
 
@@ -380 +381 @@
     DockStyle := DockStyle;
   end;
+  *)
 end;