Changeset 213 for Docking/CoolDocking/Managers

Timestamp:

Mar 21, 2011, 10:23:24 AM (14 years ago)

Author:

george

Message:

• Fixed: Tabs image indexes.
• Fixed: Destroying Tabs managed conjoin form.

Location:

Docking/CoolDocking/Managers

Files:

• UCDManagerRegions.pas (modified) (1 diff)
• UCDManagerTabs.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -290 +290 @@
   SplitterTop := 0;
   VisibleControlsCount := DockSite.VisibleDockClientCount;
-  DockSite.Visible := VisibleControlsCount > 0;
+  if DockSite is TForm then
+    DockSite.Visible := VisibleControlsCount > 0;
   if VisibleControlsCount = 0 then VisibleControlsCount := 1;
 

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -288 +288 @@
       Free;
     end;
-  end;
+  end else UpdateClientSize;
   inherited RemoveControl(Control);
-  //if ClientCount > 0 then
-  UpdateClientSize;
 end;
 
@@ -362 +360 @@
   with TCDManagerTabsItem(DockItems[I]) do begin
     PageControl.Pages[I].Caption := Control.Caption;
-    PageControl.Pages[I].ImageIndex := TabImageList.Count;
+    PageControl.Pages[I].ImageIndex := I;
     TabImageList.Replace(I, IconImage.Picture.Bitmap, nil);
     Control.Parent := PageControl.Pages[I];