Changeset 253 for Docking/CoolDocking


Ignore:
Timestamp:
Jul 20, 2011, 9:50:03 PM (13 years ago)
Author:
george
Message:
 
Location:
Docking/CoolDocking
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Docking/CoolDocking/Managers/UCDManagerTabs.pas

    r248 r253  
    359359
    360360  // Remove old existed tabs which doesn't have item associated
    361   for I := PageControl.PageList.Count - 1 downto 0 do begin
     361  for I := PageControl.PageCount - 1 downto 0 do begin
    362362//    TCDManagerTabsItem(DockItems[DockItems.Count - 1]).Control.Visible := False;
    363363//    TCDManagerTabsItem(DockItems[DockItems.Count - 1]).Control.Parent := nil;
    364364
    365     if FindTabSheet(TTabSheet(PageControl.PageList[I])) = nil then begin
     365    if FindTabSheet(TTabSheet(PageControl.Pages[I])) = nil then begin
    366366      PageControl.OnChange := nil;
    367367      DeletedPage := PageControl.Pages[I];
  • Docking/CoolDocking/UCDManager.pas

    r218 r253  
    689689  R: TRect;
    690690begin
    691   if Assigned(Control) then
     691  if Assigned(Control) and Assigned(TWinControl(Control).DockManager) then
    692692  with TCDManager(TWinControl(Control).DockManager) do
    693693  case HeaderPos of
Note: See TracChangeset for help on using the changeset viewer.