Changeset 442 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

May 18, 2022, 10:43:27 PM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/IsoEngine.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, ScreenTools, Tribes,
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, UPixelPointer, UGraphicSet;
+  Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils,
+  Classes, Graphics, UPixelPointer, UGraphicSet;
 
 const
@@ -719 +719 @@
       end;
     end;
-end; { PaintUnit }
+end;
 
 procedure TIsoMap.PaintCity(x, y: integer; const CityInfo: TCityInfo;
@@ -804 +804 @@
     Textout(xShield + 2, yShield - 1, LabelTextColor, s);
   end;
-end; { PaintCity }
+end;
 
 function PoleTile(Loc: integer): integer;
@@ -1300 +1300 @@
       Textout(x + xxt - 16, y + yyt - 9, $00E0FF,
         IntToStr(integer(DebugMap[Loc])))
-end; { PaintTileObjects }
+end;
 
 procedure TIsoMap.PaintGrid(x, y, nx, ny: integer);
@@ -1687 +1687 @@
 
   // frame(FOutput.Canvas,x+1,y+1,x+nx*33+33-2,y+ny*16+32-2,$FFFF,$FFFF);
-end; { Paint }
+end;
 
 procedure TIsoMap.AttackBegin(const ShowMove: TShowMove);