Changeset 103 for Docking/CoolDocking/UCoolDockClientPanel.pas

Timestamp:

Dec 29, 2010, 1:56:04 PM (14 years ago)

Author:

george

Message:

• Fixed: Hiding invisible docked forms as tabs.
• Added: Ability to bring window to front on execute Form.Show.

File:

• Docking/CoolDocking/UCoolDockClientPanel.pas (modified) (7 diffs)

Docking/CoolDocking/UCoolDockClientPanel.pas

@@ -7 +7 @@
 uses
   Classes, Controls, SysUtils, Forms, StdCtrls, ExtCtrls, Graphics,
-  Buttons, UCoolDockPopupMenu;
+  Buttons;
 
 type
@@ -38 +38 @@
     FHeaderPos: THeaderPos;
     FShowHeader: Boolean;
+    FControl: TControl;
     function GetAutoHideEnabled: Boolean;
+    function GetControl: TControl;
     procedure SetAutoHide(const AValue: Boolean);
     procedure SetAutoHideEnabled(const AValue: Boolean);
+    procedure SetControl(const AValue: TControl);
     procedure SetHeaderPos(const AValue: THeaderPos);
     procedure SetShowHeader(const AValue: Boolean);
   public
     OwnerDockManager: TObject; // TCoolDockManager;
-    Control: TControl;
     Splitter: TSplitter;
     ClientAreaPanel: TPanel;
@@ -60 +62 @@
       write SetAutoHideEnabled;
     property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
+    property Control: TControl read GetControl write SetControl;
   end;
 
@@ -78 +81 @@
 procedure TCoolDockClientPanel.VisibleChange(Sender: TObject);
 var
-  Visible: Boolean;
-begin
-  (*if Assigned(Control) then begin
-    Visible := Control.Visible;
-    if Assigned(ClientAreaPanel) then
-      ClientAreaPanel.Visible := Visible;
+  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 := Visible;
-    OwnerDockManager.UpdateClientSize;
-  end;*)
+      Splitter.Visible := ControlVisible;
+      *)
+//    if Assigned(TCoolDockManager(OwnerDockManager).DockStyleHandler) then
+    if Assigned(OwnerDockManager) then
+    with TCoolDockManager(OwnerDockManager) do
+    if Assigned(DockStyleHandler) then
+    with DockStyleHandler do begin
+      if ControlVisible then
+        Switch(DockPanels.IndexOf(FindControlInPanels(TControl(Sender))));
+      //UpdateClientSize;
+      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;
 end;
 
@@ -100 +124 @@
 end;
 
+function TCoolDockClientPanel.GetControl: TControl;
+begin
+  Result := FControl;
+end;
+
 procedure TCoolDockClientPanel.SetAutoHideEnabled(const AValue: Boolean);
 begin
 
+end;
+
+procedure TCoolDockClientPanel.SetControl(const AValue: TControl);
+begin
+  FControl := AValue;
 end;
 
@@ -148 +182 @@
 
 destructor TCoolDockClientPanel.Destroy;
-begin
+var
+  Temp: TControl;
+begin
+  Temp := Control;
+  //if ClientAreaPanel.GetControlIndex(Control) <> - 1 then
+  if Assigned(Control) then
+    Control.RemoveHandlerOnVisibleChanged(VisibleChange);
+  // If panel is destroyed undock docket control
+  //TWinControl(Control).ManualFloat(TWinControl(Control).BoundsRect);
+
   inherited Destroy;
 end;
@@ -154 +197 @@
 procedure TCoolDockClientPanel.ResizeExecute(Sender: TObject);
 begin
-  Control.Top := GrabberSize;
-  Control.Left := 0;
-  Control.Width := Width;
-  Control.Height := Height - GrabberSize;
-  //Control.SetBounds(0, GrabberSize, Width - Control.Left,
-  //  Height - Control.Top);
+  if Assigned(Control) then begin
+    Control.Top := GrabberSize;
+    Control.Left := 0;
+    Control.Width := Width;
+    Control.Height := Height - GrabberSize;
+    //Control.SetBounds(0, GrabberSize, Width - Control.Left,
+    //  Height - Control.Top);
+  end;
 end;