Changeset 354 for Docking/CoolDocking/UCDManager.pas

Timestamp:

Apr 26, 2012, 9:12:02 AM (12 years ago)

Author:

chronos

Message:

• Added: CoolDocking text logging support.
• Added: CoolDocking update locking on TCDManager descendants update. This fixes tab disappear if tab with regions style conjoinform was switched to another tab.
• Modified: CoolDocking regions style item layout changed to support aligned forms. Only one region is aligned as alClient. Rest contained regions are aligned to borders.

File:

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

Docking/CoolDocking/UCDManager.pas

@@ -88 +88 @@
 
   TCDManager = class(TCDManagerBase)
+  protected
+    FUpdateCount: Integer;
   private
     FDockSite: TWinControl;
@@ -105 +107 @@
     constructor Create(ADockSite: TWinControl); override;
     destructor Destroy; override;
-    procedure UpdateClientSize; virtual;
+    procedure Update; virtual;
     procedure Switch(Index: Integer); virtual;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
@@ -380 +382 @@
 procedure TCDManager.BeginUpdate;
 begin
-  inherited BeginUpdate;
+  Inc(FUpdateCount);
 end;
 
 procedure TCDManager.EndUpdate;
 begin
-  inherited EndUpdate;
+  if FUpdateCount > 0 then Dec(FUpdateCount);
+  if FUpdateCount = 0 then Update;
 end;
 
@@ -572 +575 @@
       NewManager.Assign(TCDManager(DockSite.DockManager));
     DockSite.DockManager := NewManager;
-    NewManager.UpdateClientSize;
+    NewManager.Update;
   end;
 end;
@@ -581 +584 @@
   FHeaderVisible := AValue;
   if Assigned(DockSite.HostDockSite) then
-    TCDManager(DockSite.HostDockSite.DockManager).UpdateClientSize;
+    TCDManager(DockSite.HostDockSite.DockManager).Update;
 end;
 
@@ -597 +600 @@
 end;
 
-procedure TCDManager.UpdateClientSize;
+procedure TCDManager.Update;
 begin
 end;