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

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -14 +14 @@
   end;
 
-  { TCDStyleRegions }
-
-  TCDStyleRegions = class(TCDManager)
+  { TCDManagerRegions }
+
+  TCDManagerRegions = class(TCDManager)
   private
     function GetDirection(InsertAt: TAlign): TCDDirection;
@@ -28 +28 @@
     destructor Destroy; override;
     procedure UpdateClientSize; override;
-    procedure DoSetVisible(const AValue: Boolean);
+    procedure DoSetVisible(const AValue: Boolean); override;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean);
     property DockDirection: TCDDirection read FDockDirection
@@ -40 +40 @@
 
 
-{ TCDStyleRegions }
-
-function TCDStyleRegions.GetDirection(InsertAt: TAlign): TCDDirection;
+{ TCDManagerRegions }
+
+function TCDManagerRegions.GetDirection(InsertAt: TAlign): TCDDirection;
 begin
   Result := ddHorizontal;
@@ -53 +53 @@
 end;
 
-procedure TCDStyleRegions.InsertControlPanel(Control: TControl; InsertAt: TAlign;
+procedure TCDManagerRegions.InsertControlPanel(Control: TControl; InsertAt: TAlign;
   DropCtl: TControl);
 var
@@ -107 +107 @@
 end;
 
-procedure TCDStyleRegions.RemoveControl(Control: TControl);
+procedure TCDManagerRegions.RemoveControl(Control: TControl);
 var
   ClientPanel: TCDClientPanel;
@@ -134 +134 @@
 end;
 
-constructor TCDStyleRegions.Create(ADockSite: TWinControl);
-var
-  I: Integer;
-begin
-  inherited;
+constructor TCDManagerRegions.Create(ADockSite: TWinControl);
+var
+  I: Integer;
+begin
+  inherited;
+  FDockStyle := dsList;
   //Panels := TObjectList.Create;
 
@@ -151 +152 @@
 end;
 
-destructor TCDStyleRegions.Destroy;
+destructor TCDManagerRegions.Destroy;
 begin
   //Panels.Free;
@@ -157 +158 @@
 end;
 
-procedure TCDStyleRegions.UpdateClientSize;
+procedure TCDManagerRegions.UpdateClientSize;
 var
   I: Integer;
@@ -200 +201 @@
 end;
 
-procedure TCDStyleRegions.DoSetVisible(const AValue: Boolean);
-var
-  I: Integer;
-begin
-//  inherited SetVisible(AValue);
+procedure TCDManagerRegions.DoSetVisible(const AValue: Boolean);
+var
+  I: Integer;
+begin
+  inherited;
   for I := 0 to DockPanels.Count - 1 do
 
@@ -222 +223 @@
 end;
 
-procedure TCDStyleRegions.ChangeVisible(Control: TWinControl;
+procedure TCDManagerRegions.ChangeVisible(Control: TWinControl;
   Visible: Boolean);
 begin