Changeset 285 for trunk/UPlayer.pas

Timestamp:

Mar 10, 2019, 11:57:03 PM (6 years ago)

Author:

chronos

Message:

• Modified: More work on item class with defined form fields.

File:

• trunk/UPlayer.pas (modified) (7 diffs)

trunk/UPlayer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Graphics, UMap, DOM, fgl, XMLConf, UXMLUtils, Math,
-  UGeometry, UUnit, UNation;
+  UGeometry, UUnit, UNation, UItemList;
 
 type
@@ -92 +92 @@
   { TPlayer }
 
-  TPlayer = class
+  TPlayer = class(TItem)
   private
     FGame: TObject; //TGame;
@@ -104 +104 @@
     procedure SetMode(AValue: TPlayerMode);
   public
-    Id: Integer;
-    Name: string;
     Color: TColor;
     TotalUnits: Integer;
@@ -121 +119 @@
     Units: TUnits;
     Nation: TNation;
+    function GetFields: TItemFields; override;
+    procedure GetValue(Index: Integer; out Value); override;
+    procedure SetValue(Index: Integer; var Value); override;
+    class function GetClassSysName: string; override;
     function IsAllowedMoveTarget(CellFrom, CellTo: TPlayerCell): Boolean;
     procedure ReduceMovesPower;
@@ -135 +137 @@
     function IsAlive: Boolean;
     procedure Clear;
-    procedure LoadFromNode(Node: TDOMNode);
-    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode); override;
+    procedure SaveToNode(Node: TDOMNode); override;
     constructor Create;
     destructor Destroy; override;
-    procedure Assign(Source: TPlayer);
+    procedure Assign(Source: TItem); override;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
@@ -880 +882 @@
 end;
 
-procedure TPlayer.Assign(Source: TPlayer);
+procedure TPlayer.Assign(Source: TItem);
 begin
   Id := Source.Id;
   Name := Source.Name;
-  Color := Source.Color;
-  Mode := Source.Mode;
-  Game := Source.Game;
-  TotalCells := Source.TotalCells;
-  TotalUnits := Source.TotalUnits;
-  TotalCities := Source.TotalCities;
-  TotalDiscovered := Source.TotalDiscovered;
-  TotalWinObjectiveCells := Source.TotalWinObjectiveCells;
-  StartUnits := Source.StartUnits;
-  StartCell := Source.StartCell;
-  Agressivity := Source.Agressivity;
-  Defensive := Source.Defensive;
-  Nation := Source.Nation;
+  Color := TPlayer(Source).Color;
+  Mode := TPlayer(Source).Mode;
+  Game := TPlayer(Source).Game;
+  TotalCells := TPlayer(Source).TotalCells;
+  TotalUnits := TPlayer(Source).TotalUnits;
+  TotalCities := TPlayer(Source).TotalCities;
+  TotalDiscovered := TPlayer(Source).TotalDiscovered;
+  TotalWinObjectiveCells := TPlayer(Source).TotalWinObjectiveCells;
+  StartUnits := TPlayer(Source).StartUnits;
+  StartCell := TPlayer(Source).StartCell;
+  Agressivity := TPlayer(Source).Agressivity;
+  Defensive := TPlayer(Source).Defensive;
+  Nation := TPlayer(Source).Nation;
 end;
 
@@ -1261 +1263 @@
   if FMode = AValue then Exit;
   FMode := AValue;
+end;
+
+function TPlayer.GetFields: TItemFields;
+begin
+  Result := inherited;
+  Result.AddField(2, 'Color', 'Color', dtColor);
+  Result.AddField(3, 'Mode', 'Mode', dtInteger);
+  Result.AddField(4, 'StartUnits', 'StartUnits', dtInteger);
+  Result.AddField(5, 'Agressivity', 'Agressivity', dtInteger);
+  Result.AddField(6, 'Defensive', 'Defensive', dtBoolean);
+end;
+
+procedure TPlayer.GetValue(Index: Integer; out Value);
+begin
+  inherited GetValue(Index, Value);
+end;
+
+procedure TPlayer.SetValue(Index: Integer; var Value);
+begin
+  inherited SetValue(Index, Value);
+end;
+
+class function TPlayer.GetClassSysName: string;
+begin
+  Result := 'Player';
 end;