Changeset 151 for trunk/UCore.pas

Timestamp:

Oct 16, 2017, 2:31:46 PM (7 years ago)

Author:

chronos

Message:

• Added: Option to disable auto reopen last file on start.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -44 +44 @@
     StartOnLogon: Boolean;
     StartMinimizedToTray: Boolean;
+    ReopenLastFileOnStart: Boolean;
     InitializeStarted: Boolean;
     InitializeFinished: Boolean;
@@ -107 +108 @@
 var
   FileNameOption: string;
+  ExampleFileName: string;
 begin
   if not InitializeStarted then begin
@@ -126 +128 @@
     end;
 
+    ExampleFileName := ExtractFileDir(Application.ExeName) + DirectorySeparator + ExampleFile;
     FileNameOption := FindFirstNonOption;
     if FileNameOption <> '' then begin
@@ -131 +134 @@
       FormMain.ProjectOpen(FileNameOption);
     end else
-    if (FormMain.LastOpenedList1.Items.Count > 0) and FileExists(FormMain.LastOpenedList1.Items[0]) then begin
+    if ReopenLastFileOnStart and (FormMain.LastOpenedList1.Items.Count > 0) and
+      FileExists(FormMain.LastOpenedList1.Items[0]) then begin
       // Open last opened file
       FormMain.ProjectOpen(FormMain.LastOpenedList1.Items[0])
-    end else begin
+    end else
+    if FileExists(ExampleFileName) then begin
       // Open default database with examples if no item is in recent openned history
       FileNameOption := ExtractFileDir(Application.ExeName) + DirectorySeparator + ExampleFile;
@@ -143 +148 @@
       {$ENDIF}
       FormMain.ProjectOpen(FileNameOption);
+    end else begin
+      // Create empty file
+      FormMain.AFileNew.Execute;
     end;
 
@@ -164 +172 @@
     ScaleDPI1.DPI := Point(ReadIntegerWithDefault('DPIX', 96), ReadIntegerWithDefault('DPIY', 96));
     ScaleDPI1.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
+    if ValueExists('LanguageCode') then
+      CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+    AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
+    StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
+    ReopenLastFileOnStart := ReadBoolWithDefault('ReopenLastFileOnStart', True);
   finally
     Free;
@@ -180 +194 @@
     WriteInteger('DPIY', ScaleDPI1.DPI.Y);
     WriteBool('DPIAuto', ScaleDPI1.AutoDetect);
+    if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
+      WriteString('LanguageCode', CoolTranslator1.Language.Code)
+      else DeleteValue('LanguageCode');
+    WriteBool('AlwaysOnTop', AlwaysOnTop);
+    WriteBool('StartMinimizedToTray', StartMinimizedToTray);
+    WriteBool('ReopenLastFileOnStart', ReopenLastFileOnStart);
   finally
     Free;