Changeset 437

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/LocalPlayer

Files:

• Battle.pas (modified) (7 diffs)
• Draft.pas (modified) (6 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;
 

trunk/LocalPlayer/Draft.pas

@@ -43 +43 @@
   DraftDlg: TDraftDlg;
 
+
 implementation
 
-uses Help, Tribes, Directories;
+uses
+  Help, Tribes, Directories;
 
 {$R *.lfm}
@@ -175 +177 @@
               end;
             end;
-          end
+          end;
       end;
 
@@ -403 +405 @@
   end;
   MarkUsedOffscreen(ClientWidth, ClientHeight);
-end; { MainPaint }
+end;
 
 procedure TDraftDlg.SetDomain(d: integer);
@@ -434 +436 @@
     begin
       code[Lines] := i;
-      inc(Lines)
+      inc(Lines);
     end;
   yFeature := yFeature0 + (MaxLines - Lines) * LinePitch div 2;
@@ -445 +447 @@
         x := code[i];
         code[i] := code[j];
-        code[j] := x
+        code[j] := x;
       end;
 end;
@@ -554 +556 @@
           SmartInvalidate;
         end;
-      end
-    end
-  end
+      end;
+    end;
+  end;
 end;