Changeset 194 for Docking/CoolDocking/Managers/UCDManagerRegionsPopup.pas

Timestamp:

Mar 11, 2011, 1:00:06 PM (14 years ago)

Author:

george

Message:

• Removed: UCDClientPanel replaced by TCDManagerItem and it's descendend.

File:

• Docking/CoolDocking/Managers/UCDManagerRegionsPopup.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerRegionsPopup.pas

@@ -10 +10 @@
 type
 
-  { TCDStylePopupRegions }
+  { TCDManagerPopupRegionsItem }
 
-  TCDStylePopupRegions = class(TCDManagerRegions)
+  TCDManagerPopupRegionsItem = class(TCDManagerRegionsItem)
+  private
+    FAutoHide: Boolean;
+    function GetAutoHideEnabled: Boolean;
+    procedure SetAutoHide(const AValue: Boolean);
+    procedure SetAutoHideEnabled(const AValue: Boolean);
+  public
+    property AutoHideEnabled: Boolean read GetAutoHideEnabled
+      write SetAutoHideEnabled;
+  end;
+
+  { TCDManagerPopupRegions }
+
+  TCDManagerPopupRegions = class(TCDManagerRegions)
     constructor Create(ADockSite: TWinControl);
   end;
@@ -22 +35 @@
   UCDClient;
 
-{ TCDStylePopupRegions }
+{ TCDManagerPopupRegionsItem }
 
-constructor TCDStylePopupRegions.Create(ADockSite: TWinControl);
+function TCDManagerPopupRegionsItem.GetAutoHideEnabled: Boolean;
+begin
+
+end;
+
+procedure TCDManagerPopupRegionsItem.SetAutoHide(const AValue: Boolean);
+begin
+
+end;
+
+procedure TCDManagerPopupRegionsItem.SetAutoHideEnabled(const AValue: Boolean);
+begin
+
+end;
+
+{ TCDManagerPopupRegions }
+
+constructor TCDManagerPopupRegions.Create(ADockSite: TWinControl);
 begin
   inherited;