Changeset 191 for Docking/CoolDocking/UCDStyleRegions.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/UCDStyleRegions.pas (modified) (13 diffs)

Docking/CoolDocking/UCDStyleRegions.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Controls, ExtCtrls, StdCtrls, UCDStyle, Forms,
-  Graphics, Contnrs, Buttons, UCDClientPanel, UCDCommon;
+  Classes, SysUtils, Controls, ExtCtrls, StdCtrls, Forms,
+  Graphics, Contnrs, Buttons, UCDClientPanel, UCDCommon, UCDManager;
 
 type
@@ -16 +16 @@
   { TCDStyleRegions }
 
-  TCDStyleRegions = class(TCDStyle)
+  TCDStyleRegions = class(TCDManager)
   private
     function GetDirection(InsertAt: TAlign): TCDDirection;
@@ -22 +22 @@
     FDockDirection: TCDDirection;
     //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel>
-    procedure InsertControl(AControl: TControl; InsertAt: TAlign); override;
+    procedure InsertControl(Control: TControl; InsertAt: TAlign;
+      DropCtl: TControl); override;
     procedure RemoveControl(Control: TControl); override;
-    function GetHeaderPos: THeaderPos; override;
-    procedure SetHeaderPos(const AValue: THeaderPos); override;
     constructor Create(AManager: TCDManagerBase);
     destructor Destroy; override;
     procedure UpdateClientSize; override;
-    procedure SetVisible(const AValue: Boolean); override;
-    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
+    procedure DoSetVisible(const AValue: Boolean);
+    procedure ChangeVisible(Control: TWinControl; Visible: Boolean);
     property DockDirection: TCDDirection read FDockDirection
       write FDockDirection;
@@ -38 +37 @@
 
 uses
-  UCDClient, UCDConjoinForm, UCDManager;
+  UCDClient, UCDConjoinForm;
 
 
@@ -54 +53 @@
 end;
 
-procedure TCDStyleRegions.InsertControl(AControl: TControl; InsertAt: TAlign);
+procedure TCDStyleRegions.InsertControl(Control: TControl; InsertAt: TAlign;
+  DropCtl: TControl);
 var
   NewPanel: TCDClientPanel;
@@ -63 +63 @@
 begin
   inherited;
-  with TCDManager(Manager) do begin
+  begin
     if DockSite.DockClientCount <= 2 then FDockDirection := GetDirection(InsertAt)
     else
@@ -74 +74 @@
         // FDockSite.ManualFloat(FDockSite.BoundsRect);
         NewConjoinDockForm.ManualDock(NewDockSite);
-        AControl.ManualDock(NewConjoinDockForm, nil, InsertAt);
+        Control.ManualDock(NewConjoinDockForm, nil, InsertAt);
         if DockSite is TForm then
           DockSite.ManualDock(NewConjoinDockForm)
@@ -87 +87 @@
     NewPanel := TCDClientPanel.Create(nil);
     with NewPanel do begin
-      Parent := TCDManager(Manager).DockSite;
-      OwnerDockManager := Manager;
+      Parent := Self.DockSite;
+      OwnerDockManager := Self;
       if DockStyle = dsList then Visible := True;
-      Header.PopupMenu := TCDManager(Manager).PopupMenu;
+      Header.PopupMenu := Self.PopupMenu;
       //PopupMenu.Parent := Self.DockSite;
     end;
-    if (AControl is TForm) and Assigned((AControl as TForm).Icon) then
-      NewPanel.Header.Icon.Picture.Assign((AControl as TForm).Icon);
-
-    NewPanel.Control := AControl;
-    AControl.AddHandlerOnVisibleChanged(NewPanel.VisibleChange);
-    AControl.Parent := NewPanel.ClientAreaPanel;
-    AControl.Align := alClient;
+    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
       DockPanels.Insert(0, NewPanel)
@@ -112 +112 @@
   ClientCount: Integer;
 begin
-  ClientPanel := TCDManager(Manager).FindControlInPanels(Control);
+  ClientPanel := FindControlInPanels(Control);
   Control.RemoveHandlerOnVisibleChanged(ClientPanel.VisibleChange);
 
-  TCDManager(Manager).DockPanels.Remove(ClientPanel);
-  ClientCount := TCDManager(Manager).DockPanels.Count;
+  DockPanels.Remove(ClientPanel);
+  ClientCount := DockPanels.Count;
 
   //if TCDManager(Manager).DockSite.DockClientCount = 2 then FDockDirection := ddNone;
   if ClientCount = 1 then begin
     // Last removed control => Free parent if it is TCDConjoinForm
-    if TCDManager(Manager).DockSite is TCDConjoinForm then
-    with TCDConjoinForm(TCDManager(Manager).DockSite) do begin
+    if Self.DockSite is TCDConjoinForm then
+    with TCDConjoinForm(Self.DockSite) do begin
       if Assigned(Parent) then begin
-        TCDClientPanel(TCDManager(Manager).DockPanels[0]).Control.ManualDock(HostDockSite);
-      end else TCDClientPanel(TCDManager(Manager).DockPanels[0]).Control.ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
+        TCDClientPanel(DockPanels[0]).Control.ManualDock(HostDockSite);
+      end else TCDClientPanel(DockPanels[0]).Control.ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
       ManualFloat(Rect(Left, Top, Left + Width, Top + Height));
       Free;
@@ -134 +134 @@
 end;
 
-function TCDStyleRegions.GetHeaderPos: THeaderPos;
-begin
-//  Result := TCDManager(Manager).;
-end;
-
-procedure TCDStyleRegions.SetHeaderPos(const AValue: THeaderPos);
-begin
-  inherited SetHeaderPos(AValue);
-end;
-
 constructor TCDStyleRegions.Create(AManager: TCDManagerBase);
 var
   I: Integer;
 begin
-  inherited;
+ // inherited;
   //Panels := TObjectList.Create;
 
@@ -181 +171 @@
   SplitterLeft := 0;
   SplitterTop := 0;
-  with TCDManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do
   with TCDClientPanel(DockPanels[I]) do begin
     Left := SplitterLeft;
     Top := SplitterTop;
-    Height := TCDManager(Manager).DockSite.Height div
-      TCDManager(Manager).DockSite.DockClientCount;
-    Width := TCDManager(Manager).DockSite.Width div
-      TCDManager(Manager).DockSite.DockClientCount;
+    Height := Self.DockSite.Height div
+      Self.DockSite.DockClientCount;
+    Width := Self.DockSite.Width div
+      SElf.DockSite.DockClientCount;
     //TCDClientPanel(FDockPanels[I]).DockPanelPaint(Self);
     if I < (DockPanels.Count - 1) then Align := BaseAlign
@@ -198 +187 @@
     Splitter.Left := SplitterLeft;
     Splitter.Top := SplitterTop;
-    Splitter.Parent := TCDManager(Manager).DockSite;
+    Splitter.Parent := SElf.DockSite;
     Splitter.Align := BaseAlign;
     Splitter.Visible := I < (DockPanels.Count - 1);
@@ -212 +201 @@
 end;
 
-procedure TCDStyleRegions.SetVisible(const AValue: Boolean);
-var
-  I: Integer;
-begin
-  inherited SetVisible(AValue);
-  with TCDManager(Manager) do
+procedure TCDStyleRegions.DoSetVisible(const AValue: Boolean);
+var
+  I: Integer;
+begin
+//  inherited SetVisible(AValue);
   for I := 0 to DockPanels.Count - 1 do