Changeset 365 for Docking/CoolDocking/Managers/UCDManagerRegions.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/Managers/UCDManagerRegions.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;