Changeset 21 for trunk/UMainForm.pas

Timestamp:

Feb 12, 2012, 8:05:28 PM (13 years ago)

Author:

chronos

Message:

• Added: Storing last opened project list in registry.
• Added: Opiton to reopen last opened project.

File:

• trunk/UMainForm.pas (modified) (8 diffs)

trunk/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
   Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils,
-  SpecializedList, UCompiler;
+  SpecializedList, UCompiler, Registry, URegistry, ULastOpenedList;
+
+const
+  RegistryRoot = HKEY_CURRENT_USER;
 
 type
@@ -62 +65 @@
     MenuItem26: TMenuItem;
     MenuItem27: TMenuItem;
+    MenuItemOpenRecent: TMenuItem;
     MenuItemTarget: TMenuItem;
     MenuItem3: TMenuItem;
@@ -116 +120 @@
       Shift: TShiftState; X, Y: Integer);
   private
+    procedure AProjectOpenRecentExecute(Sender: TObject);
     procedure BrainFuckInterpreterChangeState(Sender: TObject);
     procedure MenuItemTargetClick(Sender: TObject);
+    procedure ProjectOpen(FileName: string);
   public
     Modified: Boolean;
@@ -126 +132 @@
     BreakPoints: TListInteger;
     Compilers: TListObject; // TListObject<TCompiler>
+    LastOpenedList: TLastOpenedList;
+    OpenProjectOnStart: Boolean;
+    procedure LoadFromRegistry(Root: HKEY; Key: string);
+    procedure SaveToRegistry(Root: HKEY; Key: string);
     procedure UpdateInterface;
     procedure UpdateStatusBar;
@@ -146 +156 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
-  AProjectNew.Execute;
+  if OpenProjectOnStart and (LastOpenedList.Count > 0) then
+    ProjectOpen(LastOpenedList[0])
+    else AProjectNew.Execute;
 end;
 
@@ -190 +202 @@
     for I := 0 to Parent.Count - 1 do
       if Parent.Items[I].MenuIndex <> MenuIndex then Parent.Items[I].Checked := False
+  end;
+end;
+
+procedure TMainForm.ProjectOpen(FileName: string);
+begin
+  MemoSource.Lines.LoadFromFile(UTF8Decode(FileName));
+  LastOpenedList.AddItem(FileName);
+  ProjectFileName := FileName;
+  UpdateInterface;
+  Modified := False;
+end;
+
+procedure TMainForm.LoadFromRegistry(Root: HKEY; Key: string);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key, True);
+    OpenProjectOnStart := ReadBoolWithDefault('OpenProjectOnStart', True);
+  finally
+    Free;
+  end;
+  LastOpenedList.LoadFromRegistry(Root, Key);
+end;
+
+procedure TMainForm.SaveToRegistry(Root: HKEY; Key: string);
+begin
+  LastOpenedList.SaveToRegistry(Root, Key);
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key, True);
+    WriteBool('OpenProjectOnStart', OpenProjectOnStart);
+  finally
+    Free;
   end;
 end;
@@ -242 +289 @@
   Compilers.Add(TBrainFuckCompilerPHP.Create);
   UpdateTergetList;
+  LastOpenedList := TLastOpenedList.Create;
+  LastOpenedList.MenuItem := MenuItemOpenRecent;
+  LastOpenedList.ClickAction := AProjectOpenRecentExecute;
+  LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  SaveToRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
+  LastOpenedList.Free;
   Compilers.Free;
   BrainFuckCompiler.Free;
@@ -377 +430 @@
 end;
 
+procedure TMainForm.AProjectOpenRecentExecute(Sender: TObject);
+begin
+  ProjectOpen(LastOpenedList[TMenuItem(Sender).MenuIndex]);
+end;
+
 procedure TMainForm.AProjectOpenExecute(Sender: TObject);
 begin
   OpenDialog1.FileName := ProjectFileName;
   if OpenDialog1.Execute then begin
-    MemoSource.Lines.LoadFromFile(UTF8Decode(OpenDialog1.FileName));
-    ProjectFileName := OpenDialog1.FileName;
-    UpdateInterface;
-    Modified := False;
+    ProjectOpen(OpenDialog1.FileName);
   end;
 end;