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

Timestamp:

Mar 11, 2011, 2:16:50 PM (14 years ago)

Author:

george

Message:

 

File:

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

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -15 +15 @@
 
   TCDManagerRegionsItem = class(TCDManagerItem)
-    Panel: TPanel;
+    PanelHeader: TCDPanelHeader;
     Splitter: TSplitter;
-    ClientAreaPanel: TPanel;
     constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -31 +31 @@
     //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel>
     function FindControlInPanels(Control: TControl): TCDManagerItem; override;
+    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign);
     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
       DropCtl: TControl); override;
@@ -54 +55 @@
 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);
+  PanelHeader := TCDPanelHeader.Create(nil);
+  PanelHeader.Header.ManagerItem := Self;
+
+  Splitter := TSplitter.Create(nil);
   with Splitter do begin
-    Parent := Panel;
+    //Parent := Panel;
     //Color := clRed;
   end;
+end;
+
+destructor TCDManagerRegionsItem.Destroy;
+begin
+  inherited Destroy;
 end;
 
@@ -100 +96 @@
 end;
 
+procedure TCDManagerRegions.InsertControlNoUpdate(Control: TControl;
+  InsertAt: TAlign);
+var
+  NewItem: TCDManagerRegionsItem;
+begin
+  NewItem := TCDManagerRegionsItem.Create;
+  with NewItem do begin
+    PanelHeader.Parent := Self.DockSite;
+    Manager := Self;
+    if DockStyle = dsList then Visible := True;
+    PanelHeader.Header.PopupMenu := Self.PopupMenu;
+  end;
+  if (Control is TForm) and Assigned((Control as TForm).Icon) then
+    NewItem.PanelHeader.Header.Icon.Picture.Assign((Control as TForm).Icon);
+    NewItem.PanelHeader.Parent := DockSite;
+
+    NewItem.Control := Control;
+    Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
+    Control.Parent := NewItem.PanelHeader.ControlPanel;
+    Control.Align := alClient;
+    if (InsertAt = alTop) or (InsertAt = alLeft) then
+      DockItems.Insert(0, NewItem)
+      else DockItems.Add(NewItem);
+  end;
+
 procedure TCDManagerRegions.InsertControlPanel(Control: TControl; InsertAt: TAlign;
   DropCtl: TControl);
 var
-  NewPanel: TCDManagerRegionsItem;
+  NewItem: TCDManagerRegionsItem;
   I: Integer;
   NewDirection: TCDDirection;
@@ -131 +152 @@
       end;
     end;
-
-    NewPanel := TCDManagerRegionsItem.Create;
-    with NewPanel do begin
-      Panel.Parent := Self.DockSite;
-      Manager := Self;
-      if DockStyle = dsList then Visible := True;
-      Header.PopupMenu := Self.PopupMenu;
-      //PopupMenu.Parent := Self.DockSite;
-    end;
-    if (Control is TForm) and Assigned((Control as TForm).Icon) then
-      NewPanel.Header.Icon.Picture.Assign((Control as TForm).Icon);
-
-    NewPanel.Control := Control;
-    Control.AddHandlerOnVisibleChanged(NewPanel.VisibleChange);
-    Control.Parent := NewPanel.ClientAreaPanel;
-    Control.Align := alClient;
-    if (InsertAt = alTop) or (InsertAt = alLeft) then
-      DockItems.Insert(0, NewPanel)
-      else DockItems.Add(NewPanel);
+    InsertControlNoUpdate(Control, InsertAt);
   end;
   UpdateClientSize;
@@ -156 +159 @@
 procedure TCDManagerRegions.RemoveControl(Control: TControl);
 var
-  ClientPanel: TCDManagerItem;
+  ManagerItem: TCDManagerItem;
   ClientCount: Integer;
 begin
-  ClientPanel := FindControlInPanels(Control);
-  Control.RemoveHandlerOnVisibleChanged(ClientPanel.VisibleChange);
-
-  DockItems.Remove(ClientPanel);
+  ManagerItem := FindControlInPanels(Control);
+  if Assigned(ManagerItem) then
+    Control.RemoveHandlerOnVisibleChanged(ManagerItem.VisibleChange);
+
+  DockItems.Remove(ManagerItem);
   ClientCount := DockItems.Count;
 
@@ -184 +188 @@
 var
   I: Integer;
+  NewItem: TCDManagerRegionsItem;
 begin
   inherited;
@@ -189 +194 @@
   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;
+  for I := 0 to ADockSite.DockClientCount - 1 do
+    InsertControlNoUpdate(ADockSite.DockClients[I], alLeft);
+  UpdateClientSize;
 end;
 
@@ -214 +212 @@
   for I := 0 to FDockItems.Count - 1 do
     with TCDManagerRegionsItem(FDockItems[I]) do begin
-      Panel.Invalidate;
+      PanelHeader.Invalidate;
     end;
 end;
@@ -233 +231 @@
   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
+    PanelHeader.Left := SplitterLeft;
+    PanelHeader.Top := SplitterTop;
+    PanelHeader.Height := Self.DockSite.Height div
       Self.DockSite.DockClientCount;
-    Panel.Width := Self.DockSite.Width div
+    PanelHeader.Width := Self.DockSite.Width div
       Self.DockSite.DockClientCount;
     //TCDClientPanel(FDockPanels[I]).DockPanelPaint(Self);
-    if I < (DockItems.Count - 1) then Panel.Align := BaseAlign
-      else Panel.Align := alClient;
-
-    Inc(SplitterLeft, Panel.Width);
-    Inc(SplitterTop, Panel.Height);
+    if I < (DockItems.Count - 1) then PanelHeader.Align := BaseAlign
+      else PanelHeader.Align := alClient;
+
+    Inc(SplitterLeft, PanelHeader.Width);
+    Inc(SplitterTop, PanelHeader.Height);
     Splitter.Left := SplitterLeft;
     Splitter.Top := SplitterTop;
@@ -255 +253 @@
     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;
+      if DockDirection = ddHorizontal then PanelHeader.Align := alLeft
+        else PanelHeader.Align := alTop;
+    end else PanelHeader.Align := alClient;
   end;
 end;