Changeset 134 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (3 diffs)
• Languages/LazFuck.cs.po (modified) (3 diffs)
• Languages/LazFuck.pot (modified) (1 diff)

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;
 

trunk/Languages/LazFuck.cs.po

@@ -17 +17 @@
 
 #: tformcompilemultiple.buttoncancel.caption
-#, fuzzy
 msgctxt "tformcompilemultiple.buttoncancel.caption"
 msgid "Cancel"
@@ -552 +551 @@
 msgstr "Chyba"
 
+#: uformmain.sfilenotfound
+#, object-pascal-format
+msgid "File %s not found."
+msgstr "Soubor %s nenalezen."
+
 #: uformmain.snewproject
 msgid "New project"
@@ -615 +619 @@
 msgid "Unsupported command"
 msgstr "NepodporovanÃœ příkaz"
-

trunk/Languages/LazFuck.pot

@@ -541 +541 @@
 msgstr ""
 
+#: uformmain.sfilenotfound
+#, object-pascal-format
+msgid "File %s not found."
+msgstr ""
+
 #: uformmain.snewproject
 msgid "New project"