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

Timestamp:

Mar 22, 2011, 11:32:28 AM (14 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/UCDManagerTabsPopup.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

@@ -246 +246 @@
     C.Align := alClient;
     C.Parent := HeaderPanel.ControlPanel;
-    HeaderPanel.Header.Title.Caption := C.Caption;
     //AutoHide.Control.Align := alCustom;
     //Pos := DockSite.ClientToScreen(Pos);
@@ -328 +327 @@
       NewItem.IconImage.Picture.Assign((Control as TForm).Icon);
 
-    NewItem.Control := Control;
+    NewItem.Control := TWinControl(Control);
     Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
     //AControl.Parent := NewItem.ClientAreaPanel;