Changeset 414 for trunk/LocalPlayer/NatStat.pas

Timestamp:

Nov 17, 2021, 1:18:21 AM (2 years ago)

Author:

chronos

Message:

• Modified: Merged duplicated code into ApplyToVisibleForms method.
• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/NatStat.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, BaseWin,
-
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  ButtonB, ButtonC, Menus, EOTButton;
+  Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
+  Classes, Graphics, Controls, Forms, ButtonB, ButtonC, Menus, EOTButton;
 
 type
@@ -32 +30 @@
     procedure ScrollDownBtnClick(Sender: TObject);
     procedure TellAIBtnClick(Sender: TObject);
-
   public
     procedure CheckAge;
     procedure ShowNewContent(NewMode: integer; p: integer = -1);
     procedure EcoChange;
-
   protected
     procedure OffscreenPaint; override;
-
   private
     pView, AgePrepared, LinesDown: integer;
@@ -305 +300 @@
           Phrases.Lookup('FREXTINCT'));
         LoweredTextOut(Canvas, -1, MainTexture, xAttrib, yAttrib + 28,
-          TurnToString(CurrentReport.TurnOfCivilReport))
+          TurnToString(CurrentReport.TurnOfCivilReport));
       end
       else
@@ -320 +315 @@
         s := Phrases.Lookup('FRNOCONTACT');
         LoweredTextOut(Canvas, -1, MainTexture,
-          (ClientWidth - BiColorTextWidth(Canvas, s)) div 2, yRelation + 9, s)
+          (ClientWidth - BiColorTextWidth(Canvas, s)) div 2, yRelation + 9, s);
       end
       else if ShowContact then
@@ -379 +374 @@
           end;
           inc(y);
-        end
+        end;
       end;
     end
@@ -403 +398 @@
 procedure TNatStatDlg.CloseBtnClick(Sender: TObject);
 begin
-  Close
+  Close;
 end;
 
@@ -421 +416 @@
       begin
         if MainScreen.ContactRefused(pView, 'FRANARCHY') then
-          SmartUpdateContent
+          SmartUpdateContent;
       end
       else
@@ -427 +422 @@
   end
   else
-    Close
+    Close;
 end;
 
@@ -501 +496 @@
   end
   else
-    inherited
+    inherited;
 end;
 
@@ -510 +505 @@
     SelfReport.Government := MyRO.Government;
     SelfReport.Money := MyRO.Money;
-    SmartUpdateContent
-  end
+    SmartUpdateContent;
+  end;
 end;
 
@@ -520 +515 @@
     dec(LinesDown);
     SmartUpdateContent;
-  end
+  end;
 end;
 
@@ -529 +524 @@
     inc(LinesDown);
     SmartUpdateContent;
-  end
+  end;
 end;
 
@@ -540 +535 @@
   else
     TellAIBtn.ButtonIndex := 2;
-  SmartUpdateContent
+  SmartUpdateContent;
 end;