Changeset 72 for trunk/UEngine.pas

Timestamp:

Jan 11, 2023, 5:18:36 PM (22 months ago)

Author:

chronos

Message:

• Fixed: Background in main menu was not correctly cleared.
• Fixed: Windows installer script to support InnoSetup 6.

File:

• trunk/UEngine.pas (modified) (6 diffs)

trunk/UEngine.pas

@@ -219 +219 @@
     procedure SetActive(const AValue: Boolean);
     procedure SetBitmap(const AValue: TBitmap);
-    procedure Redraw;
     function IsInsideHouses(Pos: TPoint): Boolean;
     procedure InitPlayers;
     procedure CheckGameEnd;
+    procedure ClearBackground;
     procedure DrawMenu;
     procedure DrawStats;
@@ -250 +250 @@
     procedure ResizePlayerFrames;
     procedure Tick;
+    procedure Redraw;
     procedure Draw;
     procedure DrawThread(Thread: TVirtualThread);
@@ -1211 +1212 @@
 begin
   with Bitmap.Canvas do begin
-    Brush.Style := bsSolid;
-    Brush.Color := clBlack;
-    Clear;
+    ClearBackground;
 
     X := Bitmap.Width div 2;
@@ -1257 +1256 @@
 begin
   with Bitmap.Canvas do begin
-    Brush.Style := bsSolid;
-    Brush.Color := clBlack;
-    Clear;
+    ClearBackground;
 
     X := Bitmap.Width div 2;
@@ -1308 +1305 @@
 begin
   with Bitmap.Canvas do begin
-    Brush.Style := bsSolid;
-    Brush.Color := clBlack;
-    Clear;
+    ClearBackground;
 
     Brush.Style := bsClear;
@@ -1607 +1602 @@
 end;
 
-procedure TEngine.DrawMenu;
-var
-  Text: string;
-  MenuWidth: Integer;
+procedure TEngine.ClearBackground;
 begin
   with Bitmap.Canvas do begin
     Brush.Style := bsSolid;
     Brush.Color := clBlack;
-    Clear;
+    FillRect(0, 0, Bitmap.Width, Bitmap.Height);
+  end;
+end;
+
+procedure TEngine.DrawMenu;
+var
+  Text: string;
+  MenuWidth: Integer;
+begin
+  with Bitmap.Canvas do begin
+    ClearBackground;
 
     if FShowMenuStats then begin