Changeset 217 for Docking/CoolDocking/UCDPopupMenu.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/UCDPopupMenu.pas (modified) (6 diffs)

Docking/CoolDocking/UCDPopupMenu.pas

@@ -230 +230 @@
     if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
       ManagerItem.Control.Caption := Value;
-      Title.Caption := Value;
+      Invalidate;
     end;
   end;
@@ -243 +243 @@
   if PopupComponent is TCDHeader then
   with TCDHeader(PopupComponent) do begin
-    TCDManager(Manager).HeaderPos := hpAuto;
+    TCDManager(TWinControl(ManagerItem.Control).DockManager).HeaderPos := hpTop;
+    Invalidate;
   end;
 end;
@@ -255 +256 @@
   if PopupComponent is TCDHeader then
   with TCDHeader(PopupComponent) do begin
-    TCDManager(Manager).HeaderPos := hpLeft;
+    TCDManager(TWinControl(ManagerItem.Control).DockManager).HeaderPos := hpLeft;
+    Invalidate;
   end;
 end;
@@ -267 +269 @@
   if PopupComponent is TCDHeader then
   with TCDHeader(PopupComponent) do begin
-    TCDManager(Manager).HeaderPos := hpRight;
+    TCDManager(TWinControl(ManagerItem.Control).DockManager).HeaderPos := hpRight;
+    Invalidate;
   end;
 end;
@@ -279 +282 @@
   if PopupComponent is TCDHeader then
   with TCDHeader(PopupComponent) do begin
-    TCDManager(Manager).HeaderPos := hpTop;
+    TCDManager(TWinControl(ManagerItem.Control).DockManager).HeaderPos := hpTop;
+    Invalidate;
   end;
 end;
@@ -291 +295 @@
   if PopupComponent is TCDHeader then
   with TCDHeader(PopupComponent) do begin
-    TCDManager(Manager).HeaderPos := hpBottom;
+    TCDManager(TWinControl(ManagerItem.Control).DockManager).HeaderPos := hpBottom;
+    Invalidate;
   end;
 end;