Changeset 253 for Docking

Timestamp:

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

Author:

george

Message:

 

Location:

Docking/CoolDocking

Files:

• Managers/UCDManagerTabs.pas (modified) (1 diff)
• UCDManager.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];

Docking/CoolDocking/UCDManager.pas

@@ -689 +689 @@
   R: TRect;
 begin
-  if Assigned(Control) then
+  if Assigned(Control) and Assigned(TWinControl(Control).DockManager) then
   with TCDManager(TWinControl(Control).DockManager) do
   case HeaderPos of