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

Timestamp:

Mar 22, 2011, 11:32:28 AM (13 years ago)

Author:

george

Message:

• Fixed: If control docked to panel owned by main form then it was possible to redock main form to conjoin form.
• Modified: Header title is now painted to canvas instead of use of TLabel. This will be necessary to draw rotated text later.
• Added: Length of header title is now reduced to not overlap to header buttons area.

File:

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

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -254 +254 @@
       NewItem.IconImage.Picture.Assign((Control as TForm).Icon);
 
-    NewItem.Control := Control;
+    NewItem.Control := TWinControl(Control);
     Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
     //AControl.Parent := NewItem.ClientAreaPanel;
@@ -272 +272 @@
   if Assigned(ManagerItem) then begin
     Control.RemoveHandlerOnVisibleChanged(ManagerItem.VisibleChange);
-  end else raise Exception.Create(Format('Control %s not found in DockItems', [Control.Name]));
+  end; //else raise Exception.Create(Format('Control %s not found in DockItems', [Control.Name]));
 
   DockItems.Remove(ManagerItem);