Changeset 36 for trunk/Forms/UMainForm.pas

Timestamp:

Jan 1, 2018, 8:57:03 PM (7 years ago)

Author:

chronos

Message:

• Added: Remember players configuration in XML config file between application runs.

File:

• trunk/Forms/UMainForm.pas (modified) (7 diffs)

trunk/Forms/UMainForm.pas

@@ -6 +6 @@
 
 uses
-  Registry, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType,
-  UPersistentForm, UApplicationInfo, UCoolTranslator, LCLType, URegistry;
+  Registry, XMLConf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
+  Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, UCore, UPlatform, Math,
+  DateUtils, GraphType, UPersistentForm, UApplicationInfo, UCoolTranslator,
+  LCLType, URegistry;
 
 type
@@ -37 +38 @@
     TimerDraw: TTimer;
     TimerEngineTick: TTimer;
+    XMLConfig1: TXMLConfig;
     procedure AExitExecute(Sender: TObject);
     procedure AFullScreenExecute(Sender: TObject);
@@ -60 +62 @@
     DrawDuration: TDateTime;
     Drawing: Boolean;
+    procedure LoadConfig;
+    procedure SaveConfig;
   public
     PersistentForm: TPersistentForm;
@@ -110 +114 @@
 end;
 
+procedure TMainForm.LoadConfig;
+begin
+  if not FileExists(XMLConfig1.Filename) then Exit;
+  if Assigned(Engine) then Engine.LoadConfig(XMLConfig1, '');
+end;
+
+procedure TMainForm.SaveConfig;
+begin
+  if Assigned(Engine) then Engine.SaveConfig(XMLConfig1, '');
+  XMLConfig1.Flush;
+end;
+
 procedure TMainForm.EraseBackground(DC: HDC);
 begin
@@ -117 +133 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+
   PersistentForm := TPersistentForm.Create(nil);
   PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
@@ -126 +144 @@
   Engine := TEngine.Create;
   Engine.Bitmap := Image1.Picture.Bitmap;
+  LoadConfig;
   Engine.NewGame;
   Engine.Active := True;
@@ -193 +212 @@
 begin
   PersistentForm.Save(Self);
+  SaveConfig;
 end;