Changeset 192 for Docking/CoolDocking/UCDManager.pas

Timestamp:

Mar 11, 2011, 10:44:06 AM (14 years ago)

Author:

george

Message:

• Moved: Derive dock manager units moved to Managers subdirectory.

File:

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

Docking/CoolDocking/UCDManager.pas

@@ -26 +26 @@
     FDockPanels: TCDPanels;
     function GetDockSite: TWinControl;
-    function GetDockStyle: TCDStyleType;
     function GetHeaderPos: THeaderPos;
     function GetMoveDuration: Integer;
-    procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
-      DropCtl: TControl);
     procedure SetDockStyle(const AValue: TCDStyleType);
     procedure SetHeaderPos(const AValue: THeaderPos);
@@ -43 +40 @@
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
     procedure Assign(Source: TCDManager); virtual;
+    procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
+      DropCtl: TControl); virtual;
 
     // Inherited from TDockManager
@@ -68 +67 @@
     function CreateContainer(InsertAt: TAlign): TCDConjoinForm;
     property DockPanels: TCDPanels read FDockPanels write FDockPanels;
-    property DockStyle: TCDStyleType read GetDockStyle write SetDockStyle;
+    property DockStyle: TCDStyleType read FDockStyle write SetDockStyle;
     property MoveDuration: Integer read GetMoveDuration write SetMoveDuration;
     property DockSite: TWinControl read GetDockSite;
@@ -79 +78 @@
 
 uses
-  UCDStyleRegions, UCDStyleTabs, UCDStylePopupRegions, UCDStylePopupTabs;
+  UCDManagerRegions, UCDManagerTabs, UCDManagerRegionsPopup, UCDManagerTabsPopup;
 
 { TCDManager }
@@ -100 +99 @@
 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 +115 @@
 begin
   inherited Create(ADockSite);
+
   FDockSite := ADockSite;
   FDockPanels := TCDPanels.Create;
 
-  FDockStyle := dsTabs; // To initialize style value have to be different
-  DockStyle := dsList;
+  FDockStyle := dsList; // dsNone
   PopupMenu := TCDPopupMenu.Create(Self);
   PopupMenu.Parent := ADockSite;
@@ -168 +159 @@
   DropCtl: TControl);
 begin
-  //DockStyleHandler.InsertControl(Control, InsertAt);
 end;
 
@@ -325 +315 @@
     FDockStyle := AValue;
     if AValue = dsTabs then begin
-      NewManager := TCDStyleTabs.Create(Self);
+      NewManager := TCDStyleTabs.Create(FDockSite);
       TCDStyleTabs(Self).TabControlChange(Self);
     end else
     if AValue = dsList then begin
-      NewManager := TCDStyleRegions.Create(Self);
+      NewManager := TCDStyleRegions.Create(FDockSite);
     end else
     if AValue = dsPopupList then begin
-      NewManager := TCDStylePopupRegions.Create(Self);
+      NewManager := TCDStylePopupRegions.Create(FDockSite);
     end else
     if AValue = dsPopupTabs then begin
-      NewManager := TCDStylePopupTabs.Create(Self);
+      NewManager := TCDStylePopupTabs.Create(FDockSite);
     end;
     if DockSite.DockManager is TCDManager then
@@ -364 +354 @@
 procedure TCDManager.UpdateClientSize;
 begin
-//  DockStyleHandler.UpdateClientSize;
 end;