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

Timestamp:

Jun 7, 2012, 9:45:29 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Associate PopupMenu in TCDManagerTabs only to PageControl tabs and not to page content area.

File:

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

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -40 +40 @@
     function GetHeaderPos: THeaderPos; override;
     function FindTabSheet(TabSheet: TTabSheet): TCDManagerTabsItem;
+    procedure PageControlContextPopup(Sender: TObject; MousePos: TPoint;
+      var Handled: Boolean);
   public
     MouseDownSkip: Boolean;
@@ -189 +191 @@
     MultiLine := True;
     AutoSize := True;
-    PopupMenu := Self.PopupMenu;
+    OnContextPopup := PageControlContextPopup;
     OnMouseLeave := TabControlMouseLeave;
     OnMouseDown := TabControlMouseDown;
@@ -307 +309 @@
 end;
 
+procedure TCDManagerTabs.PageControlContextPopup(Sender: TObject;
+  MousePos: TPoint; var Handled: Boolean);
+var
+  I: Integer;
+  R: TRect;
+begin
+  with Sender as TPageControl do begin
+    PopupMenu := nil;
+    for I := 0 to PageControl.PageCount - 1 do begin
+      R := PageControl.TabRect(I);
+      if (MousePos.X >= R.Left) and (MousePos.Y >= R.Top) and
+        (MousePos.X <= R.Right) and (MousePos.Y <= R.Bottom) then begin
+          PopupMenu := Self.PopupMenu;
+          Break;
+        end;
+    end;
+  end;
+end;
+
 procedure TCDManagerTabs.BringToFront;
 begin