Changeset 104 for trunk/Forms

Timestamp:

Dec 9, 2024, 3:42:36 PM (6 weeks ago)

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• FormComputer.pas (modified) (1 diff)
• FormHistory.pas (modified) (1 diff)
• FormMain.pas (modified) (1 diff)

trunk/Forms/FormComputer.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
-  Game, Generics.Collections, Generics.Defaults, FormEx;
+  Game, Generics.Collections, Generics.Defaults, FormEx, Board;
 
 type

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;

trunk/Forms/FormMain.pas

@@ -6 +6 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, Math,
   ActnList, ExtCtrls, StdCtrls, Game, PersistentForm, ApplicationInfo,
-  LCLType, Syncobjs, DateUtils, FormEx;
+  LCLType, Syncobjs, DateUtils, FormEx, Board;
 
 type