Changeset 6

Timestamp:

Dec 9, 2011, 7:22:16 AM (12 years ago)

Author:

chronos

Message:

• Added: Some basic functionality for conjoined form support.

Location:

DockManagement

Files:

• Demo/UMainForm.dfm (modified) (1 diff)
• Demo/UMainForm.pas (modified) (5 diffs)
• UDockManagement.pas (modified) (10 diffs)

DockManagement/Demo/UMainForm.dfm

@@ -3 +3 @@
   Top = 0
   Caption = 'DockManagement demo'
-  ClientHeight = 202
-  ClientWidth = 398
+  ClientHeight = 372
+  ClientWidth = 540
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET

DockManagement/Demo/UMainForm.pas

@@ -4 +4 @@
 
 uses
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDockForm, Vcl.Menus, UDockManagement;
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
+  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDockForm, Vcl.Menus, UDockManagement, Generics.Collections;
 
 type
@@ -18 +18 @@
   private
     RegistryKey: string;
+    function NewDockForm: TDockForm;
   public
+    Forms: TObjectList<TForm>;
     FormCounter: Integer;
     BaseDockPanel: TDBaseDockPanel;
@@ -38 +40 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  Forms := TObjectList<TForm>.Create;
   CustomDockManager := TDDockManager.Create(Self);
   CustomDockManager.RegistryKey := RegistryKey;
@@ -54 +57 @@
   BaseDockPanel.Free;
   CustomDockManager.Free;
+  Forms.Free;
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
  // Init dock init list
@@ -68 +74 @@
   end;
   //CustomDockManager.LoadFromRegistry
+  for I := 0 to 5 do begin
+    Forms.Add(NewDockForm);
+  end;
+end;
+
+function TMainForm.NewDockForm: TDockForm;
+begin
+  Inc(FormCounter);
+  Result := TDockForm.Create(MainForm);
+  Result.Memo1.Text := 'Form ' + IntToStr(FormCounter);
+  Result.Memo1.Align := alClient;
+  Result.Caption := 'Form ' + IntToStr(FormCounter);
+  Result.Show;
+  CustomDockManager.RegisterDockForm(Result, 200, 200, Result.Name, True);
 end;
 
 procedure TMainForm.Newform1Click(Sender: TObject);
-var
-  NewForm: TDockForm;
 begin
-  Inc(FormCounter);
-  NewForm := TDockForm.Create(MainForm);
-  NewForm.Caption := 'Form ' + IntToStr(FormCounter);
-  NewForm.Show;
-  CustomDockManager.RegisterDockForm(NewForm, 200, 200, NewForm.Name, True);
+  Forms.Add(NewDockForm);
 end;
 

DockManagement/UDockManagement.pas

@@ -11 +11 @@
 const
   RegistryRootKey = HKEY_CURRENT_USER;
+  UseConjoinForm: Boolean = True;
+  UseTabbedDock: Boolean = True;
 
 type
@@ -27 +29 @@
     procedure DoClose(var Action: TCloseAction); override;
     procedure DoShow; override;
+    procedure DockDrop(Source: TDragDockObject; X, Y: Integer); override;
+    procedure DoDockOver(Source: TDragDockObject; X, Y: Integer;
+      State: TDragState; var Accept: Boolean); override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -79 +84 @@
   end;
 
+  TDConjoinPanel = class(TDDockPanel)
+  protected
+    function DoUnDock(NewTarget: TWinControl; Client: TControl): Boolean; override;
+  end;
+
+  TDConjoinForm = class(TCustomForm)
+    Panel: TDConjoinPanel;
+    constructor Create(AOwner: TComponent); override;
+    constructor CreateNew(AOwner: TComponent; Dummy: Integer  = 0); override;
+  end;
+
+  TDTabForm = class(TCustomForm)
+    Panel: TPanel;
+    TabSet: TDockTabSet;
+    constructor CreateNew(AOwner: TComponent; Dummy: Integer  = 0); override;
+  end;
+
 
 implementation
@@ -84 +106 @@
 uses Registry;
 
+function GetDockRect(X, Y, Width, Height: Integer; Align: TAlign): TRect;
+const
+  Border = 0.1;
+  FrameWidth = 30;
+var
+  CenterRectagle: TRect;
+begin
+    CenterRectagle := Rect(Round(Width * Border), Round(Height * Border),
+      Width - Round(Width * Border), Height - Round(Height * Border));
+
+    if (Height > 0) and (Width > 0) then begin
+    if (X > CenterRectagle.Left) and (Y > CenterRectagle.Top) and
+    (X < CenterRectagle.Right) and (Y < CenterRectagle.Bottom) then begin
+      Result.TopLeft := CenterRectagle.TopLeft;
+      Result.BottomRight := CenterRectagle.BottomRight;
+    end else
+    if (X < CenterRectagle.Left) and (Round(Y * (Width / Height)) > X) and
+    (Round(Y * (Width / Height)) < (Width - X)) then begin
+      Result.TopLeft := Point(0, 0);
+      Result.BottomRight := Point(Width div 2, Height);
+    end else
+    if (Y < CenterRectagle.Top) and (Round(X * (Height / Width)) > Y) and
+    (Round(X * (Height / Width)) < (Height - Y)) then begin
+      Result.TopLeft := Point(0, 0);
+      Result.BottomRight := Point(Width, Height div 2);
+    end else
+    if (X > CenterRectagle.Right) and (Round(Y * (Width / Height)) > (Width - X)) and
+    (Round(Y * (Width / Height)) < X) then begin
+      Result.TopLeft := Point(Width div 2, 0);
+      Result.BottomRight := Point(Width, Height);
+    end else
+    if (Y > CenterRectagle.Bottom) and (Round(X * (Height / Width)) > (Height - Y)) and
+    (Round(X * (Height / Width)) < Y) then begin
+      Result.TopLeft := Point(0, Height div 2);
+      Result.BottomRight := Point(Width, Height);
+    end else
+      Accept := False;
+    end;
+
+    case Align of
+      alLeft: if Width < FrameWidth then begin
+        Result.TopLeft := Point(0, 0);
+        Result.BottomRight := Point(FrameWidth, Height);
+      end;
+      alTop: if Height < FrameWidth then begin
+        Result.TopLeft := Point(0, 0);
+        Result.BottomRight := Point(Width, FrameWidth);
+      end;
+      alRight: if Width < FrameWidth then begin
+        Result.TopLeft := Point(-FrameWidth, 0);
+        Result.BottomRight := Point(Width, Height);
+      end;
+      alBottom: if Height < FrameWidth then begin
+        Result.TopLeft := Point(0, -FrameWidth);
+        Result.BottomRight := Point(Width, Height);
+      end;
+    end;
+end;
 
 { TDDockManager }
@@ -360 +440 @@
 begin
   inherited;
-  DockSite := True;
+  if UseConjoinForm then begin
+    DockSite := True;
+    UseDockManager := True;
+  end;
   DragKind := dkDock;
   DragMode := dmAutomatic;
@@ -439 +522 @@
 end;
 
+procedure TDDockForm.DockDrop(Source: TDragDockObject; X, Y: Integer);
+var
+  NewConjoin: TDConjoinForm;
+begin
+  inherited;
+  if not UseConjoinForm then Exit;
+  NewConjoin := TDConjoinForm.CreateNew(nil);
+  NewConjoin.Show;
+  NewConjoin.Caption := 'Conjoin';
+  Source.Control.ManualDock(NewConjoin.Panel, nil, alTop);
+  Self.ManualDock(NewConjoin.Panel, nil, alTop);
+//  if Parent is TDBaseDockPanel then
+//    with TDBaseDockPanel(Parent) do
+//      DockPanelCloseForm(nil, Self, dpaDock);
+end;
+
 procedure TDDockForm.DoClose(var Action: TCloseAction);
 begin
@@ -449 +548 @@
 end;
 
-procedure TDDockForm.DoShow;
-begin
-  inherited;
-  if Parent is TDDockPanel then
-    with TDDockPanel(Parent) do
-     if Parent is TDBaseDockPanel then
-       with TDBaseDockPanel(Parent) do
-         DockPanelCloseForm(Self, TDDockPanel(Self.Parent), dpaShow);
-end;
-
-procedure TDDockPanel.DockDrop(Source: TDragDockObject; X, Y: Integer);
-begin
-  inherited;
-  if Parent is TDBaseDockPanel then
-    with TDBaseDockPanel(Parent) do
-      DockPanelCloseForm(nil, Self, dpaDock);
-end;
-
-procedure TDDockPanel.DoDockOver(Source: TDragDockObject; X, Y: Integer;
+procedure TDDockForm.DoDockOver(Source: TDragDockObject; X, Y: Integer;
   State: TDragState; var Accept: Boolean);
 const
@@ -477 +558 @@
 begin
   inherited;
+  if not UseConjoinForm then Exit;
   Accept := Source.Control is TDDockForm;
   if Accept then
@@ -531 +613 @@
     end;
     Source.DockRect := DockRectangle;
+  end;
+end;
+
+procedure TDDockForm.DoShow;
+begin
+  inherited;
+  if Parent is TDDockPanel then
+    with TDDockPanel(Parent) do
+     if Parent is TDBaseDockPanel then
+       with TDBaseDockPanel(Parent) do
+         DockPanelCloseForm(Self, TDDockPanel(Self.Parent), dpaShow);
+end;
+
+procedure TDDockPanel.DockDrop(Source: TDragDockObject; X, Y: Integer);
+begin
+  inherited;
+  if Parent is TDBaseDockPanel then
+    with TDBaseDockPanel(Parent) do
+      DockPanelCloseForm(nil, Self, dpaDock);
+end;
+
+procedure TDDockPanel.DoDockOver(Source: TDragDockObject; X, Y: Integer;
+  State: TDragState; var Accept: Boolean);
+begin
+  inherited;
+  Accept := Source.Control is TDDockForm;
+  if Accept then
+  begin
+    Source.DockRect := GetDockRect(X, Y, Width, Height);
+    Source.DockRect.TopLeft := ClientToScreen(Source.DockRect.TopLeft);
+    Source.DockRect.BottomRight := ClientToScreen(Source.DockRect.BottomRight);
   end;
 end;
@@ -706 +819 @@
 end;
 
+{ TDConjoinForm }
+
+constructor TDConjoinForm.Create(AOwner: TComponent);
+begin
+  inherited;
+end;
+
+constructor TDConjoinForm.CreateNew(AOwner: TComponent; Dummy: Integer);
+begin
+  inherited;
+  Panel := TDConjoinPanel.Create(Self);
+  Panel.Align := alClient;
+  Panel.BevelOuter := bvNone;
+  Panel.BevelInner := bvNone;
+  Panel.Caption := '';
+  Panel.Parent := Self;
+  Panel.Visible := True;
+  Panel.DockSite := True;
+  Panel.UseDockManager := True;
+  //Panel.DragKind := dkDock;
+  //Panel.DragMode := dmAutomatic;
+  DragMode := dmAutomatic;
+  DragKind := dkDock;
+end;
+
+{ TDConjoinPanel }
+
+function TDConjoinPanel.DoUnDock(NewTarget: TWinControl;
+  Client: TControl): Boolean;
+var
+  VisibleDockClientCount: Integer;
+  I: Integer;
+begin
+  inherited;
+
+  VisibleDockClientCount := 0;
+  for I := 0 to DockClientCount - 1 do
+    if DockClients[I].Visible then Inc(VisibleDockClientCount);
+
+  if VisibleDockClientCount <= 2 then begin
+    Parent.Free;
+  end;
+end;
+
+{ TDTabForm }
+
+constructor TDTabForm.CreateNew(AOwner: TComponent; Dummy: Integer);
+begin
+  inherited;
+  Panel := TDConjoinPanel.Create(Self);
+  Panel.Align := alClient;
+  Panel.BevelOuter := bvNone;
+  Panel.BevelInner := bvNone;
+  Panel.Caption := '';
+  Panel.Parent := Self;
+  Panel.Visible := True;
+  Panel.DockSite := True;
+  Panel.UseDockManager := True;
+  //Panel.DragKind := dkDock;
+  //Panel.DragMode := dmAutomatic;
+  DragMode := dmAutomatic;
+  DragKind := dkDock;
+  TabSet := TDockTabSet.Create(Self);
+  TabSet.Parent := Self;
+  TabSet.Align := alBottom;
+  TabSet.Visible := True;
+end;
+
 end.