Changeset 289 for trunk/Forms/UFormGameSystem.pas

Timestamp:

Mar 24, 2019, 11:15:07 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to add building kinds to game system.

File:

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

trunk/Forms/UFormGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UGameSystem, UFormUnitKinds, UFormNations;
+  ComCtrls, UGameSystem, UFormUnitKinds, UFormNations, UFormBuildingKinds;
 
 type
@@ -24 +24 @@
     PageControl1: TPageControl;
     SaveDialog1: TSaveDialog;
+    TabSheetBuildings: TTabSheet;
     TabSheetNations: TTabSheet;
     TabSheetGeneral: TTabSheet;
@@ -37 +38 @@
     FormUnitKinds: TFormUnitKinds;
     FormNations: TFormNations;
+    FormBuildingKinds: TFormBuildingKinds;
     procedure SetGameSystem(AValue: TGameSystem);
   public
@@ -100 +102 @@
   FormNations.Align := alClient;
   FormNations.Visible := True;
+  FormBuildingKinds := TFormBuildingKinds.Create(nil);
+  FormBuildingKinds.ManualDock(TabSheetBuildings, nil, alClient);
+  FormBuildingKinds.Align := alClient;
+  FormBuildingKinds.Visible := True;
 end;
 
@@ -107 +113 @@
   FreeAndNil(FormNations);
   FreeAndNil(FormUnitKinds);
+  FreeAndNil(FormBuildingKinds);
 end;
 
@@ -120 +127 @@
     FormUnitKinds.UnitKinds := nil;
     FormNations.Nations := nil;
+    FormBuildingKinds.BuildingKinds := nil;
   end;
   FGameSystem := AValue;
@@ -125 +133 @@
     FormUnitKinds.UnitKinds := GameSystem.UnitKinds;
     FormNations.Nations := GameSystem.Nations;
+    FormBuildingKinds.BuildingKinds := GameSystem.BuildingKinds;
   end;
 end;
@@ -138 +147 @@
   FormUnitKinds.UpdateList;
   FormUnitKinds.UpdateInterface;
+  FormBuildingKinds.UpdateList;
+  FormBuildingKinds.UpdateInterface;
   Caption := ExtractFileName(Self.GameSystem.FileName) + ' - ' + SGameSystem;
 end;