Changeset 68 for trunk/Forms/UFormComputer.pas

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.

File:

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

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;