Changeset 544 for trunk/Brain.pas

Timestamp:

Apr 16, 2024, 9:47:10 PM (4 weeks ago)

Author:

chronos

Message:

• Fixed: Correct translation of offered players AIs.

File:

• trunk/Brain.pas (modified) (3 diffs)

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;