Changeset 36 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UMainForm.lfm (modified) (5 diffs)
• UMainForm.pas (modified) (7 diffs)
• UNewGameForm.lfm (modified) (2 diffs)

trunk/Forms/UMainForm.lfm

@@ -5 +5 @@
   Width = 514
   Caption = 'Tunneler'
-  ClientHeight = 383
+  ClientHeight = 378
   ClientWidth = 514
   Menu = MainMenu1
@@ -15 +15 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '1.5'
+  LCLVersion = '1.8.0.4'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 29
-    Top = 354
+    Height = 30
+    Top = 348
     Width = 514
     Panels = <    
@@ -47 +47 @@
   object Image1: TImage
     Left = 0
-    Height = 354
+    Height = 348
     Top = 0
     Width = 514
@@ -135 +135 @@
     VersionMinor = 0
     VersionBugFix = 0
+    VersionSuffix = 'alfa'
     CompanyName = 'Chronosoft'
     HomePage = 'http://svn.zdechov.net/trac/Tunneler/'
@@ -140 +141 @@
     EmailContact = 'robie@centrum.cz'
     AppName = 'Tunneler'
-    ReleaseDate = 41160
+    ReleaseDate = 43064
     RegistryKey = '\Software\Chronosoft\Tunneler'
     RegistryRoot = rrKeyCurrentUser
+    License = 'CC0'
     left = 99
     top = 176
   end
+  object XMLConfig1: TXMLConfig
+    StartEmpty = False
+    RootName = 'CONFIG'
+    ReadOnly = False
+    left = 99
+    top = 240
+  end
 end

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;
 

trunk/Forms/UNewGameForm.lfm

@@ -120 +120 @@
     end
     object EditDown: TEdit
-      Left = 88
+      Left = 86
       Height = 36
       Top = 32
@@ -186 +186 @@
     Width = 176
     OnChange = EditNameChange
-    OnKeyDown = EditUpKeyDown
     TabOrder = 4
   end