Changeset 365 for Docking/CoolDocking/UCDManager.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

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