Changeset 186 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

May 6, 2020, 8:48:39 PM (5 years ago)

Author:

chronos

Message:

• Modified: Code formatting.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (5 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, ScreenTools, Tribes,
-{$IFNDEF SCR}Term, {$ENDIF}
+  Protocol, ClientTools, ScreenTools, Tribes, {$IFNDEF SCR}Term, {$ENDIF}
   LCLIntf, LCLType, SysUtils, Classes, Graphics, PixelPointer;
 
@@ -478 +477 @@
   begin
     Width := Width - (FLeft - x);
-    x := FLeft
+    x := FLeft;
   end;
   if y < FTop then
   begin
     Height := Height - (FTop - y);
-    y := FTop
+    y := FTop;
   end;
   if x + Width >= FRight then
@@ -510 +509 @@
     Width := Width - (FLeft - x);
     xSrc := xSrc + (FLeft - x);
-    x := FLeft
+    x := FLeft;
   end;
   if y < FTop then
@@ -516 +515 @@
     Height := Height - (FTop - y);
     ySrc := ySrc + (FTop - y);
-    y := FTop
+    y := FTop;
   end;
   if x + Width >= FRight then
@@ -628 +627 @@
           TSprite(x,y+16,12*9+7); }
         Sprite(HGrStdUnits, x, y, xxu * 2, yyu * 2, 1 + 6 * (xxu * 2 + 1), 1);
-      end
-    end
+      end;
+    end;
 end; { PaintUnit }