Changeset 38 for trunk/Forms/UFormComputer.pas

Timestamp:

Oct 13, 2019, 5:34:57 PM (5 years ago)

Author:

chronos

Message:

• Added: In computer AI form allow to set delay of steps computation. Set to zero means fastest processing.

File:

• trunk/Forms/UFormComputer.pas (modified) (6 diffs)

trunk/Forms/UFormComputer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UGame, fgl;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
+  UGame, fgl;
 
 type
@@ -30 +31 @@
     ButtonStart: TButton;
     ButtonStop: TButton;
+    Label1: TLabel;
+    TrackBar1: TTrackBar;
     procedure ButtonStartClick(Sender: TObject);
     procedure ButtonStopClick(Sender: TObject);
@@ -135 +138 @@
   );
 begin
+  ButtonStopClick(Self);
   Core.PersistentForm1.Save(Self);
 end;
@@ -187 +191 @@
         S := S + '), ';
       end;
-      MoveAllAndUpdate(GameTries[0].Moves[0]);
+      MoveAllAndUpdate(GameTries[0].Moves[0], False);
 {      if CanMergeDirection(drDown) then MoveAllAnimate(drDown)
       else if CanMergeDirection(drRight) then MoveAllAnimate(drRight)
@@ -198 +202 @@
       }
       Application.ProcessMessages;
-      Sleep(10);
+      Sleep(TrackBar1.Position);
     end;
   end;
@@ -243 +247 @@
       NewTry.Game.UndoEnabled := False;
       NewTry.Game.AnimationDuration := 0;
-      NewTry.Game.MoveAllAnimate(Direction);
+      NewTry.Game.MoveAll(Direction, False);
       SetLength(NewTry.Moves, Length(NewTry.Moves) + 1);
       NewTry.Moves[Length(NewTry.Moves) - 1] := Direction;