Changeset 191 for Docking/CoolDocking/UCDManager.pas

Timestamp:

Mar 11, 2011, 10:07:38 AM (14 years ago)

Author:

george

Message:

• Modified: Classes which iherits from TCDStyle changed to inherit from TCDManager. Now all styles will be different dock managers. Field DockStyleHanler of TCDManager removed and DockStyle property changes TCDManager descendends.

File:

• Docking/CoolDocking/UCDManager.pas (modified) (12 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UCDCommon, Controls, Contnrs, UCDClientPanel,
-  UCDStyle, UCDPopupMenu, LCLType, LMessages, Graphics,
-  UCDConjoinForm, Menus, StdCtrls, ExtCtrls, Forms,
-  UCDStyleRegions, UCDStyleTabs, UCDStylePopupRegions,
-  UCDStylePopupTabs;
+  UCDPopupMenu, LCLType, LMessages, Graphics,
+  UCDConjoinForm, Menus, StdCtrls, ExtCtrls, Forms;
 
 type
@@ -28 +26 @@
     FDockPanels: TCDPanels;
     function GetDockSite: TWinControl;
+    function GetDockStyle: TCDStyleType;
     function GetHeaderPos: THeaderPos;
     function GetMoveDuration: Integer;
@@ -36 +35 @@
     procedure SetMoveDuration(const AValue: Integer);
     procedure SetVisible(const AValue: Boolean);
-    procedure UpdateClientSize;
   public
-    DockStyleHandler: TCDStyle;
     PopupMenu: TCDPopupMenu;
     constructor Create(ADockSite: TWinControl); override;
     destructor Destroy; override;
+    procedure UpdateClientSize; virtual;
+    procedure Switch(Index: Integer); virtual;
+    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
+    procedure Assign(Source: TCDManager); virtual;
 
     // Inherited from TDockManager
@@ -67 +68 @@
     function CreateContainer(InsertAt: TAlign): TCDConjoinForm;
     property DockPanels: TCDPanels read FDockPanels write FDockPanels;
-    property DockStyle: TCDStyleType read FDockStyle write SetDockStyle;
+    property DockStyle: TCDStyleType read GetDockStyle write SetDockStyle;
     property MoveDuration: Integer read GetMoveDuration write SetMoveDuration;
     property DockSite: TWinControl read GetDockSite;
@@ -76 +77 @@
 
 implementation
+
+uses
+  UCDStyleRegions, UCDStyleTabs, UCDStylePopupRegions, UCDStylePopupTabs;
 
 { TCDManager }
@@ -96 +100 @@
 end;
 
+function TCDManager.GetDockStyle: TCDStyleType;
+begin
+  if Self is TCDStyleRegions then Result := dsList
+  else if Self is TCDStyleTabs then Result := dsTabs
+  else if Self is TCDStylePopupRegions then Result := dsPopupList
+  else if Self is TCDStylePopupTabs then Result := dsPopupTabs;
+end;
+
 function TCDManager.GetHeaderPos: THeaderPos;
 begin
@@ -124 +136 @@
 begin
   PopupMenu.Free;
-  DockStyleHandler.Free;
   FDockPanels.Free;
   inherited Destroy;
@@ -157 +168 @@
   DropCtl: TControl);
 begin
-  DockStyleHandler.InsertControl(Control, InsertAt);
+  //DockStyleHandler.InsertControl(Control, InsertAt);
 end;
 
@@ -250 +261 @@
   ClientPanel: TCDClientPanel;
 begin
-  DockStyleHandler.RemoveControl(Control);
+  //DockStyleHandler.RemoveControl(Control);
   //inherited;
 (*  if Control.HostDockSite = Self.FDockSite then begin
@@ -309 +320 @@
 var
   I: Integer;
+  NewManager: TCDManager;
 begin
   if FDockStyle <> AValue then begin
     FDockStyle := AValue;
-    FreeAndNil(DockStyleHandler);
     if AValue = dsTabs then begin
-      DockStyleHandler := TCDStyleTabs.Create(Self);
-      TCDStyleTabs(DockStyleHandler).TabControlChange(Self);
+      NewManager := TCDStyleTabs.Create(Self);
+      TCDStyleTabs(Self).TabControlChange(Self);
     end else
     if AValue = dsList then begin
-      DockStyleHandler := TCDStyleRegions.Create(Self);
+      NewManager := TCDStyleRegions.Create(Self);
     end else
     if AValue = dsPopupList then begin
-      DockStyleHandler := TCDStylePopupRegions.Create(Self);
+      NewManager := TCDStylePopupRegions.Create(Self);
     end else
     if AValue = dsPopupTabs then begin
-      DockStyleHandler := TCDStylePopupTabs.Create(Self);
-    end;
+      NewManager := TCDStylePopupTabs.Create(Self);
+    end;
+    if DockSite.DockManager is TCDManager then
+      NewManager.Assign(TCDManager(DockSite.DockManager));
+    DockSite.DockManager := NewManager;
   end;
   UpdateClientSize;
@@ -343 +357 @@
   I: Integer;
 begin
-  DockStyleHandler.Visible := AValue;
+  Visible := AValue;
 //  for I := 0 to DockPanels.Count - 1 do
 //    TCDClientPanel(DockPanels[I]).Visible := AValue;
@@ -350 +364 @@
 procedure TCDManager.UpdateClientSize;
 begin
-  DockStyleHandler.UpdateClientSize;
+//  DockStyleHandler.UpdateClientSize;
+end;
+
+procedure TCDManager.Switch(Index: Integer);
+begin
+
+end;
+
+procedure TCDManager.ChangeVisible(Control: TWinControl; Visible: Boolean);
+begin
+
+end;
+
+procedure TCDManager.Assign(Source: TCDManager);
+begin
+  FDockStyle := Source.FDockStyle;
+  FDockSite := Source.FDockSite;
 end;