Changeset 116 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 18, 2021, 5:50:18 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package files.
• Fixed: Translation of About dialog.
• Added: Snap package definition file.
• Modified: Detect different data dir on Linux.

File:

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

trunk/Forms/UFormMain.pas

@@ -171 +171 @@
   UCore, UFormCPU, UFormOptions, UFormMessages, UFormTargets, UFormOutput, UFormInput,
   UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog,
-  UBFTarget;
+  UBFTarget, UCommon;
 
 resourcestring
@@ -613 +613 @@
   AProjectClose.Execute;
   if Core.Project.Openned then Exit;
-  Core.Project.FileName := 'Examples' + DirectorySeparator + SNewProject + '.b';
+  Core.Project.FileName := CombinePaths(Core.DataDir, 'Examples' + DirectorySeparator + SNewProject + '.b');
   FormSourceCode.SynEditSource.Clear;
   Core.Project.Openned := True;
@@ -631 +631 @@
   if Core.LastOpenedList.Items.Count > 0 then
     OpenDialog1.FileName := Core.LastOpenedList.Items[0]
-    else OpenDialog1.FileName := ExtractFileDir(Application.ExeName) + DirectorySeparator + 'Examples';
+    else OpenDialog1.FileName := CombinePaths(Core.DataDir, 'Examples');
   OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);
   if OpenDialog1.Execute then begin