Changeset 180 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Mar 8, 2011, 1:57:42 PM (14 years ago)

Author:

george

Message:

• Added: Customization of layouts in "Customize docking" window.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (8 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -10 +10 @@
   Classes, SysUtils, Controls, LCLType, LMessages, Graphics, StdCtrls,
   Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil,
-  UCoolDockCustomize, DOM, XMLWrite, XMLRead, UCoolDockWindowList,
+  UCoolDockCustomize, DOM, XMLWrite, XMLRead, UCoolDockCommon,
   DateUtils, UCoolDockStyleTabs, UCoolDockStyleRegions, UCoolDockStylePopupTabs,
   UCoolDockStylePopupRegions, UCoolDockStyle, UCoolDockClientPanel,
-  UCoolDockPopupMenu;
+  UCoolDockPopupMenu, UCoolDockLayout;
 
 const
@@ -38 +38 @@
     procedure PanelVisibleChange(Sender: TObject);
   end;
-
-  TDockStyle = (dsList, dsTabs, dsPopupTabs, dsPopupList);
 
   // TObjectList<TCoolDockClientPanel>
@@ -174 +172 @@
   TCoolDockCustomize = class(TComponent)
   private
+    FLayoutList: TCoolDockLayoutList;
     FMaster: TCoolDockMaster;
     Form: TCoolDockCustomizeForm;
+    procedure SetLayoutList(const AValue: TCoolDockLayoutList);
     procedure SetMaster(const AValue: TCoolDockMaster);
   public
@@ -183 +183 @@
   published
     property Master: TCoolDockMaster read FMaster write SetMaster;
-  end;
-
-  { TCoolDockWindowList }
-
-  TCoolDockWindowList = class(TComponent)
-  private
-    Form: TCoolDockWindowListForm;
-  public
-    function Execute: Boolean;
-    constructor Create(AOwner: TComponent); override;
-  published
+    property LayoutList: TCoolDockLayoutList read FLayoutList write SetLayoutList;
   end;
 
@@ -208 +198 @@
   RegisterComponents('CoolDocking', [TCoolDockClient]);
   RegisterComponents('CoolDocking', [TCoolDockCustomize]);
-  RegisterComponents('CoolDocking', [TCoolDockWindowList]);
 end;
 
@@ -801 +790 @@
 end;
 
+procedure TCoolDockCustomize.SetLayoutList(const AValue: TCoolDockLayoutList);
+begin
+  if FLayoutList=AValue then exit;
+  FLayoutList:=AValue;
+end;
+
 function TCoolDockCustomize.Execute: Boolean;
 begin
@@ -808 +803 @@
     Form.ComboBox1.ItemIndex := Integer(Master.DefaultTabsPos);
     Form.ComboBox2.ItemIndex := Integer(Master.DefaultHeaderPos);
+    Form.LayoutList := FLayoutList;
   end;
   Form.ShowModal;
@@ -830 +826 @@
 end;
 
-
-{ TCoolDockWindowList }
-
-function TCoolDockWindowList.Execute: Boolean;
-begin
-  Form := TCoolDockWindowListForm.Create(Self);
-  Form.ShowModal;
-  Form.Free;
-  Result := True;
-end;
-
-constructor TCoolDockWindowList.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-end;
 
 { TCoolDockClient }