Changeset 94 for trunk/UCore.pas

Timestamp:

Dec 21, 2014, 2:47:55 PM (9 years ago)

Author:

chronos

Message:

• Added: Application now automatically open saved game file given as command line parameter after execution.

File:

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

trunk/UCore.pas

@@ -56 +56 @@
     procedure LoadConfig;
     procedure SaveConfig;
+    procedure CommandLineParams;
   public
     Game: TGame;
@@ -175 +176 @@
 end;
 
+procedure TCore.CommandLineParams;
+var
+  FileName: string;
+begin
+  // Command line parameter handling
+  if (ParamCount > 0) then begin
+    FileName := UTF8Encode(ParamStr(1));
+    if FileExistsUTF8(FileName) then begin
+      Game.LoadFromFile(FileName);
+      Player := Game.Players.GetFirstHuman;
+      LastMapFileName := OpenDialog1.FileName;
+      with Core.Game.CurrentPlayer do
+        View.DestRect := Bounds(0, 0, FormMain.PaintBox1.Width, FormMain.PaintBox1.Height);
+      FormMain.AZoomAll.Execute;
+      FormMain.Redraw;
+    end;
+  end;
+end;
+
 procedure TCore.UpdateActions;
 begin
@@ -319 +339 @@
       FormMain.PaintBox1.Height);
   Game.LoadConfig(XMLConfig1, 'Game');
-  Game.New;
-  Player := Game.Players.GetFirstHuman;
-  Game.Running := True;
-  FormMain.AZoomAll.Execute;
+
+  CommandLineParams;
+
+  if Game.FileName = '' then begin
+    Game.New;
+    Player := Game.Players.GetFirstHuman;
+    Game.Running := True;
+    FormMain.AZoomAll.Execute;
+  end;
   {with Core.ScaleDPI1 do begin
     //ApplyToAll(DesignDPI);