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

Docking/CoolDocking/UCDStyleTabs.pas

@@ -7 +7 @@
 uses
   Classes, Controls, ExtCtrls, ComCtrls, SysUtils, Dialogs,
-  Menus, UCDStyle, Forms, UCDClientPanel, UCDCommon;
+  Menus, Forms, UCDClientPanel, UCDCommon, UCDManager;
 
 type
@@ -13 +13 @@
   { TCDStyleTabs }
 
-  TCDStyleTabs = class(TCDStyle)
+  TCDStyleTabs = class(TCDManager)
+  public
     MouseDown: Boolean;
     MouseButton: TMouseButton;
@@ -25 +26 @@
     procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-    procedure InsertControl(AControl: TControl; InsertAt: TAlign); override;
+    procedure InsertControl(AControl: TControl; InsertAt: TAlign;
+      DropCtl: TControl); override;
     procedure UpdateClientSize; override;
   private
@@ -33 +35 @@
   public
     constructor Create(AManager: TCDManagerBase);
-    procedure SetVisible(const AValue: Boolean); override;
+    procedure DoSetVisible(const AValue: Boolean);
     destructor Destroy; override;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
@@ -45 +47 @@
 
 uses
-  UCDClient, UCDManager;
+  UCDClient;
 
 { TCDStyleTabs }
@@ -52 +54 @@
 begin
   if Assigned(PageControl.ActivePage) then
-    TCDClientPanel(TCDManager(Manager).DockPanels[PageControl.TabIndex]).Control.Hide;
+    TCDClientPanel(DockPanels[PageControl.TabIndex]).Control.Hide;
 end;
 
@@ -58 +60 @@
 begin
   if MouseDown then
-  with TCDManager(Manager) do
   if Assigned(PageControl.ActivePage) then begin
     TCDClientPanel(DockPanels[PageControl.TabIndex]).ClientAreaPanel.DockSite := False;
@@ -71 +72 @@
 begin
   // Hide all clients
-  with TCDManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do
     if TCDClientPanel(DockPanels[I]).Control.Visible
@@ -93 +93 @@
 
   // Show selected
-  with TCDManager(Manager) do
   if (PageControl.TabIndex <> -1) and (DockPanels.Count > PageControl.TabIndex)
 //  and not TCDClientPanel(DockPanels[PageControl.TabIndex]).Control.Visible
@@ -144 +143 @@
   NewTabSheet: TTabSheet;
 begin
-  inherited;
 
   TabImageList := TImageList.Create(TCDManager(AManager).DockSite); //FDockSite);
   with TabImageList do begin
-    Name := TCDManager(Manager).DockSite.Name + '_' + 'ImageList';
+    Name := DockSite.Name + '_' + 'ImageList';
   end;
   PageControl := TPageControl.Create(TCDManager(AManager).DockSite); //FDockSite);
   with PageControl do begin
-    Parent := TCDManager(Manager).DockSite;
-    Name := TCDManager(Manager).DockSite.Name + '_' + 'TabControl';
+    Parent := Self.DockSite;
+    Name := Self.DockSite.Name + '_' + 'TabControl';
     Visible := False;
     Align := alTop;
@@ -160 +158 @@
     OnChange := TabControlChange;
     MultiLine := True;
-    PopupMenu := TCDManager(Manager).PopupMenu;
+    PopupMenu := Self.PopupMenu;
     OnMouseLeave := TabControlMouseLeave;
     OnMouseDown := TabControlMouseDown;
@@ -174 +172 @@
   PageControl.Visible := True;
   //TabImageList.Clear;
-  with TCDManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do
     Self.InsertControlNoUpdate(TCDClientPanel(DockPanels[I]).Control, alNone);
@@ -189 +186 @@
 procedure TCDStyleTabs.Switch(Index: Integer);
 begin
-  inherited Switch(Index);
   PageControl.TabIndex := Index;
 end;
@@ -199 +195 @@
 begin
   inherited;
-  with TCDManager(Manager) do begin
+  begin
     NewPanel := TCDClientPanel.Create(nil);
     with NewPanel do begin
-      Parent := TCDManager(Manager).DockSite;
-      OwnerDockManager := TCDManager(Manager);
+      Parent := Self.DockSite;
+      OwnerDockManager := Self;
       if DockStyle = dsList then Visible := True;
       Align := alClient;
-      Header.PopupMenu := TCDManager(Manager).PopupMenu;
+      Header.PopupMenu := Self.PopupMenu;
       //PopupMenu.Parent := Self.DockSite;
     end;
@@ -241 +237 @@
 end;
 
-procedure TCDStyleTabs.InsertControl(AControl: TControl; InsertAt: TAlign);
+procedure TCDStyleTabs.InsertControl(AControl: TControl; InsertAt: TAlign;
+  DropCtl: TControl);
 var
   NewTabSheet: TTabSheet;
@@ -255 +252 @@
 begin
   inherited UpdateClientSize;
-  with TCDManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do begin
     //TCDClientPanel(DockPanels[I]).ClientAreaPanel.Width := DockSite.Width;
@@ -263 +259 @@
 end;
 
-procedure TCDStyleTabs.SetVisible(const AValue: Boolean);
-begin
-  inherited SetVisible(AValue);
-  with TCDManager(Manager) do
+procedure TCDStyleTabs.DoSetVisible(const AValue: Boolean);
+begin
     if (PageControl.TabIndex >= 0) and (PageControl.TabIndex < DockPanels.Count) then
       with TCDClientPanel(DockPanels[PageControl.TabIndex]) do begin
@@ -288 +282 @@
     //if Assigned(TWinControl(Control).DockManager) then
     //with TCDManager(TWinControl(Control).DockManager) do
-    if Assigned(Manager) then
-    with TCDManager(Manager) do
     begin
 //    ShowMessage(IntToStr(TabControl.TabIndex) + ' ' + IntToStr(DockPanels.Count));
@@ -312 +304 @@
 //    if Assigned(TWinControl(Control).DockManager) then
 //    with TCDManager(TWinControl(Control).DockManager) do
-    if Assigned(Manager) then
-    with TCDManager(Manager) do
     begin
 //      if Control.Tag = 0 then begin