Changeset 67

Timestamp:

Jan 23, 2020, 12:58:45 AM (5 years ago)

Author:

chronos

Message:

• Fixed: Synchronize OnWin and OnGameOver events with main thread.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• UCore.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -56 +56 @@
     MoveBuffer: array of TMoveDirection;
     MoveBufferLock: TCriticalSection;
-    MoveThread: TMoveThread;
     procedure AddToMoveBuffer(Direction: TMoveDirection);
     procedure ProcessMoveBuffer;
   public
+    MoveThread: TMoveThread;
     procedure Redraw;
     procedure UpdateInterface;

trunk/UCore.pas

@@ -42 +42 @@
     procedure GamePaint(Sender: TObject);
     procedure GameWin(Sender: TObject);
+    procedure GameWinSync;
     procedure GameOver(Sender: TObject);
+    procedure GameOverSync;
   public
     Game: TGame;
@@ -191 +193 @@
 procedure TCore.GameWin(Sender: TObject);
 begin
+  TThread.Synchronize(FormMain.MoveThread, GameWinSync);
+end;
+
+procedure TCore.GameWinSync;
+begin
   MessageDlg(SWinCaption, Format(SWinMessage, [Game.GetTileSkinValue(Game.WinTileValue)]), mtInformation, [mbOk], 0);
 end;
 
 procedure TCore.GameOver(Sender: TObject);
+begin
+  TThread.Synchronize(FormMain.MoveThread, GameOverSync);
+end;
+
+procedure TCore.GameOverSync;
 begin
   MessageDlg(SGameOverCaption, SGameOverMessage, mtInformation, [mbOK], 0);