Changeset 437 for trunk/LocalPlayer/Battle.pas

Timestamp:

May 11, 2022, 9:06:36 AM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Battle.pas

@@ -38 +38 @@
   BattleDlg: TBattleDlg;
 
+
 implementation
 
@@ -149 +150 @@
   begin
     if Forecast.EndHealthDef > 0 then
-      RisedTextOut(ca, xm + 10, ym - (TextSize.cy + 1) div 2, LabelText)
+      RisedTextOut(ca, xm + 10, ym - (TextSize.cy + 1) div 2, LabelText);
   end
   else
@@ -171 +172 @@
     if Forecast.EndHealthAtt > 0 then
       RisedTextOut(ca, xm - (TextSize.cx + 1) div 2, ym + 8 + LAAvoidedDamage,
-        LabelText)
+        LabelText);
   end
   else
@@ -240 +241 @@
     Brush.Style := bsClear;
     PaintBackground(self, 3 + Border, 3 + Border,
-      ClientWidth - (6 + 2 * Border), ClientHeight - (6 + 2 * Border))
+      ClientWidth - (6 + 2 * Border), ClientHeight - (6 + 2 * Border));
   end;
   Frame(Canvas, Border + 1, Border + 1, ClientWidth - (2 + Border),
@@ -270 +271 @@
         205 + (MessageLineSpacing - MessageLineSpacing div 2), s1);
     end;
-    ym := 110
+    ym := 110;
   end
   else
@@ -297 +298 @@
 begin
   if not IsSuicideQuery then
-    Close
+    Close;
 end;
 
@@ -309 +310 @@
     if Key <> VK_ESCAPE then
       MainScreen.FormKeyDown(Sender, Key, Shift);
-  end
+  end;
 end;