Changeset 180 for Docking/CoolDocking/UCoolDockWindowList.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/UCoolDockWindowList.pas (modified) (3 diffs)

Docking/CoolDocking/UCoolDockWindowList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, StdCtrls, Menus;
+  ComCtrls, StdCtrls, Menus, UCoolDockLayout;
 
 type
@@ -34 +34 @@
   end; 
 
-var
-  CoolDockWindowListForm: TCoolDockWindowListForm;
+  TCoolDockWindowList = class(TComponent)
+  private
+    FLayoutList: TCoolDockLayoutList;
+    Form: TCoolDockWindowListForm;
+    procedure SetLayoutList(const AValue: TCoolDockLayoutList);
+  public
+    function Execute: Boolean;
+    constructor Create(AOwner: TComponent); override;
+  published
+  end;
+
+procedure Register;
 
 implementation
@@ -44 +54 @@
   SStateVisible = 'Visible';
   SStateHidden = 'Hidden';
+
+procedure Register;
+begin
+  RegisterComponents('CoolDocking', [TCoolDockWindowList]);
+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;
+
+procedure TCoolDockWindowList.SetLayoutList(const AValue: TCoolDockLayoutList);
+begin
+  if FLayoutList = AValue then Exit;
+  FLayoutList := AValue;
+end;
 
 { TCoolDockWindowListForm }