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

Timestamp:

Mar 22, 2011, 8:20:18 AM (14 years ago)

Author:

george

Message:

• Fixed: Tabs in TCDManagerTabs PageControl visibility update. If Control is hided it will not be visibled as tab but stay docked for later showing.

File:

• Docking/CoolDocking/Managers/UCDManagerRegions.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -60 +60 @@
 begin
   inherited VisibleChange(Sender);
-  PanelHeader.Visible := Control.Visible;
-  Manager.UpdateClientSize;
+  with TCDManagerRegions(Manager) do begin
+    //if TControl(Sender).Visible then begin
+    //  TCDManagerRegionsItem(DockItems[DockItems.IndexOf(FindControlInPanels(TControl(Sender)))]).HideType := dhtPermanent;
+    //end;
+    UpdateClientSize;
+  end;
 end;
 
@@ -306 +310 @@
       PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
     PanelHeader.Header.Title.Caption := TForm(Control).Caption;
+    PanelHeader.Visible := Control.Visible;
     Paint(Self);
     if I < (DockItems.Count - 1) then PanelHeader.Align := BaseAlign