Changeset 193 for Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

Timestamp:

Mar 11, 2011, 10:57:39 AM (14 years ago)

Author:

george

Message:

• Fixed: Infinite loop in TCDManager SetVisible method.

File:

• Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas (modified) (3 diffs)

Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

@@ -40 +40 @@
   { TCDStylePopupTabs }
 
-  TCDStylePopupTabs = class(TCDStyleTabs)
+  TCDStylePopupTabs = class(TCDManagerTabs)
     TabControl: TTabControl;
     TabImageList: TImageList;
@@ -123 +123 @@
 constructor TCDAutoHide.Create;
 begin
+  inherited;
   Timer := TTimer.Create(nil);
   Timer.Enabled := False;
@@ -186 +187 @@
 begin
   inherited;
+  FDockStyle := dsPopupTabs;
 
   AutoHide := TCDAutoHide.Create;