Changeset 193 for Docking/CoolDocking/UCDManager.pas

Timestamp:

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

Author:

george

Message:

• Fixed: Infinite loop in TCDManager SetVisible method.

File:

• Docking/CoolDocking/UCDManager.pas (modified) (6 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -22 +22 @@
   TCDManager = class(TCDManagerBase)
   private
-    FDockStyle: TCDStyleType;
     FDockSite: TWinControl;
     FDockPanels: TCDPanels;
@@ -33 +32 @@
     procedure SetVisible(const AValue: Boolean);
   public
+    FDockStyle: TCDStyleType;
     PopupMenu: TCDPopupMenu;
     constructor Create(ADockSite: TWinControl); override;
@@ -42 +42 @@
     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
       DropCtl: TControl); virtual;
+    procedure DoSetVisible(const AValue: Boolean); virtual;
 
     // Inherited from TDockManager
@@ -161 +162 @@
 end;
 
+procedure TCDManager.DoSetVisible(const AValue: Boolean);
+begin
+
+end;
+
 procedure TCDManager.InsertControl(Control: TControl; InsertAt: TAlign;
   DropCtl: TControl);
@@ -315 +321 @@
     FDockStyle := AValue;
     if AValue = dsTabs then begin
-      NewManager := TCDStyleTabs.Create(FDockSite);
-      TCDStyleTabs(Self).TabControlChange(Self);
+      NewManager := TCDManagerTabs.Create(FDockSite);
+      TCDManagerTabs(Self).TabControlChange(Self);
     end else
     if AValue = dsList then begin
-      NewManager := TCDStyleRegions.Create(FDockSite);
+      NewManager := TCDManagerRegions.Create(FDockSite);
     end else
     if AValue = dsPopupList then begin
@@ -347 +353 @@
   I: Integer;
 begin
-  Visible := AValue;
+  DoSetVisible(AValue);
+  //Visible := AValue;
 //  for I := 0 to DockPanels.Count - 1 do
 //    TCDClientPanel(DockPanels[I]).Visible := AValue;