Changeset 365 for Docking

Timestamp:

May 22, 2012, 7:46:00 AM (13 years ago)

Author:

chronos

Message:

• Added: CoolDocking method BringToFront to force control visibility on top of others.

Location:

Docking/CoolDocking

Files:

• Managers/UCDManagerRegions.pas (modified) (2 diffs)
• Managers/UCDManagerTabs.pas (modified) (2 diffs)
• UCDManager.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -45 +45 @@
   public
     //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel>
+    procedure BringToFront; override;
     function FindControlInPanels(Control: TControl): TCDManagerItem; override;
     procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign);
@@ -254 +255 @@
     if PanelHeader.Visible then Inc(Result);
   end;
+end;
+
+procedure TCDManagerRegions.BringToFront;
+begin
+  inherited BringToFront;
 end;
 

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -44 +44 @@
     TabImageList: TImageList;
     PageControl: TPageControl;
+    procedure BringToFront; override;
     procedure Update; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
@@ -306 +307 @@
 end;
 
+procedure TCDManagerTabs.BringToFront;
+begin
+  inherited BringToFront;
+  Update;
+end;
+
 procedure TCDManagerTabs.SetHeaderPos(const AValue: THeaderPos);
 begin

Docking/CoolDocking/UCDManager.pas

@@ -118 +118 @@
     procedure SetHeaderPos(const AValue: THeaderPos); virtual;
     function GetHeaderPos: THeaderPos; virtual;
+    procedure BringToFront; virtual;
 
     // Inherited from TDockManager
@@ -348 +349 @@
 end;
 
+procedure TCDManager.BringToFront;
+begin
+  //DockSiteVisible := True;
+  DockSite.Show;
+  DockSite.BringToFront;
+  if Assigned(DockSite.Parent) then begin
+    if Assigned(DockSite.Parent.DockManager)
+      and (DockSite.Parent.DockManager is TCDManager) then
+    TCDManager(DockSite.Parent.DockManager).BringToFront
+    else DockSite.Parent.BringToFront;
+  end;
+end;
+
 function TCDManager.GetMoveDuration: Integer;
 begin