Changeset 134 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 5, 2022, 9:27:57 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Do not try to open last opened file on start if it doesn't exist.

File:

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

trunk/Forms/UFormMain.pas

@@ -187 +187 @@
   SCloseProjectFirst = 'Project need to be closed before it can be openned';
   SError = 'Error';
+  SFileNotFound = 'File %s not found.';
 
 { TFormMain }
@@ -196 +197 @@
   PageControlMain.TabIndex := 0;
   try
-    if Core.OpenProjectOnStart and (Core.LastOpenedList.Items.Count > 0) then
+    if Core.OpenProjectOnStart and (Core.LastOpenedList.Items.Count > 0) and
+      FileExists(Core.LastOpenedList.Items[0]) then
       ProjectOpen(Core.LastOpenedList.Items[0])
       else AProjectNew.Execute;
@@ -669 +671 @@
 
 procedure TFormMain.AProjectOpenRecentExecute(Sender: TObject);
-begin
-  AProjectClose.Execute;
-  if Core.Project.Openned then Exit;
-  ProjectOpen(Core.LastOpenedList.Items[TMenuItem(Sender).MenuIndex]);
+var
+  FileName: string;
+begin
+  FileName := Core.LastOpenedList.Items[TMenuItem(Sender).MenuIndex];
+  if FileExists(FileName) then begin
+    AProjectClose.Execute;
+    if Core.Project.Openned then Exit;
+    ProjectOpen(FileName);
+  end else ShowMessage(Format(SFileNotFound, [FileName]));
 end;