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

Docking/CoolDocking/UCDManager.pas

@@ -64 +64 @@
   TCDManagerItem = class
   private
+    function GetHideType: TCDHideType;
     procedure ResizeExecute(Sender: TObject);
+    procedure SetHideType(const AValue: TCDHideType);
   public
     Control: TControl;
@@ -74 +76 @@
     constructor Create; virtual;
     destructor Destroy; override;
+    property HideType: TCDHideType read GetHideType write SetHideType;
   end;
 
@@ -240 +243 @@
 end;
 
+function TCDManagerItem.GetHideType: TCDHideType;
+begin
+  Result := TCDHideType(Control.Tag);
+end;
+
 procedure TCDManagerItem.ResizeExecute(Sender: TObject);
 begin
@@ -252 +260 @@
 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);
@@ -277 +290 @@
 
 procedure TCDManagerItem.VisibleChange(Sender: TObject);
-var
-  ControlVisible: Boolean;
-  Temp: TControl;
-  Temp2: TControl;
-begin
-
-{  Temp := TControl(Sender);
-  if Assigned(Control) then
-  begin
-    ControlVisible := TControl(Sender).Visible;
-    (*if Assigned(ClientAreaPanel) then
-      ClientAreaPanel.Visible := ControlVisible;
-    if Assigned(Splitter) then
-      Splitter.Visible := ControlVisible;
-      *)
-//    if Assigned(TCDManager(OwnerDockManager).DockStyleHandler) then
-    if Assigned(Manager) then
-    with TCDManager(Manager) do
-    begin
-      //UpdateClientSize;
-      if ControlVisible then
-        Switch(DockItems.IndexOf(FindControlInPanels(TControl(Sender))));
-      if not (Control is TWinControl) then raise Exception.Create('Not TWinControl');
-      if not Assigned(Control) then raise Exception.Create('Control not assigned');
-      ChangeVisible(TWinControl(Control), ControlVisible);
-      // Show parent control
-      Temp := TControl(Sender).HostDockSite;
-
-      if ControlVisible then
-        TControl(Sender).HostDockSite.Visible := ControlVisible;
-    end;
-    if csDestroying in Control.ComponentState then Control := nil;
-  end;}
+begin
 end;