Changeset 291 for trunk/Forms/UFormGameSystem.pas

Timestamp:

Mar 26, 2019, 1:16:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: UnitKind list and items converted to general item list.

File:

• trunk/Forms/UFormGameSystem.pas (modified) (5 diffs)

trunk/Forms/UFormGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UGameSystem, UFormUnitKinds,
-  UFormList;
+  ComCtrls, UGameSystem, UFormList;
 
 type
@@ -37 +36 @@
   private
     FGameSystem: TGameSystem;
-    FormUnitKinds: TFormUnitKinds;
+    FormUnitKinds: TFormList;
     FormNations: TFormList;
     FormBuildingKinds: TFormList;
@@ -95 +94 @@
   Core.ThemeManager1.UseTheme(Self);
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
-  FormUnitKinds := TFormUnitKinds.Create(nil);
+  FormUnitKinds := TFormList.Create(nil);
   FormUnitKinds.ManualDock(TabSheetUnits, nil, alClient);
   FormUnitKinds.Align := alClient;
@@ -126 +125 @@
   if FGameSystem = AValue then Exit;
   if Assigned(FGameSystem) then begin
-    FormUnitKinds.UnitKinds := nil;
+    FormUnitKinds.List := nil;
     FormNations.List := nil;
     FormBuildingKinds.List := nil;
@@ -132 +131 @@
   FGameSystem := AValue;
   if Assigned(FGameSystem) then begin
-    FormUnitKinds.UnitKinds := GameSystem.UnitKinds;
+    FormUnitKinds.List := GameSystem.UnitKinds;
     FormNations.List := GameSystem.Nations;
     FormBuildingKinds.List := GameSystem.BuildingKinds;