Changeset 56 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Sep 21, 2010, 8:03:17 AM (14 years ago)

Author:

george

Message:

• Přidáno: Okno pro zobrazení seznamu všech oken.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (23 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -10 +10 @@
   Classes, SysUtils, Controls, LCLType, LMessages, Graphics, StdCtrls,
   Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil,
-  UCoolDockCustomize, DOM, XMLWrite, XMLRead;
+  UCoolDockCustomize, DOM, XMLWrite, XMLRead, UCoolDockWindowList;
 
 const
@@ -21 +21 @@
   TCoolDockManager = class;
   TCoolDockClientPanel = class;
+  TCoolDockCustomize = class;
 
   { TCoolDockConjoinForm }
@@ -56 +57 @@
     procedure SetHeaderPos(const AValue: THeaderPos);
     procedure SetShowHeader(const AValue: Boolean);
+    procedure VisibleChange(Sender: TObject);
   public
     Header: TCoolDockHeader;
@@ -80 +82 @@
     FTabsPos: THeaderPos;
     Timer1: TTimer;
-    PopupMenu1: TPopupMenu;
+    PopupMenuTabs: TPopupMenu;
+    PopupMenuHeader: TPopupMenu;
     FDockStyle: TDockStyle;
     TabControl: TTabControl;
@@ -105 +108 @@
     procedure PopupMenuPositionBottomClick(Sender: TObject);
     procedure PopupMenuUndockClick(Sender: TObject);
+    procedure PopupMenuCustomizeClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
@@ -143 +147 @@
   TCoolDockMaster = class(TComponent)
   private
+    FCoolDockCustomize: TCoolDockCustomize;
     FDefaultHeaderPos: THeaderPos;
     FTabsEnabled: Boolean;
+    procedure SetCustomize(const AValue: TCoolDockCustomize);
     procedure SetTabsEnabled(const AValue: Boolean);
   public
@@ -155 +161 @@
     property DefaultHeaderPos: THeaderPos read FDefaultHeaderPos
       write FDefaultHeaderPos;
+    property Customize: TCoolDockCustomize read FCoolDockCustomize
+      write SetCustomize;
+  end;
+
+  { TCoolDockCustomize }
+
+  TCoolDockCustomize = class(TComponent)
+  private
+    FManager: TCoolDockMaster;
+    procedure SetManager(const AValue: TCoolDockMaster);
+  public
+    Form: TCoolDockCustomizeForm;
+    function Execute: Boolean;
+    constructor Create(AOwner: TComponent); override;
+  published
+    property Manager: TCoolDockMaster read FManager write SetManager;
+  end;
+
+  { TCoolDockWindowList }
+
+  TCoolDockWindowList = class(TComponent)
+  private
+  public
+    Form: TCoolDockWindowListForm;
+    function Execute: Boolean;
+    constructor Create(AOwner: TComponent); override;
+  published
   end;
 
@@ -174 +207 @@
   SPositionBottom = 'Bottom';
   SUndock = 'Undock';
+  SCustomize = 'Customize...';
 
 procedure Register;
@@ -179 +213 @@
   RegisterComponents('CoolDocking', [TCoolDockMaster]);
   RegisterComponents('CoolDocking', [TCoolDockCustomize]);
+  RegisterComponents('CoolDocking', [TCoolDockWindowList]);
 end;
 
@@ -204 +239 @@
   FDockSite := ADockSite;
   FDockPanels := TObjectList.Create;
-  PopupMenu1 := TPopupMenu.Create(FDockSite);
 
   Timer1 := TTimer.Create(nil);
@@ -210 +244 @@
   Timer1.OnTimer := Timer1Timer;
 
-  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  // Tabs popup
+
+  PopupMenuTabs := TPopupMenu.Create(FDockSite);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
   NewMenuItem.Caption := SDockStyle;
-  PopupMenu1.Items.Add(NewMenuItem);
+  PopupMenuTabs.Items.Add(NewMenuItem);
 
   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
@@ -224 +262 @@
   NewMenuItem.Add(NewMenuItem2);
 
-  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
   NewMenuItem.Caption := SPosition;
-  PopupMenu1.Items.Add(NewMenuItem);
+  PopupMenuTabs.Items.Add(NewMenuItem);
 
   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
@@ -253 +291 @@
   NewMenuItem.Add(NewMenuItem2);
 
-  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
   NewMenuItem.Caption := SCloseForm;
   NewMenuItem.OnClick := PopupMenuCloseClick;
-  PopupMenu1.Items.Add(NewMenuItem);
-
-  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  PopupMenuTabs.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
   NewMenuItem.Caption := SRenameForm;
   NewMenuItem.OnClick := PopupMenuRenameClick;
-  PopupMenu1.Items.Add(NewMenuItem);
-
-  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  PopupMenuTabs.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
   NewMenuItem.Caption := SUndock;
   NewMenuItem.OnClick := PopupMenuUndockClick;
-  PopupMenu1.Items.Add(NewMenuItem);
+  PopupMenuTabs.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
+  NewMenuItem.Caption := SCustomize;
+  NewMenuItem.OnClick := PopupMenuCustomizeClick;
+  PopupMenuTabs.Items.Add(NewMenuItem);
+
+  // Header popup
+
+  PopupMenuHeader := TPopupMenu.Create(FDockSite);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
+  NewMenuItem.Caption := SDockStyle;
+  PopupMenuHeader.Items.Add(NewMenuItem);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SDockList;
+  NewMenuItem2.OnClick := PopupMenuListClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SDockTabs;
+  NewMenuItem2.OnClick := PopupMenuTabsClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
+  NewMenuItem.Caption := SPosition;
+  PopupMenuHeader.Items.Add(NewMenuItem);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SPositionAuto;
+  NewMenuItem2.OnClick := PopupMenuPositionAutoClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SPositionTop;
+  NewMenuItem2.OnClick := PopupMenuPositionTopClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SPositionLeft;
+  NewMenuItem2.OnClick := PopupMenuPositionLeftClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SPositionBottom;
+  NewMenuItem2.OnClick := PopupMenuPositionBottomClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SPositionRight;
+  NewMenuItem2.OnClick := PopupMenuPositionRightClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
+  NewMenuItem.Caption := SCloseForm;
+  NewMenuItem.OnClick := PopupMenuCloseClick;
+  PopupMenuHeader.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
+  NewMenuItem.Caption := SRenameForm;
+  NewMenuItem.OnClick := PopupMenuRenameClick;
+  PopupMenuHeader.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
+  NewMenuItem.Caption := SUndock;
+  NewMenuItem.OnClick := PopupMenuUndockClick;
+  PopupMenuHeader.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
+  NewMenuItem.Caption := SCustomize;
+  NewMenuItem.OnClick := PopupMenuCustomizeClick;
+  PopupMenuHeader.Items.Add(NewMenuItem);
 
   TabControl := TTabControl.Create(FDockSite);
@@ -275 +385 @@
     Height := 24;
     OnChange := TabControlChange;
-    PopupMenu := PopupMenu1;
+    PopupMenu := PopupMenuTabs;
     OnMouseDown := TabControlMouseDown;
   end;
@@ -357 +467 @@
       if DockStyle = dsList then Visible := True;
       Align := alClient;
+      Header.PopupMenu := PopupMenuHeader;
     end;
 
@@ -368 +479 @@
     end;
     NewPanel.Control := Control;
+    Control.AddHandlerOnVisibleChanged(NewPanel.VisibleChange);
     Control.Parent := NewPanel.ClientAreaPanel;
     Control.Align := alClient;
@@ -596 +708 @@
     for I := 0 to FDockPanels.Count - 1 do begin
       TCoolDockClientPanel(FDockPanels[I]).Height := FDockSite.Height div
-        FDockSite.DockClientCount;
+        FDockSite.VisibleDockClientCount;
       TCoolDockClientPanel(FDockPanels[I]).Width := FDockSite.Width div
-        FDockSite.DockClientCount;
+        FDockSite.VisibleDockClientCount;
       //TCoolDockClientPanel(FDockPanels[I]).DockPanelPaint(Self);
     end;
@@ -644 +756 @@
 
 procedure TCoolDockManager.PopupMenuCloseClick(Sender: TObject);
-begin
-  TForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
+var
+  Control: TControl;
+begin
+  Control := FindLCLControl(Mouse.CursorPos);
+  if Assigned(Control) then
+    ShowMessage(Control.ClassName);
+//  DockSiteTForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
 end;
 
@@ -687 +804 @@
 begin
 
+end;
+
+procedure TCoolDockManager.PopupMenuCustomizeClick(Sender: TObject);
+begin
+//  if Assigned(DockMaster.Customize) then
+//    DockMaster.Customize.Execute;
 end;
 
@@ -714 +837 @@
   FShowHeader := AValue;
   DockPanelPaint(Self);
+end;
+
+procedure TCoolDockClientPanel.VisibleChange(Sender: TObject);
+begin
+  //OwnerDockManager.FDockPanels.Remove(Self);
+  ClientAreaPanel.Visible := Control.Visible;
+  Splitter.Visible := Control.Visible;
+  OwnerDockManager.UpdateClientSize;
 end;
 
@@ -737 +868 @@
     Align := alTop;
     Height := GrabberSize;
+    ParentClientPanel := Self;
   end;
   ClientAreaPanel := TPanel.Create(Self);
@@ -832 +964 @@
   if FTabsEnabled=AValue then exit;
   FTabsEnabled:=AValue;
+end;
+
+procedure TCoolDockMaster.SetCustomize(const AValue: TCoolDockCustomize
+  );
+begin
+  if FCoolDockCustomize=AValue then exit;
+  FCoolDockCustomize:=AValue;
+  if Assigned(AValue) then
+    if not Assigned(AValue.Manager) then
+      AValue.Manager := Self;
 end;
 
@@ -998 +1140 @@
 procedure TCoolDockHeader.CloseButtonClick(Sender: TObject);
 begin
-//  Control.Hide;
+  ParentClientPanel.Control.Hide;
+end;
+
+{ TCoolDockCustomize }
+
+procedure TCoolDockCustomize.SetManager(const AValue: TCoolDockMaster);
+begin
+  if FManager = AValue then exit;
+  FManager := AValue;
+  if Assigned(AValue) then
+    if not Assigned(AValue.Customize) then
+      AValue.Customize := Self;
+end;
+
+function TCoolDockCustomize.Execute: Boolean;
+begin
+  Form.ShowModal;
+  Result := True;
+end;
+
+constructor TCoolDockCustomize.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Form := TCoolDockCustomizeForm.Create(Self);
+end;
+
+
+{ TCoolDockWindowList }
+
+function TCoolDockWindowList.Execute: Boolean;
+begin
+  Form.ShowModal;
+  Result := True;
+end;
+
+constructor TCoolDockWindowList.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Form := TCoolDockWindowListForm.Create(Self);
 end;