Changeset 65 for trunk/UCore.pas

Timestamp:

Jan 23, 2020, 12:21:53 AM (4 years ago)

Author:

chronos

Message:

• Added: Separated TGame paint and state change events.
• Modified: Animate tiles movements in background thread.
• Modified: Initialize TCore as first application form.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -40 +40 @@
   private
     procedure GameChange(Sender: TObject);
+    procedure GamePaint(Sender: TObject);
     procedure GameWin(Sender: TObject);
     procedure GameOver(Sender: TObject);
@@ -80 +81 @@
   Game.Board.Size := Point(4, 4);
   Game.OnChange := GameChange;
+  Game.OnPaint := GamePaint;
   Game.OnWin := GameWin;
   Game.OnGameOver := GameOver;
@@ -179 +181 @@
 procedure TCore.GameChange(Sender: TObject);
 begin
-  FormMain.Redraw;
   UpdateInterface;
+end;
+
+procedure TCore.GamePaint(Sender: TObject);
+begin
+  if Assigned(FormMain) then FormMain.Redraw;
 end;