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

Docking/CoolDocking/Managers/UCDManagerRegionsPopup.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UCDManagerRegions;
+  Classes, SysUtils, UCDManagerRegions, UCDCommon, Controls;
 
 type
-  TCDStylePopupRegions = class(TCDStyleRegions)
 
+  { TCDStylePopupRegions }
+
+  TCDStylePopupRegions = class(TCDManagerRegions)
+    constructor Create(ADockSite: TWinControl);
   end;
 
@@ -19 +22 @@
   UCDClient;
 
+{ TCDStylePopupRegions }
+
+constructor TCDStylePopupRegions.Create(ADockSite: TWinControl);
+begin
+  inherited;
+  FDockStyle := dsPopupList;
+end;
+
 end.