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

Timestamp:

Mar 16, 2011, 12:32:41 PM (13 years ago)

Author:

george

Message:

• Fixed: Popup submenus style and position item selection.
• Added: Locking dock managers.
• Modified: Enhanced auto popup tabs handling. Not yet finished.
• Modified: Dock manager position united for all dock manager descendands.

File:

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

Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

@@ -6 +6 @@
 
 uses
-  Classes, Controls, SysUtils, ComCtrls, ExtCtrls, UCDCommon,
-  UCDManagerTabs;
+  Classes, Controls, SysUtils, ComCtrls, ExtCtrls, UCDCommon, UCDManager,
+  UCDManagerTabs, Forms;
 
 type
@@ -40 +40 @@
   { TCDManagerTabsPopupItem }
 
-  TCDManagerTabsPopupItem = class
-    constructor Create;
-  end;
-
-  { TCDStylePopupTabs }
-
-  TCDStylePopupTabs = class(TCDManagerTabs)
+  TCDManagerTabsPopupItem = class(TCDManagerTabsItem)
+    Hidden: Boolean;
+    constructor Create; override;
+  end;
+
+  { TCDManagerTabsPopup }
+
+  TCDManagerTabsPopup = class(TCDManagerTabs)
+  private
+    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); override;
   public
     AutoHideEnabled: Boolean;
     AutoHide: TCDAutoHide;
     PopupPanel: TPanel;
-    constructor Create(ADockSite: TWinControl);
+    procedure SetHeaderPos(const AValue: THeaderPos); override;
+    procedure PinShowButtonClick(Sender: TObject);
+    procedure PinHideButtonClick(Sender: TObject);
+    procedure TabControlChange(Sender: TObject); override;
+    constructor Create(ADockSite: TWinControl); override;
     destructor Destroy; override;
-  private
   end;
 
@@ -60 +66 @@
 
 uses
-  UCDClient;
+  UCDClient, UCDManagerRegions;
 
 { TCDManagerTabsPopupItem }
@@ -66 +72 @@
 constructor TCDManagerTabsPopupItem.Create;
 begin
+  inherited;
 end;
 
@@ -121 +128 @@
 begin
   StartBounds := Control.BoundsRect;
+  Control.Show;
   Control.Align := alCustom;
   Direction := 1;
@@ -165 +173 @@
 end;
 
-{ TCDStylePopupTabs }
-
-
-constructor TCDStylePopupTabs.Create(ADockSite: TWinControl);
+{ TCDManagerTabsPopup }
+
+procedure TCDManagerTabsPopup.PinShowButtonClick(Sender: TObject);
+begin
+
+end;
+
+procedure TCDManagerTabsPopup.PinHideButtonClick(Sender: TObject);
+begin
+
+end;
+
+procedure TCDManagerTabsPopup.TabControlChange(Sender: TObject);
+begin
+  inherited TabControlChange(Sender);
+  if PopupPanel.ControlCount > 0 then
+    PopupPanel.Controls[0].Parent := nil;
+  AutoHide.Hide;
+  if PageControl.TabIndex >= 0 then begin
+    TCDManagerTabsPopupItem(DockItems[PageControl.TabIndex]).Control.Parent := PopupPanel;
+    AutoHide.Control.Align := alCustom;
+    with AutoHide.Control do
+    case AutoHide.TabPosition of
+      tpTop: SetBounds(PageControl.Left, PageControl.Top + PageControl.Height,
+        PageControl.Width, Height);
+      tpLeft: SetBounds(PageControl.Left + PageControl.Width, PageControl.Top,
+        Width, PageControl.Height);
+      tpBottom: SetBounds(PageControl.Left, PageControl.Top - Height,
+        PageControl.Width, Height);
+      tpRight: SetBounds(PageControl.Left - Width, PageControl.Top,
+        Width, PageControl.Height);
+    end;
+    AutoHide.Show;
+  end;
+end;
+
+constructor TCDManagerTabsPopup.Create(ADockSite: TWinControl);
 var
   I: Integer;
@@ -174 +215 @@
   inherited;
   FDockStyle := dsPopupTabs;
+  PopupPanel := TPanel.Create(nil);
+  PopupPanel.DockManager := TCDManagerRegions.Create(PopupPanel);
+  PopupPanel.Visible := True;
   AutoHide := TCDAutoHide.Create;
-  PopupPanel := TPanel.Create(nil);
-end;
-
-destructor TCDStylePopupTabs.Destroy;
+  AutoHide.Control := PopupPanel;
+
+  for I := 0 to DockItems.Count - 1 do begin
+//    if TCDManagerTabsPopupItem(DockItems[I]).Hidden then
+//      if
+  end;
+end;
+
+destructor TCDManagerTabsPopup.Destroy;
 begin
   AutoHide.Free;
@@ -185 +234 @@
 end;
 
+procedure TCDManagerTabsPopup.InsertControlNoUpdate(Control: TControl; InsertAt: TAlign);
+var
+  NewTabSheet: TTabSheet;
+  NewItem: TCDManagerTabsItem;
+begin
+  //inherited;
+  begin
+    NewItem := TCDManagerTabsPopupItem.Create;
+    with NewItem do begin
+      //Panel.Parent := Self.DockSite;
+      Manager := Self;
+      //if DockStyle = dsList then Visible := True;
+      //Align := alClient;
+      //Header.PopupMenu := Self.PopupMenu;
+      //PopupMenu.Parent := Self.DockSite;
+    end;
+    if (Control is TForm) and Assigned((Control as TForm).Icon) then
+      NewItem.Icon.Picture.Assign((Control as TForm).Icon);
+
+    NewItem.Control := Control;
+    Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
+    //AControl.Parent := NewItem.ClientAreaPanel;
+    Control.Align := alClient;
+    if (InsertAt = alTop) or (InsertAt = alLeft) then
+      DockItems.Insert(0, NewItem)
+      else DockItems.Add(NewItem);
+
+  end;
+
+    NewTabSheet := TTabSheet.Create(PageControl);
+    NewTabSheet.PageControl := PageControl;
+    NewTabSheet.Caption := Control.Caption;
+    NewTabSheet.ImageIndex := TabImageList.Count;
+    NewTabSheet.TabVisible := Control.Visible;
+    Control.Parent := NewTabSheet;
+    TabImageList.Add(NewItem.Icon.Picture.Bitmap, nil);
+//    if Assigned(NewItem.Splitter) then
+//      NewItem.Splitter.Visible := False;
+//    NewItem.ClientAreaPanel.Visible := False;
+//    NewItem.Visible := False;
+    //NewItem.Parent := NewTabSheet;
+end;
+
+procedure TCDManagerTabsPopup.SetHeaderPos(const AValue: THeaderPos);
+begin
+  inherited SetHeaderPos(AValue);
+  AutoHide.TabPosition := HeaderPosToTabPos(AValue);
+end;
+
 end.