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

Timestamp:

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

Author:

george

Message:

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

File:

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

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];