Changeset 365 for Docking/CoolDocking/Managers/UCDManagerTabs.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/UCDManagerTabs.pas (modified) (2 diffs)

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