Changeset 409 for tags/1.4.0/Building.pas

Timestamp:

Jan 8, 2025, 11:01:27 AM (2 days ago)

Author:

chronos

Message:

Merged revision(s) 403-408 from trunk:

• Added: Cover image.
• Fixed: Crash on cyclic map new move creation.
• Modified: TView class moved into separate unit.
• Added: French translation.
• Fixed: Do not stop running game on Quit action.
• Fixed: Cell cities were not correctly stored the saved game.
• Fixed: ItemList references were loaded by item index instead of item id.
• Fixed: Wrong default map image path initialization.

Location:

tags/1.4.0

Files:

• . (modified) (1 prop)
• Building.pas (modified) (4 diffs)

tags/1.4.0/Building.pas

@@ -39 +39 @@
   public
     Kind: TBuildingKind;
+    Game: TObject; // TGame
+    class function GetFields: TItemFields; override;
+    procedure GetValue(Index: Integer; out Value); override;
+    procedure SetValue(Index: Integer; var Value); override;
+    function GetReferenceList(Index: Integer): TBaseItemList; override;
     procedure Assign(Source: TItem); override;
     property MapCell: TObject read FMapCell write SetMapCell; // TMapCell;
@@ -47 +52 @@
   TBuildings = class(TItemList<TBuilding>)
     Game: TObject; // TGame;
+    function CreateItem(Name: string = ''): TBuilding; override;
+    procedure Assign(Source: TItemList<TBuilding>); override;
   end;
 
@@ -64 +71 @@
 
 uses
-  Map;
+  Map, Game;
 
 { TBuilding }
@@ -80 +87 @@
 end;
 
+class function TBuilding.GetFields: TItemFields;
+var
+  Field: TItemField;
+begin
+  Result := inherited;
+  Field := Result.AddField(2, 'Kind', SBuildingKind, dtReference);
+end;
+
+procedure TBuilding.GetValue(Index: Integer; out Value);
+begin
+  if Index = 1 then string(Value) := Name
+  else if Index = 2 then TBuildingKind(Value) := Kind
+  else inherited;
+end;
+
+procedure TBuilding.SetValue(Index: Integer; var Value);
+begin
+  if Index = 1 then Name := string(Value)
+  else if Index = 2 then Kind := TBuildingKind(Value)
+  else inherited;
+end;
+
+function TBuilding.GetReferenceList(Index: Integer): TBaseItemList;
+begin
+  if Index = 2 then Result := TGame(Game).GameSystem.BuildingKinds.BaseItemList
+  else Result := nil;
+end;
+
 procedure TBuilding.Assign(Source: TItem);
 begin
   inherited;
   Kind := TBuilding(Source).Kind;
+end;
+
+{ TBuildings }
+
+function TBuildings.CreateItem(Name: string): TBuilding;
+begin
+  Result := inherited;
+  Result.Game := Game;
+end;
+
+procedure TBuildings.Assign(Source: TItemList<TBuilding>);
+var
+  I: Integer;
+begin
+  inherited;
+  for I := 0 to Count - 1 do
+    Items[I].Game := Game;
 end;