Changeset 502 for trunk/LocalPlayer

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/LocalPlayer

Files:

• Help.pas (modified) (1 diff)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Help.pas

@@ -1918 +1918 @@
       LineFeed;
 
-    //Self.Show;
     ScrollBar.Init(Count - 1, InnerHeight div 24);
     ScrollBar.SetPos(sbPos);

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;