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

Timestamp:

Mar 11, 2011, 1:00:06 PM (14 years ago)

Author:

george

Message:

• Removed: UCDClientPanel replaced by TCDManagerItem and it's descendend.

File:

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

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Controls, ExtCtrls, StdCtrls, Forms,
-  Graphics, Contnrs, Buttons, UCDClientPanel, UCDCommon, UCDManager;
+  Graphics, Contnrs, Buttons, UCDCommon, UCDManager,
+  LCLType, LMessages;
 
 type
-  TCDStyleRegionsPanel = class(TPanel)
-
+
+  { TCDManagerRegionsItem }
+
+  TCDManagerRegionsItem = class(TCDManagerItem)
+    Panel: TPanel;
+    Splitter: TSplitter;
+    ClientAreaPanel: TPanel;
+    constructor Create;
   end;
 
@@ -18 +25 @@
   TCDManagerRegions = class(TCDManager)
   private
+    FDockItems: TObjectList; // TList<TCDManagerRegionsItem>
     function GetDirection(InsertAt: TAlign): TCDDirection;
   public
     FDockDirection: TCDDirection;
     //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel>
+    function FindControlInPanels(Control: TControl): TCDManagerItem; override;
     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
       DropCtl: TControl); override;
@@ -27 +36 @@
     constructor Create(ADockSite: TWinControl);
     destructor Destroy; override;
+    procedure PaintSite(DC: HDC); override;
     procedure UpdateClientSize; override;
     procedure DoSetVisible(const AValue: Boolean); override;
@@ -32 +42 @@
     property DockDirection: TCDDirection read FDockDirection
       write FDockDirection;
+    property DockItems: TObjectList read FDockItems write FDockItems;
   end;
 
@@ -38 +49 @@
 uses
   UCDClient, UCDConjoinForm;
+
+{ TCDManagerRegionsItem }
+
+constructor TCDManagerRegionsItem.Create;
+begin
+  Panel := TPanel.Create(nil);
+
+  ClientAreaPanel := TPanel.Create(Panel);
+  with ClientAreaPanel do begin
+    Parent := Panel;
+    Visible := True;
+    DockSite := True;
+    UseDockManager := True;
+    Align := alClient;
+    BevelInner := bvNone;
+    BevelOuter := bvNone;
+    //Color := clGreen;
+  end;
+  Splitter := TSplitter.Create(Panel);
+  with Splitter do begin
+    Parent := Panel;
+    //Color := clRed;
+  end;
+end;
 
 
@@ -53 +88 @@
 end;
 
+function TCDManagerRegions.FindControlInPanels(Control: TControl
+  ): TCDManagerItem;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < FDockItems.Count) and
+    (TCDManagerItem(FDockItems[I]).Control <> Control) do Inc(I);
+  if I < FDockItems.Count then Result := TCDManagerItem(FDockItems[I])
+    else Result := nil;
+end;
+
 procedure TCDManagerRegions.InsertControlPanel(Control: TControl; InsertAt: TAlign;
   DropCtl: TControl);
 var
-  NewPanel: TCDClientPanel;
+  NewPanel: TCDManagerRegionsItem;
   I: Integer;
   NewDirection: TCDDirection;
@@ -85 +132 @@
     end;
 
-    NewPanel := TCDClientPanel.Create(nil);
+    NewPanel := TCDManagerRegionsItem.Create;
     with NewPanel do begin
-      Parent := Self.DockSite;
-      OwnerDockManager := Self;
+      Panel.Parent := Self.DockSite;
+      Manager := Self;
       if DockStyle = dsList then Visible := True;
       Header.PopupMenu := Self.PopupMenu;
@@ -101 +148 @@
     Control.Align := alClient;
     if (InsertAt = alTop) or (InsertAt = alLeft) then
-      DockPanels.Insert(0, NewPanel)
-      else DockPanels.Add(NewPanel);
+      DockItems.Insert(0, NewPanel)
+      else DockItems.Add(NewPanel);
   end;
   UpdateClientSize;
@@ -109 +156 @@
 procedure TCDManagerRegions.RemoveControl(Control: TControl);
 var
-  ClientPanel: TCDClientPanel;
+  ClientPanel: TCDManagerItem;
   ClientCount: Integer;
 begin
@@ -115 +162 @@
   Control.RemoveHandlerOnVisibleChanged(ClientPanel.VisibleChange);
 
-  DockPanels.Remove(ClientPanel);
-  ClientCount := DockPanels.Count;
+  DockItems.Remove(ClientPanel);
+  ClientCount := DockItems.Count;
 
   //if TCDManager(Manager).DockSite.DockClientCount = 2 then FDockDirection := ddNone;
@@ -124 +171 @@
     with TCDConjoinForm(Self.DockSite) do begin
       if Assigned(Parent) then begin
-        TCDClientPanel(DockPanels[0]).Control.ManualDock(HostDockSite);
-      end else TCDClientPanel(DockPanels[0]).Control.ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
+        TCDManagerItem(DockItems[0]).Control.ManualDock(HostDockSite);
+      end else TCDManagerItem(DockItems[0]).Control.ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
       ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
       Free;
@@ -140 +187 @@
   inherited;
   FDockStyle := dsList;
-  //Panels := TObjectList.Create;
-
-  for I := 0 to DockPanels.Count - 1 do begin
-    if Assigned(TCDClientPanel(DockPanels[I]).Splitter) then
-      TCDClientPanel(DockPanels[I]).Splitter.Visible := True;
-    TCDClientPanel(DockPanels[I]).Visible := True;
-    TCDClientPanel(DockPanels[I]).ClientAreaPanel.Parent := TCDClientPanel(DockPanels[I]);
-    TCDClientPanel(DockPanels[I]).ClientAreaPanel.Visible := True;
-    TCDClientPanel(DockPanels[I]).Control.Visible := True;
+  FDockItems := TObjectList.Create;
+
+  for I := 0 to DockItems.Count - 1 do begin
+    if Assigned(TCDManagerRegionsItem(DockItems[I]).Splitter) then
+    with TCDManagerRegionsItem(DockItems[I]) do begin
+      Splitter.Visible := True;
+      Panel.Visible := True;
+      ClientAreaPanel.Parent := TCDManagerRegionsItem(DockItems[I]).Panel;
+      ClientAreaPanel.Visible := True;
+      Control.Visible := True;
+    end;
   end;
 end;
@@ -154 +203 @@
 destructor TCDManagerRegions.Destroy;
 begin
-  //Panels.Free;
+  FDockItems.Free;
   inherited Destroy;
+end;
+
+procedure TCDManagerRegions.PaintSite(DC: HDC);
+var
+  I: Integer;
+begin
+  inherited PaintSite(DC);
+  for I := 0 to FDockItems.Count - 1 do
+    with TCDManagerRegionsItem(FDockItems[I]) do begin
+      Panel.Invalidate;
+    end;
 end;
 
@@ -171 +231 @@
   SplitterLeft := 0;
   SplitterTop := 0;
-  for I := 0 to DockPanels.Count - 1 do
-  with TCDClientPanel(DockPanels[I]) do begin
-    Left := SplitterLeft;
-    Top := SplitterTop;
-    Height := Self.DockSite.Height div
+  for I := 0 to DockItems.Count - 1 do
+  with TCDManagerRegionsItem(DockItems[I]) do begin
+    Panel.Left := SplitterLeft;
+    Panel.Top := SplitterTop;
+    Panel.Height := Self.DockSite.Height div
       Self.DockSite.DockClientCount;
-    Width := Self.DockSite.Width div
-      SElf.DockSite.DockClientCount;
+    Panel.Width := Self.DockSite.Width div
+      Self.DockSite.DockClientCount;
     //TCDClientPanel(FDockPanels[I]).DockPanelPaint(Self);
-    if I < (DockPanels.Count - 1) then Align := BaseAlign
-      else Align := alClient;
-
-    Inc(SplitterLeft, Width);
-    Inc(SplitterTop, Height);
+    if I < (DockItems.Count - 1) then Panel.Align := BaseAlign
+      else Panel.Align := alClient;
+
+    Inc(SplitterLeft, Panel.Width);
+    Inc(SplitterTop, Panel.Height);
     Splitter.Left := SplitterLeft;
     Splitter.Top := SplitterTop;
-    Splitter.Parent := SElf.DockSite;
+    Splitter.Parent := Self.DockSite;
     Splitter.Align := BaseAlign;
-    Splitter.Visible := I < (DockPanels.Count - 1);
+    Splitter.Visible := I < (DockItems.Count - 1);
     Inc(SplitterLeft, Splitter.Width);
     Inc(SplitterTop, Splitter.Height);
 
-    DockPanelPaint(Self);
-    if I < (DockPanels.Count - 1) then begin
-      if DockDirection = ddHorizontal then Align := alLeft
-        else Align := alTop;
-    end else Align := alClient;
+    Paint(Self);
+    if I < (DockItems.Count - 1) then begin
+      if DockDirection = ddHorizontal then Panel.Align := alLeft
+        else Panel.Align := alTop;
+    end else Panel.Align := alClient;
   end;
 end;
@@ -206 +266 @@
 begin
   inherited;
-  for I := 0 to DockPanels.Count - 1 do
+  for I := 0 to DockItems.Count - 1 do
 
         //Show;
         //ShowMessage(IntToStr(Control.Tag));
-      with TCDClientPanel(DockPanels[I]) do begin
+      with TCDManagerRegionsItem(DockItems[I]) do begin
         if AValue and (not Control.Visible) and (Control.Tag = Integer(dhtTemporal))  then begin
           Control.Show;