Changeset 65 for trunk/UGame.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/UGame.pas (modified) (14 diffs)

trunk/UGame.pas

@@ -104 +104 @@
     FOnChange: TNotifyEvent;
     FOnGameOver: TNotifyEvent;
+    FOnPaint: TNotifyEvent;
     FOnWin: TNotifyEvent;
     FRecordHistory: Boolean;
@@ -115 +116 @@
     procedure SetScore(AValue: Integer);
     procedure DoChange;
+    procedure DoPaint;
     procedure RenderTile(Canvas: TCanvas; Tile: TTile; TileRect: TRect; WithText: Boolean);
     procedure GameOver;
@@ -129 +131 @@
     TopScore: Integer;
     AnimationDuration: Integer;
+    AnimationTick: Integer;
     WinTileValue: Integer;
     UndoEnabled: Boolean;
@@ -155 +158 @@
     property Running: Boolean read FRunning write FRunning;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
     property OnWin: TNotifyEvent read FOnWin write FOnWin;
     property OnGameOver: TNotifyEvent read FOnGameOver write FOnGameOver;
@@ -506 +510 @@
 end;
 
+procedure TGame.DoPaint;
+begin
+  if Assigned(FOnPaint) then FOnPaint(Self);
+end;
+
 procedure TGame.GameOver;
 begin
@@ -516 +525 @@
   if FSkin = AValue then Exit;
   FSkin := AValue;
-  DoChange;
+  DoPaint;
 end;
 
@@ -595 +604 @@
   AnimateTiles;
   DoChange;
+  DoPaint;
 end;
 
@@ -763 +773 @@
       Inc(P.Y, Area.Increment.Y);
     end;
-    DoChange;
+    DoPaint;
   end;
   FMoving := False;
@@ -945 +955 @@
               Trunc(Part * DirectionDiff[Direction].Y * 100));
         end;
-      DoChange;
-      Application.ProcessMessages;
-      Sleep(1);
+      DoPaint;
+      //Application.ProcessMessages;
+      Sleep(AnimationTick);
     until Time > EndTime;
 
@@ -968 +978 @@
       Board.Tiles[Y, X].Value := Board.Tiles[Y, X].NewValue;
     end;
-  DoChange;
+  DoPaint;
   FMoving := False;
 end;
@@ -1008 +1018 @@
           Board.Tiles[Y, X].Shift := Point(Trunc(Part * 100), Trunc(Part * 100));
       end;
-    DoChange;
-    Application.ProcessMessages;
-    Sleep(1);
+    DoPaint;
+    //Application.ProcessMessages;
+    Sleep(AnimationTick);
   until Time > EndTime;
 
@@ -1019 +1029 @@
         Board.Tiles[Y, X].Shift := Point(0, 0);
       end;
-  DoChange;
+  DoPaint;
   FMoving := False;
 end;
@@ -1155 +1165 @@
   end;
   DoChange;
+  DoPaint;
 end;
 
@@ -1160 +1171 @@
 begin
   AnimationDuration := 30;
+  AnimationTick := 10; // ms
   WinTileValue := 11; // 2^11 = 2048
   Board := TBoard.Create;