Changeset 207 for Docking/CoolDocking/UCDManager.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/UCDManager.pas (modified) (9 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -48 +48 @@
   private
     FHeaderPos: THeaderPos;
-    FShowHeader: Boolean;
+    function GetHeaderVisible: Boolean;
     procedure SetHeaderPos(const AValue: THeaderPos);
+    procedure SetHeaderVisible(const AValue: Boolean);
   public
     Header: TCDHeader;
     ControlPanel: TPanel;
-    property ShowHeader: Boolean read FShowHeader write FShowHeader;
     property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
+    property HeaderVisible: Boolean read GetHeaderVisible write SetHeaderVisible;
     constructor Create(TheOwner: TComponent);
     destructor Destroy; override;
@@ -81 +82 @@
     FDockSite: TWinControl;
     FHeaderPos: THeaderPos;
+    FHeaderVisible: Boolean;
     function GetDockSite: TWinControl;
     function GetMoveDuration: Integer;
     procedure SetDockStyle(const AValue: TCDStyleType);
+    procedure SetHeaderVisible(const AValue: Boolean);
     procedure SetMoveDuration(const AValue: Integer);
     procedure SetVisible(const AValue: Boolean);
@@ -129 +132 @@
     property DockSite: TWinControl read GetDockSite;
     property HeaderPos: THeaderPos read GetHeaderPos write SetHeaderPos;
+    property HeaderVisible: Boolean read FHeaderVisible write SetHeaderVisible;
     property Visible: Boolean write SetVisible;
   end;
@@ -173 +177 @@
   FHeaderPos:=AValue;
   //Paint(Self);
+end;
+
+function TCDPanelHeader.GetHeaderVisible: Boolean;
+begin
+  Result := Header.Visible;
+end;
+
+procedure TCDPanelHeader.SetHeaderVisible(const AValue: Boolean);
+begin
+  Header.Visible := AValue;
 end;
 
@@ -185 +199 @@
   Align := alClient;
 
-  ShowHeader := True;
   ControlPanel := TPanel.Create(Self);
   with ControlPanel do begin
@@ -200 +213 @@
   with Header do begin
     Parent := Self;
-    Visible := ShowHeader;
+    Visible := True;
     Align := alTop;
     Height := GrabberSize;
@@ -208 +221 @@
   //BevelInner := bvNone;
   //BevelOuter := bvNone;
+  HeaderVisible := True;
 end;
 
@@ -330 +344 @@
 
   FDockStyle := dsList; // dsNone
+  FHeaderVisible := True;
   PopupMenu := TCDPopupMenu.Create(Self);
   PopupMenu.Parent := ADockSite;
@@ -536 +551 @@
     NewManager.UpdateClientSize;
   end;
+end;
+
+procedure TCDManager.SetHeaderVisible(const AValue: Boolean);
+begin
+  if FHeaderVisible = AValue then Exit;
+  FHeaderVisible := AValue;
+  if Assigned(DockSite.HostDockSite) then
+    TCDManager(DockSite.HostDockSite.DockManager).UpdateClientSize;
 end;