Changeset 57 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 4, 2013, 11:15:36 PM (12 years ago)

Author:

chronos

Message:

• Added: Remember last opened file name.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -150 +150 @@
     procedure LastOpenedListChange(Sender: TObject);
   public
+    LastFileName: string;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
@@ -302 +303 @@
     OpenKey(Key, True);
     TargetName := ReadStringWithDefault('TargetName', 'Interpretter');
+    LastFileName := ReadStringWithDefault('LastFileName',
+      ExtractFileDir(Application.ExeName) + DirectorySeparator + 'Examples');
     CurrentTarget := Core.Targets.FindByName(TargetName);
     if not Assigned(CurrentTarget) then CurrentTarget := TTarget(Core.Targets[0]);
@@ -316 +319 @@
     OpenKey(Key, True);
     WriteString('TargetName', CurrentTarget.Name);
+    WriteString('LastFileName', LastFileName);
   finally
     Free;
@@ -565 +569 @@
 begin
   AProjectClose.Execute;
-  OpenDialog1.FileName := Core.ProjectFileName;
+  OpenDialog1.FileName := LastFileName;
+  OpenDialog1.InitialDir := ExtractFileDir(LastFileName);
   if OpenDialog1.Execute then begin
+    LastFileName := OpenDialog1.FileName;
     ProjectOpen(OpenDialog1.FileName);
   end;