Changeset 354 for Docking/CoolDocking/Managers/UCDManagerTabs.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/Managers/UCDManagerTabs.pas (modified) (11 diffs)

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -44 +44 @@
     TabImageList: TImageList;
     PageControl: TPageControl;
-    procedure UpdateClientSize; override;
+    procedure Update; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
     procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); virtual;
@@ -82 +82 @@
   Temp2: TControl;
 begin
+  DebugLog('TCDManagerTabsItem.VisibleChange');
   with TCDManagerTabs(Manager) do begin
     if TControl(Sender).Visible then begin
-      UpdateClientSize;
+      Update;
       Switch(DockItems.IndexOf(FindControlInPanels(TControl(Sender))));
       TCDManagerTabsItem(DockItems[DockItems.IndexOf(
         FindControlInPanels(TControl(Sender)))]).HideType := dhtPermanent;
-    end else UpdateClientSize;
+    end else Update;
   end;
 
@@ -143 +144 @@
 procedure TCDManagerTabs.TabControlChange(Sender: TObject);
 begin
-  UpdateClientSize;
+  DebugLog('TCDManagerTabs.TabControlChange ' + IntToStr(PageControl.TabIndex));
+  Update;
   MouseDownSkip := True;
 end;
@@ -189 +191 @@
     OnChange := TabControlChange;
     MultiLine := True;
+    AutoSize := True;
     PopupMenu := Self.PopupMenu;
     OnMouseLeave := TabControlMouseLeave;
@@ -225 +228 @@
 procedure TCDManagerTabs.Switch(Index: Integer);
 begin
+  DebugLog('TCDManagerTabs.Switch ' + IntToStr(Index));
   PageControl.TabIndex := Index;
 end;
@@ -265 +269 @@
   end; //else raise Exception.Create(Format('Control %s not found in DockItems', [Control.Name]));
 
-  ManagerItem.Control.Visible := False;
+  //ManagerItem.Control.Visible := False;
   ManagerItem.Control.Parent := nil;
   DockItems.Remove(ManagerItem);
@@ -279 +283 @@
       end else TCDManagerItem(DockItems[0]).Control.ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
       ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
-      //UpdateClientSize;
+      //Update;
       inherited RemoveControl(Control);
       Free;
@@ -286 +290 @@
   end;
   //if ClientCount > 0 then
-  UpdateClientSize;
+  Update;
   inherited RemoveControl(Control);
 end;
@@ -341 +345 @@
   inherited;
   InsertControlNoUpdate(AControl, InsertAt);
-  UpdateClientSize;
-end;
-
-procedure TCDManagerTabs.UpdateClientSize;
+  Update;
+end;
+
+procedure TCDManagerTabs.Update;
 var
   I: Integer;
@@ -350 +354 @@
   DeletedPage: TTabSheet;
 begin
+  if FUpdateCount = 0 then begin
+  DebugLog('TCDManagerTabs.Update');
   for I := 0 to DockItems.Count - 1 do
   with TCDManagerTabsItem(DockItems[I]) do begin
@@ -407 +413 @@
     //TCDClientPanel(FDockPanels[I]).DockPanelPaint(Self);
   end;
-  inherited UpdateClientSize;
+  end;
+  inherited;
 end;