Changeset 192 for Docking/CoolDocking/UCDCustomize.pas

Timestamp:

Mar 11, 2011, 10:44:06 AM (14 years ago)

Author:

george

Message:

• Moved: Derive dock manager units moved to Managers subdirectory.

File:

• Docking/CoolDocking/UCDCustomize.pas (modified) (9 diffs)

Docking/CoolDocking/UCDCustomize.pas

@@ -11 +11 @@
 type
 
-  { TCoolDockCustomizeForm }
+  { TCDCustomizeForm }
 
-  TCoolDockCustomizeForm = class(TForm)
+  TCDCustomizeForm = class(TForm)
   published
     ButtonLayoutDelete: TButton;
@@ -50 +50 @@
   private
     FLayoutList: TCDLayoutList;
-    Form: TCoolDockCustomizeForm;
+    Form: TCDCustomizeForm;
     procedure SetLayoutList(const AValue: TCDLayoutList);
   public
@@ -70 +70 @@
   SEnterNewName = 'Enter new name';
 
-{ TCoolDockCustomizeForm }
+{ TCDCustomizeForm }
 
-procedure TCoolDockCustomizeForm.ButtonCloseClick(Sender: TObject);
+procedure TCDCustomizeForm.ButtonCloseClick(Sender: TObject);
 begin
   Close;
 end;
 
-procedure TCoolDockCustomizeForm.ButtonLayoutApplyClick(Sender: TObject);
+procedure TCDCustomizeForm.ButtonLayoutApplyClick(Sender: TObject);
 begin
   if ListBox1.ItemIndex <> - 1 then
@@ -83 +83 @@
 end;
 
-procedure TCoolDockCustomizeForm.ButtonLayoutDeleteClick(Sender: TObject);
+procedure TCDCustomizeForm.ButtonLayoutDeleteClick(Sender: TObject);
 begin
   if ListBox1.ItemIndex <> - 1 then begin
@@ -91 +91 @@
 end;
 
-procedure TCoolDockCustomizeForm.ButtonLayoutNewClick(Sender: TObject);
+procedure TCDCustomizeForm.ButtonLayoutNewClick(Sender: TObject);
 var
   NewLayout: TCDLayout;
@@ -107 +107 @@
 end;
 
-procedure TCoolDockCustomizeForm.ButtonLayoutRenameClick(Sender: TObject);
+procedure TCDCustomizeForm.ButtonLayoutRenameClick(Sender: TObject);
 var
   NewName: string;
@@ -118 +118 @@
 end;
 
-procedure TCoolDockCustomizeForm.FormShow(Sender: TObject);
+procedure TCDCustomizeForm.FormShow(Sender: TObject);
 begin
   if Assigned(LayoutList) then begin
@@ -125 +125 @@
 end;
 
-procedure TCoolDockCustomizeForm.ListBox1SelectionChange(Sender: TObject;
+procedure TCDCustomizeForm.ListBox1SelectionChange(Sender: TObject;
   User: boolean);
 begin
@@ -145 +145 @@
 function TCDCustomize.Execute: Boolean;
 begin
-  Form := TCoolDockCustomizeForm.Create(Self);
+  Form := TCDCustomizeForm.Create(Self);
   if Assigned(Master) then begin
     Form.SpinEdit1.Value := TCDMaster(Master).DefaultMoveSpeed;