Changeset 359 for Docking/CoolDocking/Managers/UCDManagerRegions.pas

Timestamp:

May 4, 2012, 12:27:25 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Regions size update on Control visible state change.
• Added: Support for custom center region selection. Surrounding regions are aligned to edges and keep size on docksite resize.

File:

• Docking/CoolDocking/Managers/UCDManagerRegions.pas (modified) (12 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -15 +15 @@
 
   TCDManagerRegionsItem = class(TCDManagerItem)
+  private
+  public
     PanelHeader: TCDPanelHeader;
     Splitter: TSplitter;
-    Align: TAlign;
     procedure VisibleChange(Sender: TObject); override;
     procedure Paint(Sender: TObject); override;
+    procedure PanelResize(Sender: TObject);
     constructor Create;
     destructor Destroy; override;
     procedure SetControl(const AValue: TWinControl); override;
+    procedure SetCenter;
   end;
 
@@ -30 +33 @@
   private
     FDockItems: TObjectList; // TList<TCDManagerRegionsItem>
+    FLastVisibleItemsCount: Integer;
     function GetHeaderPos: THeaderPos; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
     function GetDirection(InsertAt: TAlign): TCDDirection;
+    procedure ResizePanels;
+    procedure ClearItemsAlignment;
+    procedure UpdateItemsAlignment;
+    function PanelsVisible: Integer;
+  protected
+    FDockDirection: TCDDirection;
   public
-    FDockDirection: TCDDirection;
     //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel>
     function FindControlInPanels(Control: TControl): TCDManagerItem; override;
@@ -59 +68 @@
 { TCDManagerRegionsItem }
 
+procedure TCDManagerRegionsItem.SetCenter;
+begin
+  TCDManagerRegions(Manager).ClearItemsAlignment;
+  PanelHeader.Align := alClient;
+  Manager.Update;
+end;
+
 procedure TCDManagerRegionsItem.VisibleChange(Sender: TObject);
 begin
@@ -66 +82 @@
     //  TCDManagerRegionsItem(DockItems[DockItems.IndexOf(FindControlInPanels(TControl(Sender)))]).HideType := dhtPermanent;
     //end;
+    PanelHeader.Visible := Control.Visible;
     Update;
 
@@ -91 +108 @@
 end;
 
+procedure TCDManagerRegionsItem.PanelResize(Sender: TObject);
+begin
+  TCDManagerRegions(Manager).ResizePanels;
+end;
+
 constructor TCDManagerRegionsItem.Create;
 begin
@@ -97 +119 @@
   PanelHeader.Header.OnMouseDown := DockPanelMouseDown;
   PanelHeader.Header.Icon.OnMouseDown := DockPanelMouseDown;
+  PanelHeader.OnResize := PanelResize;
 
   Splitter := TSplitter.Create(nil);
@@ -113 +136 @@
   Splitter.Parent := nil;
   Splitter.Free;
-  Control.Parent := nil;
+  if Assigned(Control) then Control.Parent := nil;
   inherited Destroy;
 end;
@@ -153 +176 @@
 end;
 
+procedure TCDManagerRegions.ResizePanels;
+var
+  I: Integer;
+  CenterPanelSize: TPoint;
+  Zoom: Real;
+const
+  MinSize = 30;
+begin
+  I := 0;
+  while (I < DockItems.Count) and
+    (TCDManagerRegionsItem(DockItems[I]).PanelHeader.Align <> alClient) do
+      Inc(I);
+  if I < DockItems.Count then begin
+    CenterPanelSize.X := TCDManagerRegionsItem(DockItems[I]).PanelHeader.Width;
+    CenterPanelSize.Y := TCDManagerRegionsItem(DockItems[I]).PanelHeader.Height;
+  end else Exit;
+  if (CenterPanelSize.X < MinSize) and (FDockDirection = ddHorizontal) then begin
+    Zoom := CenterPanelSize.X / MinSize;
+    for I := 0 to DockItems.Count - 1 do
+      with TCDManagerRegionsItem(DockItems[I]).PanelHeader do
+        if Align <> alClient then Width := Round(Width * Zoom);
+  end;
+  if (CenterPanelSize.Y < MinSize) and (FDockDirection = ddVertical) then begin
+    Zoom := CenterPanelSize.Y / MinSize;
+    for I := 0 to DockItems.Count - 1 do
+      with TCDManagerRegionsItem(DockItems[I]).PanelHeader do
+        if Align <> alClient then Height := Round(Height * Zoom);
+  end;
+end;
+
+procedure TCDManagerRegions.ClearItemsAlignment;
+var
+  I: Integer;
+begin
+  for I := 0 to FDockItems.Count - 1 do
+  with TCDManagerRegionsItem(FDockItems[I]) do begin
+    PanelHeader.Align := alNone;
+    Splitter.Align := alNone;
+  end;
+end;
+
+procedure TCDManagerRegions.UpdateItemsAlignment;
+var
+  I: Integer;
+  ClientPanelIndex: Integer;
+begin
+  // Find alClient panel item index
+  I := 0;
+  while (I < FDockItems.Count) and
+    (TCDManagerRegionsItem(FDockItems[I]).PanelHeader.Align <> alClient) do Inc(I);
+  if I < FDockItems.Count then ClientPanelIndex := I
+    else ClientPanelIndex := FDockItems.Count div 2;
+
+  // Normalize alignment
+  for I := 0 to FDockItems.Count - 1 do
+  with TCDManagerRegionsItem(FDockItems[I]) do begin
+    if FDockDirection = ddHorizontal then begin
+      if I < ClientPanelIndex then PanelHeader.Align := alLeft
+        else if I = ClientPanelIndex then PanelHeader.Align := alClient
+        else if I > ClientPanelIndex then PanelHeader.Align := alRight;
+    end;
+    if FDockDirection = ddVertical then begin
+      if I < ClientPanelIndex then PanelHeader.Align := alTop
+        else if I = ClientPanelIndex then PanelHeader.Align := alClient
+        else if I > ClientPanelIndex then PanelHeader.Align := alBottom;
+    end;
+  end;
+end;
+
+function TCDManagerRegions.PanelsVisible: Integer;
+var
+  I: Integer;
+begin
+  Result := 0;
+  for I := 0 to FDockItems.Count - 1 do
+  with TCDManagerRegionsItem(FDockItems[I]) do begin
+    if PanelHeader.Visible then Inc(Result);
+  end;
+end;
+
 function TCDManagerRegions.FindControlInPanels(Control: TControl
   ): TCDManagerItem;
@@ -172 +275 @@
   NewItem := TCDManagerRegionsItem.Create;
   with NewItem do begin
+    PanelHeader.DockItem := NewItem;
     PanelHeader.Parent := Self.DockSite;
     Manager := Self;
@@ -184 +288 @@
 
   NewItem.PanelHeader.Parent := DockSite;
-
-  if DockItems.Count = 0 then NewItem.Align := alClient
-    else NewItem.Align := InsertAt;
 
   NewItem.Control := TWinControl(Control);
@@ -302 +403 @@
 var
   I: Integer;
-  SplitterLeft: Integer;
-  SplitterTop: Integer;
-  BaseAlign: TAlign;
+  PositionLeft: Integer;
+  PositionTop: Integer;
   VisibleControlsCount: Integer;
+const
+  MinSize = 30;
 begin
   inherited;
   if FUpdateCount = 0 then begin
   DebugLog('TCDManagerRegions.UpdateClientSize');
-  VisibleControlsCount := DockSite.VisibleDockClientCount;
+  VisibleControlsCount := PanelsVisible;
   if DockSite is TForm then begin
-    DockSiteVisible := VisibleControlsCount > 0;
+    //DockSiteVisible := VisibleControlsCount > 0;
   end;
   if VisibleControlsCount = 0 then VisibleControlsCount := 1;
 
+  PositionLeft := 0;
+  PositionTop := 0;
+  UpdateItemsAlignment;
   for I := 0 to DockItems.Count - 1 do
   with TCDManagerRegionsItem(DockItems[I]) do
   begin
-    PanelHeader.Left := SplitterLeft;
-    PanelHeader.Top := SplitterTop;
-    PanelHeader.Height := Self.DockSite.Height div
-      VisibleControlsCount;
-    PanelHeader.Width := Self.DockSite.Width div
-      VisibleControlsCount;
+    PanelHeader.Left := PositionLeft;
+    PanelHeader.Top := PositionTop;
+    if (FLastVisibleItemsCount <> VisibleControlsCount) then begin
+      PanelHeader.Height := Self.DockSite.Height div
+        VisibleControlsCount;
+      PanelHeader.Width := Self.DockSite.Width div
+        VisibleControlsCount;
+    end;
+    if PanelHeader.Height < MinSize then PanelHeader.Height := MinSize;
+    if PanelHeader.Width < MinSize then PanelHeader.Width := MinSize;
+
     if Assigned(TWinControl(Control).DockManager) then
       PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
     PanelHeader.Visible := Control.Visible;
     Paint(Self);
-    if FDockDirection = ddHorizontal then
-      BaseAlign := alLeft else BaseAlign := alTop;
-
-    if I < Trunc((DockItems.Count - 1) / 2) then BaseAlign := BaseAlign
-        else if I = Trunc((DockItems.Count - 1) / 2) then BaseAlign := alClient
-        else if I > Trunc((DockItems.Count - 1) / 2) then begin
-          if BaseAlign = alTop then BaseAlign := alBottom
-          else if BaseAlign = alLeft then BaseAlign := alRight;
-        end;
-    PanelHeader.Align := BaseAlign;
-
-    Splitter.Align := BaseAlign;
-    SplitterLeft := PanelHeader.Left;
-    SplitterTop := PanelHeader.Top;
-    Splitter.Left := SplitterLeft;
-    Splitter.Top := SplitterTop;
+
+    //PositionLeft := PanelHeader.Left;
+    //PositionTop := PanelHeader.Top;
+    if PanelHeader.Align = alLeft then Splitter.Left := PositionLeft + PanelHeader.Width + 1;
+    if PanelHeader.Align = alRight then Splitter.Left := PositionLeft - 1;
+    if PanelHeader.Align = alTop then Splitter.Top := PositionTop + PanelHeader.Height + 1;
+    if PanelHeader.Align = alBottom then Splitter.Top := PositionTop - 1;
+    Splitter.Align := PanelHeader.Align;
     Splitter.Parent := Self.DockSite;
-    Splitter.Visible := I <> (Trunc(DockItems.Count - 1) / 2);
-    Inc(SplitterLeft, Splitter.Width);
-    Inc(SplitterTop, Splitter.Height);
+    Splitter.Visible := PanelHeader.Visible and (PanelHeader.Align <> alClient);
+    Splitter.Width := 3;
+    Splitter.Height := 3;
+    Inc(PositionLeft, Splitter.Width + PanelHeader.Width);
+    Inc(PositionTop, Splitter.Height + PanelHeader.Height);
 
     Paint(Self);
-    PanelHeader.Align := BaseAlign;
-  end;
+    //PanelHeader.Align := BaseAlign;
+  end;
+    FLastVisibleItemsCount := VisibleControlsCount;
   end;
 end;
@@ -362 +467 @@
   inherited;
   //if DockSite.Visible <> AValue then
+  if DockItems.Count > 0 then
   try
     BeginUpdate;