Changeset 116 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -14 +14 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.0.12.0'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar

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