Changeset 544 for trunk

Timestamp:

Apr 16, 2024, 9:47:10 PM (8 months ago)

Author:

chronos

Message:

• Fixed: Correct translation of offered players AIs.

Location:

trunk

Files:

• Brain.pas (modified) (3 diffs)
• Direct.pas (modified) (1 diff)
• Localization/fr/Language.txt (modified) (1 diff)

trunk/Brain.pas

@@ -21 +21 @@
 
   TBrain = class
+  private
+    FName: string;
+    function GetName: string;
+    procedure SetName(AValue: string);
+  public
     FileName: string;
     DLLName: string;
-    Name: string;
+    LookupName: string;
     Credits: string; { filename and full name }
     hm: TLibHandle; { module handle }
@@ -39 +44 @@
     constructor Create;
     destructor Destroy; override;
+    property Name: string read GetName write SetName;
   end;
 
@@ -58 +64 @@
 
 { TBrain }
+
+function TBrain.GetName: string;
+begin
+  if FName <> '' then Result := FName
+    else Result := Phrases.Lookup(LookupName);
+end;
+
+procedure TBrain.SetName(AValue: string);
+begin
+  FName := AValue;
+end;
 
 procedure TBrain.LoadPicture;

trunk/Direct.pas

@@ -175 +175 @@
   GameServer.Init(Notify);
   BrainNoTerm.Client := NoTerm.Client;
-  BrainNoTerm.Name := Phrases.Lookup('AIT');
+  BrainNoTerm.LookupName := 'AIT';
   BrainSuperVirtual.Client := nil;
-  BrainSuperVirtual.Name := Phrases.Lookup('SUPER');
+  BrainSuperVirtual.LookupName := 'SUPER';
   BrainTerm.Client := LocalPlayer.Client;
-  BrainTerm.Name := Phrases.Lookup('HUMAN');
+  BrainTerm.LookupName := 'HUMAN';
   if NetworkEnabled then begin
     BrainNetworkServer.Client := NetworkServer.Client;
-    BrainNetworkServer.Name := Phrases.Lookup('NETWORK_SERVER');
+    BrainNetworkServer.LookupName := 'NETWORK_SERVER';
     BrainNetworkClient.Client := NetworkClient.Client;
-    BrainNetworkClient.Name := Phrases.Lookup('NETWORK_CLIENT');
-  end;
-  BrainRandom.Name := Phrases.Lookup('RANDOMAI');
+    BrainNetworkClient.LookupName := 'NETWORK_CLIENT';
+  end;
+  BrainRandom.LookupName := 'RANDOMAI';
   Canvas.Font.Assign(UniFont[ftNormal]);
   Canvas.Brush.Style := TBrushStyle.bsClear;

trunk/Localization/fr/Language.txt

@@ -341 +341 @@
 #BTN_NO Non
 #BTN_INFO Info
+#BTN_RESET Remettre
 
 'Button Tooltips