Changeset 10 for trunk/UCore.pas

Timestamp:

Oct 4, 2019, 11:05:35 PM (5 years ago)

Author:

chronos

Message:

• Added: Show Top score and remember it after application restart.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UTheme, UPersistentForm, UApplicationInfo, UTranslator;
+  Classes, SysUtils, UTheme, UPersistentForm, UApplicationInfo, UTranslator,
+  URegistry, UGame;
 
 type
@@ -17 +18 @@
     ThemeManager1: TThemeManager;
     Translator1: TTranslator;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
-
+    procedure GameChange(Sender: TObject);
   public
-
+    Game: TGame;
+    procedure LoadConfig;
+    procedure SaveConfig;
   end;
 
@@ -30 +35 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
+{ TCore }
+
+procedure TCore.DataModuleCreate(Sender: TObject);
+begin
+  Randomize;
+  Game := TGame.Create;
+  Game.Size := Point(4, 4);
+  Game.OnChange := GameChange;
+  LoadConfig;
+end;
+
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  SaveConfig;
+  FreeAndNil(Game);
+end;
+
+procedure TCore.GameChange(Sender: TObject);
+begin
+  FormMain.Repaint;
+end;
+
+procedure TCore.LoadConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := ApplicationInfo1.GetRegistryContext;
+
+    Game.TopScore := ReadIntegerWithDefault('TopScore', 0);
+  finally
+    Free;
+  end;
+end;
+
+procedure TCore.SaveConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := ApplicationInfo1.GetRegistryContext;
+
+    WriteInteger('TopScore', Game.TopScore);
+  finally
+    Free;
+  end;
+end;
+
 end.