Changeset 68 for trunk/Forms

Timestamp:

Jan 26, 2020, 10:57:41 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Drawing board in AI mode.
• Fixed: Undo action was not enabled.

Location:

trunk/Forms

Files:

• UFormComputer.pas (modified) (2 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormComputer.pas

@@ -161 +161 @@
   J: Integer;
   GameTries: TGameTries;
+  Delay: Integer;
 begin
   ButtonStart.Enabled := False;
@@ -201 +202 @@
       else Break;
       }
-      Application.ProcessMessages;
-      Sleep(TrackBar1.Position);
+      Delay := TrackBar1.Position;
+      while Delay > 0 do begin
+        Application.ProcessMessages;
+        Sleep(10);
+        Delay := Delay - 10;
+      end;
     end;
   end;

trunk/Forms/UFormMain.pas

@@ -223 +223 @@
     while Length(MoveBuffer) > 0 do begin
       MoveBufferLock.Release;
-      Core.Game.MoveAllAndUpdate(MoveBuffer[0], True);
+      Core.Game.MoveAllAndUpdate(MoveBuffer[0], Core.Game.AnimationDuration > 0);
       MoveBufferLock.Acquire;
       if Length(MoveBuffer) > 1 then