Changeset 460 for trunk/LocalPlayer/NatStat.pas

Timestamp:

Nov 28, 2023, 3:16:24 PM (6 months ago)

Author:

chronos

Message:

• Modified: Do not initialize all local player windows at the start of the game but later when they are really opened. This also fixes window initialization under Qt5 widgetset.

File:

• trunk/LocalPlayer/NatStat.pas (modified) (7 diffs)

trunk/LocalPlayer/NatStat.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
+  Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
   Classes, Graphics, Controls, Forms, ButtonB, ButtonC, Menus, EOTButton;
 
@@ -37 +37 @@
     procedure OffscreenPaint; override;
   private
-    pView, AgePrepared, LinesDown: Integer;
-    SelfReport, CurrentReport: PEnemyReport;
-    ShowContact, ContactEnabled: Boolean;
-    Back, Template: TBitmap;
+    pView: Integer;
+    AgePrepared: Integer;
+    LinesDown: Integer;
+    SelfReport: PEnemyReport;
+    CurrentReport: PEnemyReport;
+    ShowContact: Boolean;
+    ContactEnabled: Boolean;
+    Back: TBitmap;
+    Template: TBitmap;
     ReportText: TStringList;
     procedure GenerateReportText;
   end;
 
-var
-  NatStatDlg: TNatStatDlg;
-
 
 implementation
@@ -54 +56 @@
 
 uses
-  Messg, Tribes, Directories;
+  Term, Messg, Tribes, Directories;
 
 const
@@ -193 +195 @@
             [I * 100 div (G.lx * G.ly)]);
       end;
-    end
+    end;
   end;
 
@@ -254 +256 @@
   ps: PChar;
   Extinct: Boolean;
-
 begin
   inherited;
@@ -279 +280 @@
         1 + Tribe[pView].facepix mod 10 * 65,
         1 + Tribe[pView].facepix div 10 * 49);
-      frame(Offscreen.Canvas, 18 - 1, yIcon - 4 - 1, 18 + 64, yIcon - 4 + 48,
+      Frame(Offscreen.Canvas, 18 - 1, yIcon - 4 - 1, 18 + 64, yIcon - 4 + 48,
         $000000, $000000);
     end;
@@ -392 +393 @@
         Phrases2.Lookup('MENU_TELLAI'));
   end;
+
   ContactBtn.SetBack(Offscreen.Canvas, ContactBtn.Left, ContactBtn.Top);