Changeset 195 for trunk/UCore.pas

Timestamp:

May 15, 2018, 4:30:54 PM (6 years ago)

Author:

chronos

Message:

• Added: Settings option to automatically reopen last saved game on application start.

File:

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

trunk/UCore.pas

@@ -63 +63 @@
     StoredDimension: TControlDimension;
     RegistryContext: TRegistryContext;
+    GameLoaded: Boolean;
     procedure LoadRecentExecute(Sender: TObject);
     procedure ProcessComputerTurns;
@@ -87 +88 @@
     AnimationSpeed: Integer;
     AutoSaveEnabled: Boolean;
+    ReopenLastFile: Boolean;
     FormClients: TFPGObjectList<TFormClient>;
     Clients: TClients;
@@ -163 +165 @@
   AnimationSpeed := XMLConfig1.GetValue('AnimationSpeed', 50);
   AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True);
+  ReopenLastFile := XMLConfig1.GetValue('ReopenLastFile', True);
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(String(XMLConfig1.GetValue('Language', '')));
   ScaleDPI1.DPI := Point(XMLConfig1.GetValue('DPIX', 96), XMLConfig1.GetValue('DPIY', 96));
@@ -175 +178 @@
   XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
   XMLConfig1.SetValue('AutoSave', AutoSaveEnabled);
+  XMLConfig1.SetValue('ReopenLastFile', ReopenLastFile);
   XMLConfig1.SetValue('DPIX', ScaleDPI1.DPI.X);
   XMLConfig1.SetValue('DPIY', ScaleDPI1.DPI.Y);
@@ -186 +190 @@
   // Command line parameter handling
   if (ParamCount > 0) then begin
-    FileName := UTF8Encode(ParamStr(1));
+    FileName := ParamStr(1);
     if FileExists(FileName) then LoadGame(FileName);
   end;
@@ -294 +298 @@
       FormNew.Save(Server);
       StartNewGame;
+      GameLoaded := False;
     end;
   finally
@@ -419 +424 @@
   NewClient: TClient;
 begin
+  GameLoaded := True;
+
   Game.LoadFromFile(FileName);
   Server.InitClients;
@@ -541 +548 @@
 
     CommandLineParams;
+    if not GameLoaded and ReopenLastFile and (LastOpenedList1.Items.Count > 0) then
+      LoadGame(LastOpenedList1.Items[0]);
     ScaleDPI;