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

Timestamp:

Mar 18, 2011, 11:05:39 AM (14 years ago)

Author:

george

Message:

• Fixed: PopupForm auto resize on parent resize.
• Added: Option in popup menu for change visibility of dock panel header.

File:

• Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas (modified) (13 diffs)

Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

@@ -55 +55 @@
     SplitterMouseDrag: Boolean;
     SplitterMousePos: TPoint;
+    procedure PageControlResize(Sender: TObject);
     procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); override;
     procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
@@ -62 +63 @@
     procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
+    procedure UpdatePopupFormBounds;
+    procedure TabControlChange(Sender: TObject); override;
   public
     AutoHideEnabled: Boolean;
@@ -71 +74 @@
     procedure PinShowButtonClick(Sender: TObject);
     procedure PinHideButtonClick(Sender: TObject);
-    procedure TabControlChange(Sender: TObject); override;
     constructor Create(ADockSite: TWinControl); override;
     destructor Destroy; override;
@@ -243 +245 @@
     C.Parent := HeaderPanel.ControlPanel;
     HeaderPanel.Header.Title.Caption := C.Caption;
-    Pos := Point(PageControl.Left, PageControl.Top);
-
-    TopParent := DockSite;
-    while Assigned(TopParent.Parent) do begin
-      Pos.X := Pos.X + TopParent.Left;;
-      Pos.Y := Pos.Y + TopParent.Top;
-      TopParent := TopParent.Parent;
-    end;
-    PopupForm.Parent := TopParent;
     //AutoHide.Control.Align := alCustom;
     //Pos := DockSite.ClientToScreen(Pos);
-    C.TBDockHeight := 100;
-    C.LRDockWidth := 100;
-    with AutoHide.Control do
-    case AutoHide.TabPosition of
-      tpTop: begin
-        SetBounds(Pos.X, Pos.Y + PageControl.Height,
-          PageControl.Width, C.TBDockHeight);
-      end;
-      tpLeft: begin
-        SetBounds(Pos.X + PageControl.Width, Pos.Y,
-          C.LRDockWidth, PageControl.Height);
-      end;
-      tpBottom: begin
-        SetBounds(Pos.X, Pos.Y - C.TBDockHeight,
-          PageControl.Width, C.TBDockHeight);
-      end;
-      tpRight: begin
-        SetBounds(Pos.X - C.LRDockWidth, Pos.Y,
-          C.LRDockWidth, PageControl.Height);
-      end;
-    end;
     //AutoHide.Control.SetBounds(0, 0, 100, 100);
+    UpdatePopupFormBounds;
     AutoHide.Show;
   end;
@@ -302 +275 @@
   AutoHide := TCDAutoHide.Create;
   AutoHide.Control := PopupForm;
+  PageControl.OnResize := PageControlResize;
 
   for I := 0 to DockItems.Count - 1 do begin
@@ -316 +290 @@
   HeaderPanel.Free;
   inherited Destroy;
+end;
+
+procedure TCDManagerTabsPopup.PageControlResize(Sender: TObject);
+begin
+  UpdatePopupFormBounds;
 end;
 
@@ -376 +355 @@
     case Splitter.Align of
       alLeft: begin
-        PopupForm.SetBounds(PopupForm.Left - (X - SplitterMousePos.X),
+        PopupForm.SetBounds(PopupForm.Left + (X - SplitterMousePos.X),
           PopupForm.Top, PopupForm.Width - (X - SplitterMousePos.X),
           PopupForm.Height);
@@ -385 +364 @@
       end;
       alTop: begin
-        PopupForm.SetBounds(PopupForm.Left,PopupForm.Top + (Y - SplitterMousePos.Y),
-          PopupForm.Width, PopupForm.Height + (Y - SplitterMousePos.Y));
+        PopupForm.SetBounds(PopupForm.Left, PopupForm.Top + (Y - SplitterMousePos.Y),
+          PopupForm.Width, PopupForm.Height - (Y - SplitterMousePos.Y));
       end;
       alBottom: begin
@@ -400 +379 @@
 begin
   SplitterMouseDrag := False;
+end;
+
+procedure TCDManagerTabsPopup.UpdatePopupFormBounds;
+var
+  Pos: TPoint;
+  C: TControl;
+  TopParent: TWinControl;
+begin
+  if PageControl.TabIndex <> - 1 then begin
+    Pos := Point(PageControl.Left, PageControl.Top);
+    TopParent := DockSite;
+    while Assigned(TopParent.Parent) do begin
+      Pos.X := Pos.X + TopParent.Left;;
+      Pos.Y := Pos.Y + TopParent.Top;
+      TopParent := TopParent.Parent;
+    end;
+    PopupForm.Parent := TopParent;
+
+    C := TCDManagerTabsPopupItem(DockItems[PageControl.TabIndex]).Control;
+    C.TBDockHeight := 100;
+    C.LRDockWidth := 100;
+    with AutoHide.Control do
+    case AutoHide.TabPosition of
+      tpTop: begin
+        SetBounds(Pos.X, Pos.Y + PageControl.Height,
+          PageControl.Width, C.TBDockHeight);
+      end;
+      tpLeft: begin
+        SetBounds(Pos.X + PageControl.Width, Pos.Y,
+          C.LRDockWidth, PageControl.Height);
+      end;
+      tpBottom: begin
+        SetBounds(Pos.X, Pos.Y - C.TBDockHeight,
+          PageControl.Width, C.TBDockHeight);
+      end;
+      tpRight: begin
+        SetBounds(Pos.X - C.LRDockWidth, Pos.Y,
+          C.LRDockWidth, PageControl.Height);
+      end;
+    end;
+  end;
 end;
 
@@ -411 +431 @@
   case AValue of
     hpTop, hpAuto: begin
-      Align := alTop;
-      Height := 24;
+      //Align := alTop;
+      //Height := 24;
       Splitter.Align := alBottom;
       Splitter.Height := SplitterSize;
@@ -418 +438 @@
     end;
     hpBottom: begin
-      Align := alBottom;
-      Height := 24;
+      //Align := alBottom;
+      //Height := 24;
       Splitter.Align := alTop;
       Splitter.Height := SplitterSize;
@@ -425 +445 @@
     end;
     hpLeft: begin
-      Align := alLeft;
-      Width := 24;
+      //Align := alLeft;
+      //Width := 24;
       Splitter.Align := alRight;
       Splitter.Width := SplitterSize;
@@ -432 +452 @@
     end;
     hpRight: begin
-      Align := alRight;
-      Width := 24;
+      //Align := alRight;
+      //Width := 24;
       Splitter.Align := alLeft;
       Splitter.Width := SplitterSize;