Changeset 48 for DockManager/Lazarus/UCustomDockManager.pas

Timestamp:

Sep 17, 2010, 3:34:31 PM (14 years ago)

Author:

george

Message:

• Přidáno: Balíček Lazarusu pro snadnější instalaci. Součástí je také komponenta globálního správce ukotvení.
• Přidáno: Kontextové menu pro doplňující volby ukotvení oken. Nyní možnost přepínat mezi zobrazením seznamu a záložek.

Location:

DockManager/Lazarus

Files:

• . (modified) (1 prop)
• UCustomDockManager.pas (modified) (21 diffs)

DockManager/Lazarus/UCustomDockManager.pas

@@ -2 +2 @@
 
 {$mode delphi}{$H+}
+
+// Date: 2010-09-17
 
 interface
@@ -7 +9 @@
 uses
   Classes, SysUtils, Controls, LCLType, LMessages, Graphics, StdCtrls,
-  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs;
+  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil;
 
 const
-  GrabberSize = 18;
+  GrabberSize = 22;
 
 type
   TDockDirection = (ddNone, ddHorizontal, ddVertical);
+  THeaderPos = (hpAuto, hpLeft, hpTop, hpRight, hpBottom);
 
   TCustomDockManager = class;
@@ -53 +56 @@
   TCustomDockManager = class(TDockManager)
   private
+    PopupMenu1: TPopupMenu;
     FDockStyle: TDockStyle;
     TabControl: TTabControl;
@@ -64 +68 @@
     procedure UpdateClientSize;
     procedure TabControlChange(Sender: TObject);
+    procedure PopupMenuListClick(Sender: TObject);
+    procedure PopupMenuTabsClick(Sender: TObject);
   public
     constructor Create(ADockSite: TWinControl); override;
@@ -87 +93 @@
     function AutoFreeByControl: Boolean; override;
 
-    function CreateContainer: TConjoinDockForm;
+    function CreateContainer(InsertAt: TAlign): TConjoinDockForm;
     property DockStyle: TDockStyle read FDockStyle write SetDockStyle;
   end;
 
+  { TCustomDockMaster }
+
+  TCustomDockMaster = class(TComponent)
+  private
+    FDefaultHeaderPos: THeaderPos;
+    FTabsEnabled: Boolean;
+    procedure SetTabsEnabled(const AValue: Boolean);
+  public
+    procedure SaveLayoutToStream(Stream: TStream);
+    procedure LoadLayoutFromStream(Stream: TStream);
+    procedure SaveLayoutToFile(FileName: string);
+    procedure LoadLayoutFromFile(FileName: string);
+  published
+    property TabsEnabled: Boolean read FTabsEnabled write SetTabsEnabled;
+    property DefaultHeaderPos: THeaderPos read FDefaultHeaderPos
+      write FDefaultHeaderPos;
+  end;
+
+procedure Register;
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('CustomDocking', [TCustomDockMaster]);
+end;
+
 
 { TCustomDockManager }
@@ -108 +140 @@
 
 constructor TCustomDockManager.Create(ADockSite: TWinControl);
-begin
+var
+  NewMenuItem: TMenuItem;
+begin
+  inherited Create(ADockSite);
   FDockSite := ADockSite;
   FDockPanels := TObjectList.Create;
+  PopupMenu1 := TPopupMenu.Create(FDockSite);
+  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  NewMenuItem.Caption := 'List';
+  PopupMenu1.Items.Add(NewMenuItem);
+  NewMenuItem.OnClick := PopupMenuListClick;
+  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  NewMenuItem.Caption := 'Tabs';
+  NewMenuItem.OnClick := PopupMenuTabsClick;
+  PopupMenu1.Items.Add(NewMenuItem);
   TabControl := TTabControl.Create(FDockSite);
   with TabControl do begin
@@ -118 +162 @@
     Height := 24;
     OnChange := TabControlChange;
-  end;
-  inherited Create(ADockSite);
+    PopupMenu := PopupMenu1;
+  end;
 end;
 
@@ -156 +200 @@
   DropCtl: TControl);
 var
-  NewSplitter: TSplitter;
   NewPanel: TDockClientPanel;
   I: Integer;
@@ -171 +214 @@
     //end;
     if FDockSite.DockClientCount > 1 then begin
-      NewSplitter := TSplitter.Create(nil);
-      NewSplitter.Parent := FDockSite;
-      NewSplitter.Visible := True;
-      NewSplitter.Color := clRed;
-      with NewSplitter do
-      if FDockDirection = ddVertical then begin
-        Align := alTop;
-        Top := FDockSite.Height;
-      end else
-      if FDockDirection = ddHorizontal then begin
-        Align := alLeft;
-        Left := FDockSite.Width;
+      with TDockClientPanel(FDockPanels.Last).Splitter do begin
+        Parent := FDockSite;
+        Visible := True;
+        if FDockDirection = ddVertical then begin
+          Align := alTop;
+          Top := FDockSite.Height;
+        end else
+        if FDockDirection = ddHorizontal then begin
+          Align := alLeft;
+          Left := FDockSite.Width;
+        end;
       end;
 
@@ -194 +236 @@
     NewPanel := TDockClientPanel.Create(nil);
     with NewPanel do begin
-      Splitter := NewSplitter;
       Parent := FDockSite;
       OwnerDockManager := Self;
       if DockStyle = dsList then Visible := True;
       Align := alClient;
+      PopupMenu := PopupMenu1;
     end;
 
     if DockStyle = dsTabs then begin
-      TabControl.Tabs.Add(Control.Name);
+      TabControl.Tabs.Add(Control.Caption);
       TabControlChange(Self);
     end;
@@ -342 +384 @@
 end;
 
-function TCustomDockManager.CreateContainer: TConjoinDockForm;
+function TCustomDockManager.CreateContainer(InsertAt: TAlign): TConjoinDockForm;
 var
   NewDockSite: TWinControl;
@@ -354 +396 @@
   NewDockSite := FDockSite.HostDockSite;
   //      FDockSite.ManualFloat(FDockSite.BoundsRect);
-  NewConjoinDockForm.ManualDock(NewDockSite);
+  NewConjoinDockForm.ManualDock(NewDockSite, nil, InsertAt);
   Result := NewConjoinDockForm;
 end;
@@ -367 +409 @@
     TabControl.Tabs.Clear;
     for I := 0 to FDockPanels.Count - 1 do begin
-      TabControl.Tabs.Add(TDockClientPanel(FDockPanels[I]).Control.Name);
-      TDockClientPanel(FDockPanels[I]).Splitter.Visible := False;
+      TabControl.Tabs.Add(TDockClientPanel(FDockPanels[I]).Control.Caption);
+      if Assigned(TDockClientPanel(FDockPanels[I]).Splitter) then
+        TDockClientPanel(FDockPanels[I]).Splitter.Visible := False;
       TDockClientPanel(FDockPanels[I]).ClientAreaPanel.Visible := False;
       TDockClientPanel(FDockPanels[I]).Visible := False;
@@ -378 +421 @@
     TabControl.Tabs.Clear;
     for I := 0 to FDockPanels.Count - 1 do begin
-      TDockClientPanel(FDockPanels[I]).Splitter.Visible := True;
+      if Assigned(TDockClientPanel(FDockPanels[I]).Splitter) then
+        TDockClientPanel(FDockPanels[I]).Splitter.Visible := True;
       TDockClientPanel(FDockPanels[I]).Visible := True;
       TDockClientPanel(FDockPanels[I]).ClientAreaPanel.Parent := TDockClientPanel(FDockPanels[I]);
+      TDockClientPanel(FDockPanels[I]).ClientAreaPanel.Visible := True;
     end;
   end;
@@ -416 +461 @@
   end;
   if (TabControl.TabIndex <> -1) and (FDockPanels.Count > TabControl.TabIndex) then begin
-    TDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel.Parent := FDockSite;
-    TDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel.Visible := True;
+    with TDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel do begin
+      Parent := FDockSite;
+      Visible := True;
+      UpdateClientSize;
+    end;
 //  TDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
   end;
+end;
+
+procedure TCustomDockManager.PopupMenuTabsClick(Sender: TObject);
+begin
+  DockStyle := dsTabs;
+end;
+
+procedure TCustomDockManager.PopupMenuListClick(Sender: TObject);
+begin
+  DockStyle := dsList;
 end;
 
@@ -439 +497 @@
     Caption := 'X';
     Font.Size := 6;
-    Width := 14;
-    Height := 14;
+    Width := GrabberSize - 4;
+    Height := GrabberSize - 4;
     Visible := False;
     OnClick := CloseButtonClick;
@@ -459 +517 @@
     //Color := clGreen;
   end;
+  Splitter := TSplitter.Create(Self);
+  with Splitter do begin
+    //Color := clRed;
+  end;
   OnPaint := DockPanelPaint;
   OnMouseDown := DockPanelMouseDown;
@@ -483 +545 @@
       else Font.Style := Font.Style - [fsBold];
     Rectangle(1, 1, AControl.Width - 1, GrabberSize - 1);
-    TextOut(6, 2, AControl.Caption);
+    TextOut(6, 4, AControl.Caption);
 
     CloseButton.Left := AControl.Width - CloseButton.Width - 2;
@@ -526 +588 @@
 begin
   if Control is TForm then begin
-    TForm(Control).SetFocus;
+    //TForm(Control).SetFocus;
     DockPanelPaint(Self);
   end;
@@ -545 +607 @@
     UseDockManager := True;
     Align := alClient;
+  //  Color := clYellow;
   end;
   DragKind := dkDock;
@@ -550 +613 @@
 end;
 
+{ TCustomDockMaster }
+
+procedure TCustomDockMaster.SetTabsEnabled(const AValue: Boolean);
+begin
+  if FTabsEnabled=AValue then exit;
+  FTabsEnabled:=AValue;
+end;
+
+procedure TCustomDockMaster.SaveLayoutToStream(Stream: TStream);
+begin
+
+end;
+
+procedure TCustomDockMaster.LoadLayoutFromStream(Stream: TStream);
+begin
+
+end;
+
+procedure TCustomDockMaster.SaveLayoutToFile(FileName: string);
+var
+  LayoutFile: TFileStream;
+begin
+  if FileExistsUTF8(FileName) then
+  LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
+  else LayoutFile := TFileStream.Create(FileName, fmCreate);
+  try
+    SaveLayoutToStream(LayoutFile);
+  finally
+    Free;
+  end;
+end;
+
+procedure TCustomDockMaster.LoadLayoutFromFile(FileName: string);
+var
+  LayoutFile: TFileStream;
+begin
+  LayoutFile := TFileStream.Create(FileName, fmOpenRead);
+  try
+    LoadLayoutFromStream(LayoutFile);
+  finally
+    Free;
+  end;
+end;
+
 initialization
   DefaultDockManagerClass := TCustomDockManager;