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

Timestamp:

Mar 16, 2011, 7:47:27 AM (14 years ago)

Author:

george

Message:

• Modified: Docked client header redone to delphi visual style.

File:

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

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -15 +15 @@
 
 const
+  DefaultLayoutName = 'Default Layout';
   DockLayoutFileName = 'Layout.xml';
 
@@ -23 +24 @@
   TMainForm = class(TForm)
   published
+    AResetDefaultLayout: TAction;
     AViewComponentTree: TAction;
     AExit: TAction;
@@ -65 +67 @@
     MenuItem26: TMenuItem;
     MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
     MenuItem9: TMenuItem;
     MenuItem8: TMenuItem;
@@ -83 +86 @@
     procedure AExitExecute(Sender: TObject);
     procedure ANewFileExecute(Sender: TObject);
+    procedure AResetDefaultLayoutExecute(Sender: TObject);
     procedure AViewComponentTreeExecute(Sender: TObject);
     procedure AViewThreadStatusExecute(Sender: TObject);
@@ -148 +152 @@
 
 procedure TMainForm.InitDefaultDockLayout;
-const
-  DefaultLayoutName = 'Default Layout';
 var
   NewContainer1: TCDConjoinForm;
@@ -241 +243 @@
 end;
 
+procedure TMainForm.AResetDefaultLayoutExecute(Sender: TObject);
+var
+  DefaultLayout: TCDLayout;
+begin
+  DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
+  if Assigned(DefaultLayout) then
+    CoolDockLayoutList1.Items.Remove(DefaultLayout);
+  InitDefaultDockLayout;
+end;
+
 procedure TMainForm.AViewComponentTreeExecute(Sender: TObject);
 begin