Changeset 531 for trunk/LocalPlayer/NatStat.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/NatStat.pas

@@ -32 +32 @@
     procedure ScrollDownBtnClick(Sender: TObject);
     procedure TellAIBtnClick(Sender: TObject);
-  public
-    procedure CheckAge;
-    procedure ShowNewContent(NewMode: TWindowMode; P: Integer = -1);
-    procedure EcoChange;
   protected
     procedure OffscreenPaint; override;
@@ -50 +46 @@
     ReportText: TStringList;
     procedure GenerateReportText;
+  public
+    procedure CheckAge;
+    procedure ShowNewContent(NewMode: TWindowMode; P: Integer = -1);
+    procedure EcoChange;
   end;
 
@@ -244 +244 @@
             if ExtinctPart then
               S := '(' + S + ')';
-            ReportText.Add(char(48 + Treaty) + S);
+            ReportText.Add(Char(48 + Treaty) + S);
           end;
   end;