Changeset 496 for trunk/LocalPlayer/Enhance.pas

Timestamp:

Dec 18, 2023, 10:31:54 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Enhance.pas (modified) (3 diffs)

trunk/LocalPlayer/Enhance.pas

@@ -126 +126 @@
 procedure TEnhanceDlg.OffscreenPaint;
 var
-  I, stage, TerrType, TileImp, X, EndStage, Cost, LastJob: Integer;
+  I, Stage, TerrType, TileImp, X, EndStage, Cost, LastJob: Integer;
   S: string;
-  Done: set of jNone .. jTrans;
+  Done: set of jNone..jTrans;
   TypeChanged: Boolean;
 begin
-  OffscreenUser := self;
+  OffscreenUser := Self;
   Offscreen.Canvas.Font.Assign(UniFont[ftSmall]);
   FillOffscreen(0, 0, InnerWidth, InnerHeight);
@@ -145 +145 @@
   Done := [];
   Cost := 0;
-  for stage := 0 to EndStage do
+  for Stage := 0 to EndStage do
   begin
-    if stage > 0 then
+    if Stage > 0 then
     begin
       Sprite(Offscreen, HGrSystem, X - 10, 66, 14, 14, 80, 1);
-      case MyData.EnhancementJobs[Page, stage - 1] of
+      case MyData.EnhancementJobs[Page, Stage - 1] of
         jRoad:
           begin
@@ -192 +192 @@
           end;
       end;
-      Include(Done, MyData.EnhancementJobs[Page, stage - 1]);
+      Include(Done, MyData.EnhancementJobs[Page, Stage - 1]);
     end;