Changeset 108 for trunk/Core.pas

Timestamp:

Dec 10, 2024, 12:06:43 AM (13 days ago)

Author:

chronos

Message:

• Added: Tools - Score menu action to show history of previously played games with score information.

File:

• trunk/Core.pas (modified) (14 diffs)

trunk/Core.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Theme, PersistentForm, ApplicationInfo, Translator,
-  RegistryEx, ScaleDPI, Game, ActnList, Forms, Controls, Dialogs;
+  RegistryEx, ScaleDPI, Game, ActnList, Forms, Controls, Dialogs, Score;
 
 type
@@ -14 +14 @@
     AAbout: TAction;
     AComputer: TAction;
+    AScore: TAction;
     ARestart: TAction;
     AHistory: TAction;
@@ -34 +35 @@
     procedure ANewExecute(Sender: TObject);
     procedure ARestartExecute(Sender: TObject);
+    procedure AScoreExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure AUndoExecute(Sender: TObject);
@@ -46 +48 @@
     procedure GameOver(Sender: TObject);
     procedure GameOverSync;
+    procedure UpdateScores;
   public
     Game: TGame;
+    Scores: TScores;
     procedure UpdateInterface;
     procedure LoadConfig;
@@ -63 +67 @@
 uses
   FormMain, FormSettings, FormNew, FormHelp, FormComputer, FormAbout, FormEx,
-  FormHistory;
+  FormHistory, FormScore;
 
 resourcestring
@@ -89 +93 @@
 
   Randomize;
+  Scores := TScores.Create;
+
   Game := TGame.Create;
   Game.Board.Size := Point(4, 4);
@@ -182 +188 @@
   FormNew: TFormNew;
 begin
+  UpdateScores;
   FormNew := TFormNew.Create(nil);
   try
@@ -198 +205 @@
 procedure TCore.ARestartExecute(Sender: TObject);
 begin
+  UpdateScores;
   Game.Restart;
   UpdateInterface;
@@ -203 +211 @@
 end;
 
+procedure TCore.AScoreExecute(Sender: TObject);
+var
+  FormScore: TFormScore;
+begin
+  UpdateScores;
+  FormScore := TFormScore.Create(nil);
+  try
+    FormScore.Scores := Scores;
+    if FormScore.ShowModal = mrOk then begin
+    end;
+  finally
+    FreeAndNil(FormScore);
+  end;
+end;
+
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  UpdateScores;
   SaveConfig;
   FreeAndNil(Game);
+  FreeAndNil(Scores);
 end;
 
@@ -232 +257 @@
 begin
   MessageDlg(SWinCaption, Format(SWinMessage, [Game.GetTileSkinValue(Game.WinTileValue)]), mtInformation, [mbOk], 0);
+  UpdateScores;
 end;
 
@@ -242 +268 @@
 begin
   MessageDlg(SGameOverCaption, SGameOverMessage, mtInformation, [mbOK], 0);
+  UpdateScores;
+end;
+
+procedure TCore.UpdateScores;
+var
+  Score: TScore;
+begin
+  Score := Scores.SearchByTime(Game.StartTime);
+  if not Assigned(Score) then Score := Scores.AddNew;
+  Score.StartTime := Game.StartTime;
+  Score.Score := Game.Score;
+  Score.Moves := Game.Moves;
+  Score.UsedUndos := Game.UsedUndos;
+  Score.BoardSize := IntToStr(Game.Board.Size.X) + 'x' + IntToStr(Game.Board.Size.Y);
 end;
 
@@ -258 +298 @@
 
 procedure TCore.LoadConfig;
-begin
-  with TRegistryEx.Create do
+var
+  Reg: TRegistryEx;
+  RegContext: TRegistryContext;
+begin
+  Reg := TRegistryEx.Create;
+  with Reg do
   try
     CurrentContext := ApplicationInfo1.GetRegistryContext;
@@ -267 +311 @@
       else Translator1.Language := Translator1.Languages.SearchByCode('');
     ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
-  finally
-    Free;
-  end;
-  Game.LoadFromRegistry(ApplicationInfo1.GetRegistryContext);
+
+    RegContext := ApplicationInfo1.GetRegistryContext;
+    Game.LoadFromRegistry(Reg, RegContext);
+    Scores.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Scores'));
+  finally
+    Reg.Free;
+  end;
 end;
 
 procedure TCore.SaveConfig;
-begin
-  with TRegistryEx.Create do
+var
+  Reg: TRegistryEx;
+  RegContext: TRegistryContext;
+begin
+  Reg := TRegistryEx.Create;
+  with Reg do
   try
     CurrentContext := ApplicationInfo1.GetRegistryContext;
@@ -283 +334 @@
       else DeleteValue('LanguageCode');
     WriteString('Theme', ThemeManager1.Theme.Name);
-  finally
-    Free;
-  end;
-  Game.SaveToRegistry(ApplicationInfo1.GetRegistryContext);
+
+    RegContext := ApplicationInfo1.GetRegistryContext;
+    Game.SaveToRegistry(Reg, RegContext);
+    Scores.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Scores'));
+  finally
+    Reg.Free;
+  end;
 end;