Changeset 183 for Docking/CoolDocking/UCoolDockStyleRegions.pas

Timestamp:

Mar 10, 2011, 7:55:48 AM (14 years ago)

Author:

george

Message:

• Fixed: Insertion in regions on left and top side.
• Added: If inserted control side is defferent than already placed controls then create conjoined subform.

File:

• Docking/CoolDocking/UCoolDockStyleRegions.pas (modified) (8 diffs)

Docking/CoolDocking/UCoolDockStyleRegions.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Controls, ExtCtrls, StdCtrls, UCoolDockStyle,
+  Classes, SysUtils, Controls, ExtCtrls, StdCtrls, UCoolDockStyle, Forms,
   Graphics, Contnrs, Buttons, UCoolDockClientPanel, UCoolDockCommon;
 
@@ -18 +18 @@
   TCoolDockStyleRegions = class(TCoolDockStyle)
   private
+    function GetDirection(InsertAt: TAlign): TDockDirection;
   public
-    Panels: TObjectList; // TObjectList<TCoolDockStyleRegionsPanel>
+    FDockDirection: TDockDirection;
+    //Panels: TObjectList; // TObjectList<TCoolDockStyleRegionsPanel>
+    procedure InsertControl(AControl: TControl; InsertAt: TAlign); override;
+    procedure RemoveControl(Control: TControl); override;
     function GetHeaderPos: THeaderPos; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
@@ -27 +31 @@
     procedure SetVisible(const AValue: Boolean); override;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
+    property DockDirection: TDockDirection read FDockDirection
+      write FDockDirection;
   end;
 
@@ -37 +43 @@
 { TCoolDockStyleRegions }
 
+function TCoolDockStyleRegions.GetDirection(InsertAt: TAlign): TDockDirection;
+begin
+  Result := ddHorizontal;
+  if (InsertAt = alTop) or (InsertAt = alBottom) then
+    Result := ddVertical
+  else
+  if (InsertAt = alLeft) or (InsertAt = alRight) then
+    Result := ddHorizontal
+  else;
+end;
+
+procedure TCoolDockStyleRegions.InsertControl(AControl: TControl; InsertAt: TAlign);
+var
+  NewPanel: TCoolDockClientPanel;
+  I: Integer;
+  NewDirection: TDockDirection;
+  NewConjoinDockForm: TCoolDockConjoinForm;
+  NewDockSite: TWinControl;
+begin
+  inherited;
+  with TCoolDockManager(Manager) do begin
+    if DockSite.DockClientCount <= 2 then FDockDirection := GetDirection(InsertAt)
+    else
+    if (DockSite.DockClientCount > 2) then begin
+      NewDirection := GetDirection(InsertAt);
+      if (NewDirection <> FDockDirection) then begin
+        // Direction change, create conjoin form
+        NewConjoinDockForm := CreateContainer(InsertAt);
+        NewDockSite := DockSite.HostDockSite;
+        // FDockSite.ManualFloat(FDockSite.BoundsRect);
+        NewConjoinDockForm.ManualDock(NewDockSite);
+        DockSite.ManualDock(NewConjoinDockForm.Panel);
+        AControl.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
+        Exit;
+      end;
+    end;
+
+    NewPanel := TCoolDockClientPanel.Create(nil);
+    with NewPanel do begin
+      Parent := TCoolDockManager(Manager).DockSite;
+      OwnerDockManager := Self;
+      if DockStyle = dsList then Visible := True;
+      Header.PopupMenu := TCoolDockManager(Manager).PopupMenu;
+      //PopupMenu.Parent := Self.DockSite;
+    end;
+    if (AControl is TForm) and Assigned((AControl as TForm).Icon) then
+      NewPanel.Header.Icon.Picture.Assign((AControl as TForm).Icon);
+
+    NewPanel.Control := AControl;
+    AControl.AddHandlerOnVisibleChanged(NewPanel.VisibleChange);
+    AControl.Parent := NewPanel.ClientAreaPanel;
+    AControl.Align := alClient;
+    if (InsertAt = alTop) or (InsertAt = alLeft) then
+      DockPanels.Insert(0, NewPanel)
+      else DockPanels.Add(NewPanel);
+  end;
+  UpdateClientSize;
+end;
+
+procedure TCoolDockStyleRegions.RemoveControl(Control: TControl);
+begin
+  if TCoolDockManager(Manager).DockSite.DockClientCount = 2 then FDockDirection := ddNone;
+  inherited RemoveControl(Control);
+end;
+
 function TCoolDockStyleRegions.GetHeaderPos: THeaderPos;
 begin
@@ -52 +123 @@
 begin
   inherited;
-  Panels := TObjectList.Create;
+  //Panels := TObjectList.Create;
 
   with TCoolDockManager(AManager) do
@@ -67 +138 @@
 destructor TCoolDockStyleRegions.Destroy;
 begin
-  Panels.Free;
+  //Panels.Free;
   inherited Destroy;
 end;
@@ -74 +145 @@
 var
   I: Integer;
+  SplitterLeft: Integer;
+  SplitterTop: Integer;
+  BaseAlign: TAlign;
 begin
   inherited UpdateClientSize;
+  if FDockDirection = ddHorizontal then
+    BaseAlign := alLeft else BaseAlign := alTop;
+
+  SplitterLeft := 0;
+  SplitterTop := 0;
   with TCoolDockManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do
   with TCoolDockClientPanel(DockPanels[I]) do begin
+    Left := SplitterLeft;
+    Top := SplitterTop;
     Height := TCoolDockManager(Manager).DockSite.Height div
       TCoolDockManager(Manager).DockSite.DockClientCount;
@@ -84 +165 @@
       TCoolDockManager(Manager).DockSite.DockClientCount;
     //TCoolDockClientPanel(FDockPanels[I]).DockPanelPaint(Self);
+    if I < (DockPanels.Count - 1) then Align := BaseAlign
+      else Align := alClient;
+
+    Splitter.Left := SplitterLeft;
+    Splitter.Top := SplitterTop;
+    Inc(SplitterLeft, Width);
+    Inc(SplitterTop, Height);
+    Splitter.Parent := TCoolDockManager(Manager).DockSite;
+    Splitter.Align := BaseAlign;
+    Splitter.Visible := True;
+
+
     DockPanelPaint(Self);
     if I < (DockPanels.Count - 1) then begin
-      if TCoolDockManager(Manager).DockDirection = ddHorizontal then Align := alLeft
+      if DockDirection = ddHorizontal then Align := alLeft
         else Align := alTop;
     end else Align := alClient;