Changeset 209 for Docking/CoolDocking/Managers

Timestamp:

Mar 18, 2011, 2:16:28 PM (14 years ago)

Author:

george

Message:

 

Location:

Docking/CoolDocking/Managers

Files:

• UCDManagerRegions.pas (modified) (4 diffs)
• UCDManagerTabs.pas (modified) (4 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -17 +17 @@
     PanelHeader: TCDPanelHeader;
     Splitter: TSplitter;
+    procedure VisibleChange(Sender: TObject); override;
     procedure Paint(Sender: TObject); override;
     constructor Create;
@@ -56 +57 @@
 { TCDManagerRegionsItem }
 
+procedure TCDManagerRegionsItem.VisibleChange(Sender: TObject);
+begin
+  inherited VisibleChange(Sender);
+  PanelHeader.Visible := Control.Visible;
+  Manager.UpdateClientSize;
+end;
+
 procedure TCDManagerRegionsItem.Paint(Sender: TObject);
 var
@@ -273 +281 @@
   SplitterTop: Integer;
   BaseAlign: TAlign;
+  VisibleControlsCount: Integer;
 begin
   inherited UpdateClientSize;
@@ -280 +289 @@
   SplitterLeft := 0;
   SplitterTop := 0;
+  VisibleControlsCount := DockSite.VisibleDockClientCount;
+  DockSite.Visible := VisibleControlsCount > 0;
+  if VisibleControlsCount = 0 then VisibleControlsCount := 1;
+
   for I := 0 to DockItems.Count - 1 do
-  with TCDManagerRegionsItem(DockItems[I]) do begin
+  with TCDManagerRegionsItem(DockItems[I]) do
+  begin
     PanelHeader.Left := SplitterLeft;
     PanelHeader.Top := SplitterTop;
     PanelHeader.Height := Self.DockSite.Height div
-      Self.DockSite.DockClientCount;
+      VisibleControlsCount;
     PanelHeader.Width := Self.DockSite.Width div
-      Self.DockSite.DockClientCount;
-    PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
+      VisibleControlsCount;
+    if Assigned(TWinControl(Control).DockManager) then
+      PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
     PanelHeader.Header.Title.Caption := TForm(Control).Caption;
     Paint(Self);

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -34 +34 @@
     procedure InsertControlPanel(AControl: TControl; InsertAt: TAlign;
       DropCtl: TControl); override;
-    procedure UpdateClientSize; override;
     function FindControlInPanels(Control: TControl): TCDManagerItem; override;
     function GetHeaderPos: THeaderPos; override;
@@ -41 +40 @@
     TabImageList: TImageList;
     PageControl: TPageControl;
+    procedure UpdateClientSize; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
     procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); virtual;
@@ -290 +290 @@
   end;
   inherited RemoveControl(Control);
-  if ClientCount > 1 then UpdateClientSize;
+  //if ClientCount > 0 then
+  UpdateClientSize;
 end;
 
@@ -348 +349 @@
 
   while PageControl.PageList.Count > DockItems.Count do begin
-    PageControl.Pages[PageControl.PageCount - 1].Parent := nil;
+    //PageControl.Pages[PageControl.PageCount - 1].Parent := nil;
     PageControl.Pages[PageControl.PageCount - 1].Free;
     TabImageList.Delete(TabImageList.Count - 1);