Changeset 49 for branches/paintbox/UEngine.pas

Timestamp:

Aug 22, 2019, 9:50:21 AM (5 years ago)

Author:

chronos

Message:

• Modified: Use TPaintBox for drawing.

File:

• branches/paintbox/UEngine.pas (modified) (9 diffs)

branches/paintbox/UEngine.pas

@@ -219 +219 @@
     FBitmapLock: TCriticalSection;
     FOnGameEnd: TNotifyEvent;
+    FOnRepaint: TNotifyEvent;
     FRedrawPending: Boolean;
     FBitmapLower: TBitmapTColor;
@@ -230 +231 @@
     function IsInsideHouses(Pos: TPoint): Boolean;
     procedure DoDrawToBitmap;
+    procedure DoOnRepaint;
     procedure InitPlayerPool;
     procedure InitPlayers;
@@ -257 +259 @@
     property Active: Boolean read FActive write SetActive;
     property OnGameEnd: TNotifyEvent read FOnGameEnd write FOnGameEnd;
+    property OnRepaint: TNotifyEvent read FOnRepaint write FOnRepaint;
   end;
 
@@ -370 +373 @@
   repeat
     Engine.Draw(Self);
-    Sleep(50);
+    //Sleep(50);
   until Terminated;
 end;
@@ -1154 +1157 @@
 begin
   FBitmap := AValue;
-  ResizePlayerFrames;
 end;
 
@@ -1271 +1273 @@
 end;
 
+procedure TEngine.DoOnRepaint;
+begin
+  if Assigned(FOnRepaint) then FOnRepaint(Self);
+end;
+
 procedure TEngine.InitDigMasks;
 var
@@ -1520 +1527 @@
 constructor TEngine.Create;
 begin
+  FBitmap := TBitmap.Create;
   Lock := TCriticalSection.Create;
   FBitmapLower := TBitmapTColor.Create;
@@ -1557 +1565 @@
   FreeAndNil(AudioShot);
   FreeAndNil(AudioExplode);
+  FreeAndNil(FBitmap);
   inherited Destroy;
 end;
@@ -1593 +1602 @@
       Lock.Release;
     end;
-    if not Thread.Terminated then Thread.Synchronize(DoDrawToBitmap);
+    if not Thread.Terminated then DoDrawToBitmap;
+    if not Thread.Terminated then Thread.Synchronize(DoOnRepaint);
     DrawDuration := NowPrecise - DrawStart;
   end;