Changeset 209 for Docking/CoolDocking/Managers/UCDManagerRegions.pas

Timestamp:

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

Author:

george

Message:

 

File:

• Docking/CoolDocking/Managers/UCDManagerRegions.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);