Changeset 56 for Docking/CoolDocking/UCoolDockCustomize.pas

Timestamp:

Sep 21, 2010, 8:03:17 AM (14 years ago)

Author:

george

Message:

• Přidáno: Okno pro zobrazení seznamu všech oken.

File:

• Docking/CoolDocking/UCoolDockCustomize.pas (modified) (2 diffs)

Docking/CoolDocking/UCoolDockCustomize.pas

@@ -20 +20 @@
     TabSheetSetting: TTabSheet;
     TabSheetLayouts: TTabSheet;
+    procedure ButtonCloseClick(Sender: TObject);
   private
     { private declarations }
@@ -25 +26 @@
   end;
 
-  TCoolDockCustomize = class(TComponent)
-    Form: TCoolDockCustomizeForm;
-    function Execute: Boolean;
-    constructor Create(AOwner: TComponent); override;
-  end;
-
 implementation
 
-{ TCoolDockCustomize }
 
-function TCoolDockCustomize.Execute: Boolean;
+{ TCoolDockCustomizeForm }
+
+procedure TCoolDockCustomizeForm.ButtonCloseClick(Sender: TObject);
 begin
-  Form.ShowModal;
-  Result := True;
-end;
-
-constructor TCoolDockCustomize.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  Form := TCoolDockCustomizeForm.Create(Self);
+  Close;
 end;