Changeset 355 for Docking/CoolDocking/UCDManager.pas

Timestamp:

Apr 27, 2012, 8:34:10 AM (13 years ago)

Author:

chronos

Message:

• Modified: Change concept of dock manager items logical visibility vs TControl real visibility. Not visible controls are hidden by manager using TCDManager.DockSiteVisible property. TCDManager provide events OnDockSiteHide and OnDockSiteShow for handling logical visibility.

File:

• Docking/CoolDocking/UCDManager.pas (modified) (9 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -68 +68 @@
   private
     FControl: TWinControl;
-    function GetHideType: TCDHideType;
     procedure ResizeExecute(Sender: TObject);
-    procedure SetHideType(const AValue: TCDHideType);
   public
     Manager: TCDManager;
@@ -81 +79 @@
     constructor Create; virtual;
     destructor Destroy; override;
-    property HideType: TCDHideType read GetHideType write SetHideType;
     property Control: TWinControl read FControl write SetControl;
   end;
@@ -90 +87 @@
   protected
     FUpdateCount: Integer;
+    FDockStyle: TCDStyleType;
   private
     FDockSite: TWinControl;
+    FDockSiteVisible: Boolean;
     FHeaderPos: THeaderPos;
     FHeaderVisible: Boolean;
+    FOnDockSiteHide: TNotifyEvent;
+    FOnDockSiteShow: TNotifyEvent;
     function GetDockSite: TWinControl;
     function GetMoveDuration: Integer;
+    procedure SetDockSiteVisible(AValue: Boolean); virtual;
     procedure SetDockStyle(const AValue: TCDStyleType);
     procedure SetHeaderVisible(const AValue: Boolean);
     procedure SetMoveDuration(const AValue: Integer);
+    procedure CloseHandler(Sender: TObject; var CloseAction: TCloseAction);
   public
     Locked: Boolean;
     PopupMenu: TCDPopupMenu;
-    FDockStyle: TCDStyleType;
     FreeParentIfEmpty: Boolean; // Free or not parent conjoin forms
     procedure SetVisible(const AValue: Boolean); virtual;
@@ -146 +148 @@
     property HeaderVisible: Boolean read FHeaderVisible write SetHeaderVisible;
     property Visible: Boolean write SetVisible;
+    property DockSiteVisible: Boolean read FDockSiteVisible write SetDockSiteVisible;
+    property OnDockSiteHide: TNotifyEvent read FOnDockSiteHide write FOnDockSiteHide;
+    property OnDockSiteShow: TNotifyEvent read FOnDockSiteShow write FOnDockSiteShow;
   end;
 
@@ -273 +278 @@
 end;
 
-function TCDManagerItem.GetHideType: TCDHideType;
-begin
-  Result := TCDHideType(Control.Tag);
-end;
-
 procedure TCDManagerItem.ResizeExecute(Sender: TObject);
 begin
@@ -296 +296 @@
 end;
 
-procedure TCDManagerItem.SetHideType(const AValue: TCDHideType);
-begin
-  Control.Tag := Integer(AValue);
-end;
-
 procedure TCDManagerItem.DockPanelMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@@ -357 +352 @@
 end;
 
+procedure TCDManager.SetDockSiteVisible(AValue: Boolean);
+begin
+  if FDockSiteVisible = AValue then Exit;
+  FDockSiteVisible := AValue;
+  SetVisible(FDockSiteVisible);
+  if Assigned(FOnDockSiteHide) and not AValue then
+    FOnDockSiteHide(Self);
+  if Assigned(FOnDockSiteShow) and AValue then
+    FOnDockSiteShow(Self);
+end;
+
 constructor TCDManager.Create(ADockSite: TWinControl);
 var
@@ -372 +378 @@
   PopupMenu := TCDPopupMenu.Create(Self);
   PopupMenu.Parent := ADockSite;
+  if ADockSite is TForm then
+    TForm(ADockSite).AddHandlerClose(CloseHandler);
 end;
 
 destructor TCDManager.Destroy;
 begin
+  if FDockSite is TForm then
+    TForm(FDockSite).RemoveHandlerClose(CloseHandler);
   PopupMenu.Free;
   inherited Destroy;
@@ -594 +604 @@
 procedure TCDManager.SetMoveDuration(const AValue: Integer);
 begin
+end;
+
+procedure TCDManager.CloseHandler(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  //DockSite.Visible := False;
+  //SetVisible(FDockSite.Visible);
 end;