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

Timestamp:

Mar 18, 2011, 11:05:39 AM (14 years ago)

Author:

george

Message:

• Fixed: PopupForm auto resize on parent resize.
• Added: Option in popup menu for change visibility of dock panel header.

File:

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

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -67 +67 @@
     //R := Control.ClientRect;
     //Canvas.FillRect(R);
-    Header.Visible := ShowHeader;
-    if ShowHeader then begin
+    if Visible then begin
       if ControlPanel.DockClientCount = 0 then
         Header.DrawGrabber(Canvas, Control) else
@@ -162 +161 @@
 
   NewItem.PanelHeader.Parent := DockSite;
-  NewItem.PanelHeader.Header.Title.Caption := TForm(Control).Caption;
 
   NewItem.Control := Control;
@@ -290 +288 @@
     PanelHeader.Width := Self.DockSite.Width div
       Self.DockSite.DockClientCount;
+    PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
+    PanelHeader.Header.Title.Caption := TForm(Control).Caption;
     Paint(Self);
     if I < (DockItems.Count - 1) then PanelHeader.Align := BaseAlign