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

Timestamp:

Jul 20, 2011, 9:50:03 PM (13 years ago)

Author:

george

Message:

 

File:

• Docking/CoolDocking/Managers/UCDManagerTabs.pas (modified) (1 diff)

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -359 +359 @@
 
   // Remove old existed tabs which doesn't have item associated
-  for I := PageControl.PageList.Count - 1 downto 0 do begin
+  for I := PageControl.PageCount - 1 downto 0 do begin
 //    TCDManagerTabsItem(DockItems[DockItems.Count - 1]).Control.Visible := False;
 //    TCDManagerTabsItem(DockItems[DockItems.Count - 1]).Control.Parent := nil;
 
-    if FindTabSheet(TTabSheet(PageControl.PageList[I])) = nil then begin
+    if FindTabSheet(TTabSheet(PageControl.Pages[I])) = nil then begin
       PageControl.OnChange := nil;
       DeletedPage := PageControl.Pages[I];