Changeset 19 for trunk/UCore.pas

Timestamp:

Oct 5, 2019, 1:00:29 PM (5 years ago)

Author:

chronos

Message:

• Added: Remember board state between application restarts.

File:

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

trunk/UCore.pas

@@ -115 +115 @@
     CurrentContext := ApplicationInfo1.GetRegistryContext;
 
-    Game.TopScore := ReadIntegerWithDefault('TopScore', 0);
-    Game.Board.Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
-    Game.AnimationDuration := ReadIntegerWithDefault('AnimationDuration', 30);
     if ValueExists('LanguageCode') then
       Translator1.Language := Translator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
@@ -124 +121 @@
     Free;
   end;
+  Game.LoadFromRegistry(ApplicationInfo1.GetRegistryContext);
 end;
 
@@ -132 +130 @@
     CurrentContext := ApplicationInfo1.GetRegistryContext;
 
-    WriteInteger('TopScore', Game.TopScore);
-    WriteInteger('SizeX', Game.Board.Size.X);
-    WriteInteger('SizeY', Game.Board.Size.Y);
-    WriteInteger('AnimationDuration', Game.AnimationDuration);
     if Assigned(Translator1.Language) and (Translator1.Language.Code <> '') then
       WriteString('LanguageCode', Translator1.Language.Code)
@@ -142 +136 @@
     Free;
   end;
+  Game.SaveToRegistry(ApplicationInfo1.GetRegistryContext);
 end;