Changeset 21 for trunk

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.

Location:

trunk

Files:

• Common (added)
• Common/ULastOpenedList.pas (added)
• Common/URegistry.pas (added)
• Languages/LazFuckIDE.cs.po (modified) (3 diffs)
• Languages/LazFuckIDE.po (modified) (2 diffs)
• LazFuckIDE.lpi (modified) (3 diffs)
• LazFuckIDE.lpr (modified) (1 diff)
• UMainForm.lfm (modified) (1 diff)
• UMainForm.lrt (modified) (1 diff)
• UMainForm.pas (modified) (8 diffs)
• UOptionsForm.lfm (modified) (1 diff)
• UOptionsForm.lrt (modified) (1 diff)
• UOptionsForm.pas (modified) (3 diffs)

trunk/Languages/LazFuckIDE.cs.po

@@ -152 +152 @@
 #: tmainform.ashrinksource.caption
 msgid "Shrink source"
-msgstr ""
+msgstr "Srazit kód"
 
 #: tmainform.aviewcompiled.caption
@@ -198 +198 @@
 msgstr "Program"
 
+#: tmainform.menuitemopenrecent.caption
+msgid "Open recent"
+msgstr ""
+
 #: tmainform.menuitemtarget.caption
 msgctxt "tmainform.menuitemtarget.caption"
@@ -220 +224 @@
 msgstr "Volby"
 
+#: toptionsform.checkbox1.caption
+msgid "Reopend last opened project"
+msgstr ""
+
 #: toptionsform.label1.caption
 msgid "Memory size:"

trunk/Languages/LazFuckIDE.po

@@ -189 +189 @@
 msgstr ""
 
+#: tmainform.menuitemopenrecent.caption
+msgid "Open recent"
+msgstr ""
+
 #: tmainform.menuitemtarget.caption
 msgctxt "TMAINFORM.MENUITEMTARGET.CAPTION"
@@ -211 +215 @@
 msgstr ""
 
+#: toptionsform.checkbox1.caption
+msgid "Reopend last opened project"
+msgstr ""
+
 #: toptionsform.label1.caption
 msgid "Memory size:"

trunk/LazFuckIDE.lpi

@@ -85 +85 @@
       </Item5>
     </RequiredPackages>
-    <Units Count="10">
+    <Units Count="12">
       <Unit0>
         <Filename Value="LazFuckIDE.lpr"/>
@@ -144 +144 @@
         <UnitName Value="UCompilerPHP"/>
       </Unit9>
+      <Unit10>
+        <Filename Value="Common\ULastOpenedList.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="ULastOpenedList"/>
+      </Unit10>
+      <Unit11>
+        <Filename Value="Common\URegistry.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="URegistry"/>
+      </Unit11>
     </Units>
   </ProjectOptions>
@@ -154 +164 @@
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <OtherUnitFiles Value="Compiler"/>
+      <OtherUnitFiles Value="Compiler;Common"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>

trunk/LazFuckIDE.lpr

@@ -10 +10 @@
   Interfaces, // this includes the LCL widgetset
   Forms, UMainForm, UBrainFuck, UInterpreterForm, UApplicationInfo,
-  UCompiledForm, UOptionsForm, CoolTranslator, Common, TemplateGenerics,
-  UCompiler, UCompilerDelphi, UCompilerPHP
+  UCompiledForm, UOptionsForm, ULastOpenedList, URegistry, CoolTranslator,
+  Common, TemplateGenerics, UCompiler, UCompilerDelphi, UCompilerPHP
   { you can add units after this };
 

trunk/UMainForm.lfm

@@ -208 +208 @@
           0000000000000000000000000000000000000000000000000000
         }
+      end
+      object MenuItemOpenRecent: TMenuItem
+        Caption = 'Open recent'
       end
       object MenuItem3: TMenuItem

trunk/UMainForm.lrt

@@ -2 +2 @@
 TMAINFORM.TOOLBUTTON5.CAPTION=ToolButton5
 TMAINFORM.MENUITEM1.CAPTION=Project
+TMAINFORM.MENUITEMOPENRECENT.CAPTION=Open recent
 TMAINFORM.MENUITEM5.CAPTION=-
 TMAINFORM.MENUITEM9.CAPTION=Program

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;

trunk/UOptionsForm.lfm

@@ -79 +79 @@
     TabOrder = 4
   end
+  object CheckBox1: TCheckBox
+    Left = 8
+    Height = 19
+    Top = 120
+    Width = 205
+    Caption = 'Reopend last opened project'
+    TabOrder = 5
+  end
 end

trunk/UOptionsForm.lrt

@@ -5 +5 @@
 TOPTIONSFORM.LABEL2.CAPTION=Cell size:
 TOPTIONSFORM.LABEL3.CAPTION=Interface language:
+TOPTIONSFORM.CHECKBOX1.CAPTION=Reopend last opened project

trunk/UOptionsForm.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBox1: TCheckBox;
     ComboBoxLanguage: TComboBox;
     Label1: TLabel;
@@ -48 +49 @@
   ComboBoxLanguage.ItemIndex := MainForm.CoolTranslator1.Languages.IndexOf(MainForm.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+  CheckBox1.Checked := MainForm.OpenProjectOnStart;
 end;
 
@@ -54 +56 @@
   if ComboBoxLanguage.ItemIndex <> -1 then
     MainForm.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  MainForm.OpenProjectOnStart := CheckBox1.Checked;
 end;