Changeset 36 for trunk/UCore.pas

Timestamp:

Mar 8, 2014, 12:01:08 AM (11 years ago)

Author:

chronos

Message:

• Added: Save and load game setting to persistent XML config file.
• Fixed: Show error on player start cell initialization if there is not free place for other start cells.

Location:

trunk

Files:

• . (modified) (1 prop)
• UCore.pas (modified) (5 diffs)

trunk

@@ -5 +5 @@
 xtactics.dbg
 heaptrclog.trc
+Config.xml

@@ -5 +5 @@
 xtactics.dbg
 heaptrclog.trc
+Config.xml

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ActnList, Controls, Dialogs, Forms, UGame,
-  UCoolTranslator;
+  Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
+  UGame, UCoolTranslator;
 
 type
@@ -24 +24 @@
     ImageListLarge: TImageList;
     ImageListSmall: TImageList;
+    XMLConfig1: TXMLConfig;
     procedure AExitExecute(Sender: TObject);
     procedure AGameEndExecute(Sender: TObject);
@@ -120 +121 @@
     Game.New;
     Game.Running := True;
-    FormMain.Redraw;
+    FormMain.AZoomAll.Execute;
   end;
 end;
@@ -152 +153 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  Game.SaveConfig(XMLConfig1, 'Game');
+  XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
   FreeAndNil(Game);
 end;
@@ -160 +163 @@
 begin
   FInitialized := True;
+  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
   for I := 0 to Game.Players.Count - 1 do
     TPlayer(Game.Players[I]).View.DestRect := Rect(0, 0, FormMain.PaintBox1.Width,
       FormMain.PaintBox1.Height);
+  Game.LoadConfig(XMLConfig1, 'Game');
   Game.New;
   Game.Running := True;
-  FormMain.Redraw;
+  FormMain.AZoomAll.Execute;
 end;
 

@@ -5 +5 @@
 xtactics.dbg
 heaptrclog.trc
+Config.xml