Changeset 289 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormBuildingKind.lfm (added)
• UFormBuildingKind.pas (added)
• UFormBuildingKinds.lfm (added)
• UFormBuildingKinds.pas (added)
• UFormGameSystem.lfm (modified) (3 diffs)
• UFormGameSystem.pas (modified) (8 diffs)

trunk/Forms/UFormGameSystem.lfm

@@ -12 +12 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.8.4.0'
+  LCLVersion = '2.0.0.4'
   object ButtonSave: TButton
     Left = 160
@@ -58 +58 @@
     Top = 16
     Width = 744
-    ActivePage = TabSheetNations
+    ActivePage = TabSheetBuildings
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 2
+    TabIndex = 3
     TabOrder = 4
     object TabSheetGeneral: TTabSheet
@@ -97 +97 @@
       Caption = 'Nations'
     end
+    object TabSheetBuildings: TTabSheet
+      Caption = 'Buildings'
+    end
   end
   object OpenDialog1: TOpenDialog

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;