Changeset 290 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormBuildingKind.lfm (deleted)
• UFormBuildingKind.pas (deleted)
• UFormBuildingKinds.lfm (deleted)
• UFormBuildingKinds.pas (deleted)
• UFormGameSystem.pas (modified) (4 diffs)
• UFormItem.lfm (added)
• UFormItem.pas (added)
• UFormList.lfm (added)
• UFormList.pas (added)
• UFormNation.lfm (deleted)
• UFormNation.pas (deleted)
• UFormNations.lfm (deleted)
• UFormNations.pas (deleted)

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;