Changeset 365 for Docking/CoolDocking/Managers

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/Managers

Files:

• UCDManagerRegions.pas (modified) (2 diffs)
• UCDManagerTabs.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