Changeset 536 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Apr 15, 2024, 8:59:23 PM (4 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/IsoEngine.pas

@@ -76 +76 @@
     procedure PaintGrid(X, Y, nx, ny: Integer);
     procedure FillRect(X, Y, Width, Height, Color: Integer);
-    procedure Textout(X, Y, Color: Integer; const S: string);
+    procedure TextOut(X, Y, Color: Integer; const S: string);
     procedure Sprite(HGr: TGraphicSet; xDst, yDst, Width, Height, xGr, yGr: Integer);
     procedure TSprite(xDst, yDst, grix: Integer; PureBlack: Boolean = False);
@@ -581 +581 @@
 end;
 
-procedure TIsoMap.Textout(X, Y, Color: Integer; const S: string);
+procedure TIsoMap.TextOut(X, Y, Color: Integer; const S: string);
 begin
   FOutput.Canvas.Font.Color := Color;
@@ -797 +797 @@
       LabelTextColor := $000000;
     end;
-    Textout(xShield + 2, yShield - 1, LabelTextColor, S);
+    TextOut(xShield + 2, yShield - 1, LabelTextColor, S);
   end;
 end;
@@ -1076 +1076 @@
       if IsCapital then
         FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style + [TFontStyle.fsUnderline];
-      Textout(xs + 1, Y - 9, $000000, S);
-      Textout(xs, Y - 10, $FFFFFF, S);
+      TextOut(xs + 1, Y - 9, $000000, S);
+      TextOut(xs, Y - 10, $FFFFFF, S);
       if IsCapital then
         FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style - [TFontStyle.fsUnderline];
@@ -1272 +1272 @@
             PaintUnit(X + (xxt - xxu), Y + (yyt - yyu_anchor), UnitInfo,
               MyUn[uix].Status);
-          // if Showuix then Textout(x + 16, y + 5, $80FF00, IntToStr(uix));
+          // if Showuix then TextOut(x + 16, y + 5, $80FF00, IntToStr(uix));
         end
         else {$ENDIF} PaintUnit(X + (xxt - xxu), Y + (yyt - yyu_anchor), UnitInfo, 0);
@@ -1290 +1290 @@
   if (Loc >= 0) and (Loc < G.lx * G.ly) then
     if ShowLoc then
-      Textout(X + xxt - 16, Y + yyt - 9, $FFFF00, IntToStr(Loc))
+      TextOut(X + xxt - 16, Y + yyt - 9, $FFFF00, IntToStr(Loc))
     else if ShowDebug and (DebugMap <> nil) and (Loc >= 0) and
       (Loc < G.lx * G.ly) and (DebugMap[Loc] <> 0) then
-      Textout(X + xxt - 16, Y + yyt - 9, $00E0FF,
+      TextOut(X + xxt - 16, Y + yyt - 9, $00E0FF,
         IntToStr(Integer(DebugMap[Loc])))
 end;