Changeset 19 for trunk/UMainForm.pas

Timestamp:

Sep 27, 2011, 10:16:41 PM (13 years ago)

Author:

george

Message:

• Added: Helping threading unit.
• Added: Now drawing and engine handling are executed in separated thread.

File:

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

trunk/UMainForm.pas

@@ -80 +80 @@
     Drawing := True;
     StartTime := NowPrecise;
-    Engine.Draw;
+    //Engine.Draw;
     DrawDuration := NowPrecise - StartTime;
-    StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
-      IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
-      IntToStr(TPlayer(Engine.Players[0]).Direction);
-    StatusBar1.Panels[2].Text := FloatToStr(RoundTo(DrawDuration / OneMillisecond, -2));
-    StatusBar1.Panels[3].Text := IntToStr(TPlayer(Engine.Players[0]).Bullets.Count);
+    try
+      Engine.Lock.Acquire;
+      StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
+        IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
+        IntToStr(TPlayer(Engine.Players[0]).Direction);
+      StatusBar1.Panels[2].Text := FloatToStr(RoundTo(DrawDuration / OneMillisecond, -2));
+      StatusBar1.Panels[3].Text := IntToStr(TPlayer(Engine.Players[0]).Bullets.Count);
+    finally
+      Engine.Lock.Release;
+    end;
   finally
     Drawing := False;
@@ -94 +99 @@
 procedure TMainForm.TimerEngineTickTimer(Sender: TObject);
 begin
-  Engine.Tick;
+  //Engine.Tick;
 end;
 
@@ -138 +143 @@
   end;
   Engine.NewGame;
+  Engine.Active := True;
   Image1Resize(Self);
 end;