Changeset 290 for trunk/Forms/UFormGameSystem.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/Forms/UFormGameSystem.pas (modified) (4 diffs)

trunk/Forms/UFormGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UGameSystem, UFormUnitKinds, UFormNations, UFormBuildingKinds;
+  ComCtrls, UGameSystem, UFormUnitKinds,
+  UFormList;
 
 type
@@ -37 +38 @@
     FGameSystem: TGameSystem;
     FormUnitKinds: TFormUnitKinds;
-    FormNations: TFormNations;
-    FormBuildingKinds: TFormBuildingKinds;
+    FormNations: TFormList;
+    FormBuildingKinds: TFormList;
     procedure SetGameSystem(AValue: TGameSystem);
   public
@@ -98 +99 @@
   FormUnitKinds.Align := alClient;
   FormUnitKinds.Visible := True;
-  FormNations := TFormNations.Create(nil);
+  FormNations := TFormList.Create(nil);
   FormNations.ManualDock(TabSheetNations, nil, alClient);
   FormNations.Align := alClient;
   FormNations.Visible := True;
-  FormBuildingKinds := TFormBuildingKinds.Create(nil);
+  FormBuildingKinds := TFormList.Create(nil);
   FormBuildingKinds.ManualDock(TabSheetBuildings, nil, alClient);
   FormBuildingKinds.Align := alClient;
@@ -126 +127 @@
   if Assigned(FGameSystem) then begin
     FormUnitKinds.UnitKinds := nil;
-    FormNations.Nations := nil;
-    FormBuildingKinds.BuildingKinds := nil;
+    FormNations.List := nil;
+    FormBuildingKinds.List := nil;
   end;
   FGameSystem := AValue;
   if Assigned(FGameSystem) then begin
     FormUnitKinds.UnitKinds := GameSystem.UnitKinds;
-    FormNations.Nations := GameSystem.Nations;
-    FormBuildingKinds.BuildingKinds := GameSystem.BuildingKinds;
+    FormNations.List := GameSystem.Nations;
+    FormBuildingKinds.List := GameSystem.BuildingKinds;
   end;
 end;