Changeset 189 for Docking/CoolDocking/Demo/IDE/UMainForm.pas

Timestamp:

Mar 11, 2011, 9:18:59 AM (13 years ago)

Author:

george

Message:

• Modified: All unit and type names renamed to shorted form. Shortcut "CD" instead of "CoolDock".

File:

• Docking/CoolDocking/Demo/IDE/UMainForm.pas (modified) (7 diffs)

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ExtCtrls, ComCtrls, StdCtrls, UCoolDockClient, UCoolDockLayout,
+  ActnList, ExtCtrls, ComCtrls, StdCtrls, UCDClient, UCDLayout,
   UToolPaletteForm, UObjectInspectorForm, UProjectManagerForm, UStructureForm,
   UMessagesForm, UCallStackForm, ULocalVariablesForm, UToDoListForm,
-  UWatchListForm, UThreadStatusForm, USourceEditorForm, UCoolDockWindowList,
-  UCoolDockCustomize, UComponentTree, UCoolDockConjoinForm, UCoolDockManager,
-  UCoolDockMaster;
+  UWatchListForm, UThreadStatusForm, USourceEditorForm, UCDWindowList,
+  UCDCustomize, UComponentTree, UCDConjoinForm, UCDManager,
+  UCDMaster;
 
 const
@@ -40 +40 @@
     AViewWindowList: TAction;
     ComboBox1: TComboBox;
-    CoolDockClient1: TCoolDockClient;
-    CoolDockCustomize1: TCoolDockCustomize;
-    CoolDockLayoutList1: TCoolDockLayoutList;
-    CoolDockMaster1: TCoolDockMaster;
-    CoolDockWindowList1: TCoolDockWindowList;
+    CoolDockClient1: TCDClient;
+    CoolDockCustomize1: TCDCustomize;
+    CoolDockLayoutList1: TCDLayoutList;
+    CoolDockMaster1: TCDMaster;
+    CoolDockWindowList1: TCDWindowList;
     ImageList1: TImageList;
     Label1: TLabel;
@@ -129 +129 @@
 begin
   if (ComboBox1.ItemIndex <> - 1) and (ComboBox1.ItemIndex < CoolDockLayoutList1.Items.Count) then
-    TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.ItemIndex]).Restore;
+    TCDLayout(CoolDockLayoutList1.Items[ComboBox1.ItemIndex]).Restore;
 end;
 
@@ -151 +151 @@
   DefaultLayoutName = 'Default Layout';
 var
-  NewContainer1: TCoolDockConjoinForm;
-  NewContainer2: TCoolDockConjoinForm;
-  DefaultLayout: TCoolDockLayout;
+  NewContainer1: TCDConjoinForm;
+  NewContainer2: TCDConjoinForm;
+  DefaultLayout: TCDLayout;
 begin
   DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
   if not Assigned(DefaultLayout) then begin
-    NewContainer1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
+    NewContainer1 := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
     NewContainer1.Show;
 
@@ -165 +165 @@
     ObjectInspectorForm.Show;
 
-    NewContainer2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
+    NewContainer2 := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
     NewContainer2.Show;
     ProjectManagerForm.ManualDock(NewContainer2, nil, alTop);
@@ -177 +177 @@
     NewContainer2.ManualDock(DockPanel);
 
-    DefaultLayout := TCoolDockLayout.Create;
+    DefaultLayout := TCDLayout.Create;
     DefaultLayout.Name := DefaultLayoutName;
     CoolDockLayoutList1.Items.Add(DefaultLayout);
@@ -216 +216 @@
 procedure TMainForm.ADesktopSaveExecute(Sender: TObject);
 var
-  NewLayout: TCoolDockLayout;
+  NewLayout: TCDLayout;
 begin
   if ComboBox1.Text <> '' then begin
     if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then begin
-      NewLayout := TCoolDockLayout.Create;
+      NewLayout := TCDLayout.Create;
       NewLayout.Name := ComboBox1.Text;
       NewLayout.Store;
       CoolDockLayoutList1.Items.Add(NewLayout);
     end else
-      TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.Items.IndexOf(ComboBox1.Text)]).Store;
+      TCDLayout(CoolDockLayoutList1.Items[ComboBox1.Items.IndexOf(ComboBox1.Text)]).Store;
     CoolDockLayoutList1.SaveToFile(DockLayoutFileName);
     CoolDockLayoutList1.PopulateStringList(ComboBox1.Items);