Changeset 209 for Docking/CoolDocking/Managers/UCDManagerTabs.pas

Timestamp:

Mar 18, 2011, 2:16:28 PM (13 years ago)

Author:

george

Message:

 

File:

• Docking/CoolDocking/Managers/UCDManagerTabs.pas (modified) (4 diffs)

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -34 +34 @@
     procedure InsertControlPanel(AControl: TControl; InsertAt: TAlign;
       DropCtl: TControl); override;
-    procedure UpdateClientSize; override;
     function FindControlInPanels(Control: TControl): TCDManagerItem; override;
     function GetHeaderPos: THeaderPos; override;
@@ -41 +40 @@
     TabImageList: TImageList;
     PageControl: TPageControl;
+    procedure UpdateClientSize; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
     procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); virtual;
@@ -290 +290 @@
   end;
   inherited RemoveControl(Control);
-  if ClientCount > 1 then UpdateClientSize;
+  //if ClientCount > 0 then
+  UpdateClientSize;
 end;
 
@@ -348 +349 @@
 
   while PageControl.PageList.Count > DockItems.Count do begin
-    PageControl.Pages[PageControl.PageCount - 1].Parent := nil;
+    //PageControl.Pages[PageControl.PageCount - 1].Parent := nil;
     PageControl.Pages[PageControl.PageCount - 1].Free;
     TabImageList.Delete(TabImageList.Count - 1);