Changeset 208 for Docking/CoolDocking/UCDManager.pas

Timestamp:

Mar 18, 2011, 1:24:37 PM (14 years ago)

Author:

george

Message:

• Fixed: Controls docked in Popup Tabs Manager was not removed due wrong RemoveControl method inheritance.
• Fixed: Tabs in Tabs manager was not update properly.
• Added: HeaderPos stored in Layout.

File:

• Docking/CoolDocking/UCDManager.pas (modified) (2 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -219 +219 @@
   end;
   //OnResize := ResizeExecute;
-  //BevelInner := bvNone;
-  //BevelOuter := bvNone;
+  BevelInner := bvNone;
+  BevelOuter := bvNone;
   HeaderVisible := True;
 end;
@@ -468 +468 @@
 
 procedure TCDManager.RemoveControl(Control: TControl);
-//var
-//  ClientPanel: TCDClientPanel;
-begin
-  //DockStyleHandler.RemoveControl(Control);
-  //inherited;
-(*  if Control.HostDockSite = Self.FDockSite then begin
-    ClientPanel := FindControlInPanels(Control);
-
-    //if Assigned(ClientPanel) then ClientPanel.Splitter.Free;
-    //Control.RemoveHandlerOnVisibleChanged(ClientPanel.VisibleChange);
-    FDockPanels.Remove(ClientPanel);
-    DockStyleHandler.RemoveControl(Control);
-    UpdateClientSize;
-    //FDockSite.Invalidate;
-    //if (FDockSite is TCDConjoinForm) and (FDockSite.DockClientCount = 1) then
-    //  FDockSite.Free;
-    DockStyle := DockStyle;
-  end;
-  *)
+begin
 end;