Changeset 104 for trunk/Forms/FormHistory.pas

Timestamp:

Dec 9, 2024, 3:42:36 PM (13 days ago)

Author:

chronos

Message:

• Modified: Board, Tile and History separated from main Game unit.

File:

• trunk/Forms/FormHistory.pas (modified) (1 diff)

trunk/Forms/FormHistory.pas

@@ -53 +53 @@
 
 procedure TFormHistory.Timer1Timer(Sender: TObject);
+var
+  I: Integer;
 begin
   if RedrawPending then begin
-    Core.Core.Game.History.GetStep(Game, TrackBar1.Position);
+    Game.Assign(Core.Core.Game);
+    Game.Board.Size := Core.Core.Game.Board.Size;
+    Game.Skin := Core.Core.Game.Skin;
+    Game.ColorPalette := Core.Core.Game.ColorPalette;
+    Game.Replay(Core.Core.Game.History, TrackBar1.Position);
     PaintBox1.Refresh;
     RedrawPending := False;