Changeset 502 for trunk/LocalPlayer/Term.pas

Timestamp:

Dec 23, 2023, 1:50:31 PM (5 months ago)

Author:

chronos

Message:

• Fixed: Non-DPI build.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Term.pas

@@ -1575 +1575 @@
         TestColorDistance := abs(Integer(UnusedTribeFiles.Objects[J])
           shr 16 and $FF - Tribe[I].Color shr 16 and $FF) +
-          abs(Integer(UnusedTribeFiles.Objects[J]) shr 8 and
+          Abs(Integer(UnusedTribeFiles.Objects[J]) shr 8 and
           $FF - Tribe[I].Color shr 8 and $FF) * 3 +
-          abs(Integer(UnusedTribeFiles.Objects[J]) and
+          Abs(Integer(UnusedTribeFiles.Objects[J]) and
           $FF - Tribe[I].Color and $FF) * 2;
         if TestColorDistance < ColorDistance then
@@ -1721 +1721 @@
   AdvIcon[adConscription] := 86 + dGround;
 
-  UnusedTribeFiles := tstringlist.Create;
+  UnusedTribeFiles := TStringList.Create;
   UnusedTribeFiles.Sorted := True;
   TribeNames := tstringlist.Create;