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

Timestamp:

Mar 8, 2011, 12:58:28 PM (13 years ago)

Author:

george

Message:

• Added: Store and restore basic form properties with use of layouts.

Location:

Docking/CoolDocking/Demo/IDE

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (7 diffs)

Docking/CoolDocking/Demo/IDE

@@ -1 +1 @@
 IDE.exe
 lib
+Layout.xml

@@ -1 +1 @@
 IDE.exe
 lib
+Layout.xml

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -12 +12 @@
   UWatchListForm, UThreadStatusForm, USourceEditorForm;
 
+const
+  DockLayoutFileName = 'Layout.xml';
+
 type
 
@@ -18 +21 @@
   TMainForm = class(TForm)
   published
+    AExit: TAction;
     ANewFile: TAction;
     ACustomizeDocking: TAction;
@@ -53 +57 @@
     MenuItem22: TMenuItem;
     MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
     MenuItem9: TMenuItem;
     MenuItem8: TMenuItem;
@@ -69 +74 @@
     procedure ACustomizeDockingExecute(Sender: TObject);
     procedure ADesktopSaveExecute(Sender: TObject);
+    procedure AExitExecute(Sender: TObject);
     procedure ANewFileExecute(Sender: TObject);
     procedure AViewThreadStatusExecute(Sender: TObject);
@@ -81 +87 @@
     procedure AViewWatchListExecute(Sender: TObject);
     procedure AViewWindowListExecute(Sender: TObject);
+    procedure ComboBox1Select(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormShow(Sender: TObject);
   public
-    { public declarations }
-  end; 
+  end;
 
 var
@@ -109 +117 @@
 end;
 
+procedure TMainForm.ComboBox1Select(Sender: TObject);
+begin
+  if ComboBox1.ItemIndex <> - 1 then
+    TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.ItemIndex]).Restore;
+end;
+
+procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  CoolDockLayoutList1.SaveToFile(DockLayoutFileName);
+end;
+
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+  with CoolDockLayoutList1 do begin
+    if FileExistsUTF8(DockLayoutFileName) then
+      LoadFromFile(DockLayoutFileName);
+    PopulateStringList(ComboBox1.Items);
+  end;
+end;
+
 procedure TMainForm.AViewProjectManagerExecute(Sender: TObject);
 begin
@@ -140 +168 @@
 
 procedure TMainForm.ADesktopSaveExecute(Sender: TObject);
-begin
-
+var
+  NewLayout: TCoolDockLayout;
+begin
+  if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then begin
+    NewLayout := TCoolDockLayout.Create;
+    NewLayout.Name := ComboBox1.Text;
+    NewLayout.Store;
+    CoolDockLayoutList1.Items.Add(NewLayout);
+  end else
+    TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.ItemIndex]).Store;
+  CoolDockLayoutList1.PopulateStringList(ComboBox1.Items);
+end;
+
+procedure TMainForm.AExitExecute(Sender: TObject);
+begin
+  Close;
 end;
 

@@ -1 +1 @@
 IDE.exe
 lib
+Layout.xml