Changeset 457 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Nov 27, 2023, 12:10:57 AM (12 months ago)

Author:

chronos

Message:

• Modified: Use enumeration type in Help unit for better readability.
• Fixed: Corruption external help image referenced with incorrect file name case.
• Fixed: Chinese translation converted to UTF-8.
• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Tribes.pas

@@ -72 +72 @@
 function CityName(Founder: Integer): string;
 function ModelCode(const ModelInfo: TModelInfo): Integer;
-procedure FindStdModelPicture(Code: Integer; var pix: Integer; var Name: string);
+procedure FindStdModelPicture(Code: Integer; out pix: Integer; out Name: string);
 function GetTribeInfo(FileName: string; var Name: string; var Color: TColor): Boolean;
 procedure FindPosition(HGr: TGraphicSet; X, Y, xmax, ymax: Integer; Mark: TColor;
@@ -235 +235 @@
 end;
 
-procedure FindStdModelPicture(Code: Integer; var pix: Integer; var Name: string);
+procedure FindStdModelPicture(Code: Integer; out pix: Integer; out Name: string);
 var
   I: Integer;