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

Docking/CoolDocking/UCDPopupMenu.pas

@@ -16 +16 @@
   private
     procedure PopupExecute(Sender: TObject);
+    procedure PopupMenuHeaderVisibleClick(Sender: TObject);
   public
     Manager: TCDManagerBase;
@@ -21 +22 @@
     StyleMenu: TMenuItem;
     LockedMenu: TMenuItem;
+    HeaderVisibleMenu: TMenuItem;
     constructor Create(AManager: TCDManagerBase);
     procedure UncheckMenuGroup(Item: TMenuItem);
@@ -63 +65 @@
   SRenameWindow = 'Rename window';
   SLocked = 'Locked';
-
+  SHeaderVisible = 'Header visible';
 
 { TCDPopupMenu }
@@ -82 +84 @@
   PositionMenu.Items[Integer(TCDManager(Manager).HeaderPos)].Checked := True;;
   LockedMenu.Checked := TCDManager(Manager).Locked;
+  HeaderVisibleMenu.Checked := TCDManager(Manager).HeaderVisible;
 end;
 
@@ -173 +176 @@
   LockedMenu.OnClick := PopupMenuLockedClick;
   Items.Add(LockedMenu);
+
+  HeaderVisibleMenu := TMenuItem.Create(Self);
+  HeaderVisibleMenu.Caption := SHeaderVisible;
+  HeaderVisibleMenu.OnClick := PopupMenuHeaderVisibleClick;
+  Items.Add(HeaderVisibleMenu);
 end;
 
@@ -323 +331 @@
 end;
 
+procedure TCDPopupMenu.PopupMenuHeaderVisibleClick(Sender: TObject);
+begin
+  if PopupComponent is TPageControl then
+  with TPageControl(PopupComponent) do begin
+    TCDManagerTabs(Manager).HeaderVisible := not TCDManagerTabs(Manager).HeaderVisible;
+  end else
+  if PopupComponent is TCDHeader then
+  with TCDHeader(PopupComponent) do begin
+    TCDManagerTabs(Manager).HeaderVisible := not TCDManagerTabs(Manager).HeaderVisible;
+  end;
+end;
+
 procedure TCDPopupMenu.PopupMenuListClick(Sender: TObject);
 begin