Changeset 531 for trunk/LocalPlayer/CityType.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityType.pas (modified) (8 diffs)

trunk/LocalPlayer/CityType.pas

@@ -23 +23 @@
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure DeleteBtnClick(Sender: TObject);
-  public
-    procedure ShowNewContent(NewMode: TWindowMode);
   protected
     procedure OffscreenPaint; override;
@@ -30 +28 @@
     nPool, dragiix, ctype: Integer;
     Pooliix: array [0 .. nImp - 1] of Integer;
-    listed: Set of 0 .. nImp;
+    Listed: set of 0 .. nImp;
     Changed: Boolean;
     procedure LoadType(NewType: Integer);
     procedure SaveType;
+  public
+    procedure ShowNewContent(NewMode: TWindowMode);
   end;
 
@@ -158 +158 @@
   nPool := 0;
   for iix := nWonder to nImp - 1 do
-    if not(iix in listed) and (Imp[iix].Kind = ikCommon) and (iix <> imTrGoods)
+    if not(iix in Listed) and (Imp[iix].Kind = ikCommon) and (iix <> imTrGoods)
       and (Imp[iix].Preq <> preNA) and
       ((Imp[iix].Preq = preNone) or (MyRO.Tech[Imp[iix].Preq] >= tsApplicable))
@@ -195 +195 @@
 begin
   ctype := NewType;
-  listed := [];
+  Listed := [];
   I := 0;
   while MyData.ImpOrder[ctype, I] >= 0 do
   begin
-    Include(listed, MyData.ImpOrder[ctype, I]);
+    Include(Listed, MyData.ImpOrder[ctype, I]);
     Inc(I);
   end;
@@ -295 +295 @@
     Assert(MyData.ImpOrder[ctype, I] = iix);
     Move(MyData.ImpOrder[ctype, I + 1], MyData.ImpOrder[ctype, I], nImp - I);
-    Exclude(listed, iix);
+    Exclude(Listed, iix);
   end;
 
@@ -308 +308 @@
       (Y < yList + nListRow * 32) then
     begin
-      if dragiix in listed then
+      if dragiix in Listed then
         UnList(dragiix);
       I := (X - xList) div 42 + (Y - yList) div 32 * nListCol;
@@ -316 +316 @@
         nImp - I - 1);
       MyData.ImpOrder[ctype, I] := dragiix;
-      Include(listed, dragiix);
+      Include(Listed, dragiix);
       Changed := True;
     end
-    else if (dragiix in listed) and (X >= xPool) and (X < xPool + nPoolCol * 42)
+    else if (dragiix in Listed) and (X >= xPool) and (X < xPool + nPoolCol * 42)
       and (Y >= yPool) and (Y < yPool + nPoolRow * 32) then
     begin
@@ -340 +340 @@
 begin
   FillChar(MyData.ImpOrder[ctype], SizeOf(MyData.ImpOrder[ctype]), Byte(-1));
-  listed := [];
+  Listed := [];
   Changed := True;
   SmartUpdateContent;