Changeset 290 for trunk/UNation.pas

Timestamp:

Mar 25, 2019, 12:51:41 AM (6 years ago)

Author:

chronos

Message:

• Modified: List and item forms for BuildingKind and Nation converted to generic forms.

File:

• trunk/UNation.pas (modified) (4 diffs)

trunk/UNation.pas

@@ -14 +14 @@
   TNation = class(TItem)
     Color: TColor;
-    function GetFields: TItemFields; override;
+    class function GetFields: TItemFields; override;
     procedure GetValue(Index: Integer; out Value); override;
     procedure SetValue(Index: Integer; var Value); override;
     class function GetClassSysName: string; override;
+    class function GetClassName: string; override;
   end;
 
@@ -28 +29 @@
 resourcestring
   SNation = 'Nation';
+  SColor = 'Color';
 
 
@@ -37 +39 @@
 { TNation }
 
-function TNation.GetFields: TItemFields;
+class function TNation.GetFields: TItemFields;
 begin
   Result := inherited;
-  Result.AddField(2, 'Color', 'Color', dtColor);
+  Result.AddField(2, 'Color', SColor, dtColor);
 end;
 
@@ -62 +64 @@
 end;
 
+class function TNation.GetClassName: string;
+begin
+  Result := SNation;
+end;
+
 { TNations }