Changeset 283 for trunk/Forms

Timestamp:

Mar 10, 2019, 5:33:06 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to manage nations for each game system.

Location:

trunk/Forms

Files:

• UFormGameSystem.lfm (modified) (2 diffs)
• UFormGameSystem.pas (modified) (7 diffs)
• UFormNation.lfm (added)
• UFormNation.pas (added)
• UFormNations.lfm (added)
• UFormNations.pas (added)

trunk/Forms/UFormGameSystem.lfm

@@ -58 +58 @@
     Top = 16
     Width = 744
-    ActivePage = TabSheetUnits
+    ActivePage = TabSheetNations
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 1
+    TabIndex = 2
     TabOrder = 4
     object TabSheetGeneral: TTabSheet
@@ -94 +94 @@
       Caption = 'Units'
     end
+    object TabSheetNations: TTabSheet
+      Caption = 'Nations'
+    end
   end
   object OpenDialog1: TOpenDialog

trunk/Forms/UFormGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UGameSystem, UFormUnitKinds;
+  ComCtrls, UGameSystem, UFormUnitKinds, UFormNations;
 
 type
@@ -24 +24 @@
     PageControl1: TPageControl;
     SaveDialog1: TSaveDialog;
+    TabSheetNations: TTabSheet;
     TabSheetGeneral: TTabSheet;
     TabSheetUnits: TTabSheet;
@@ -35 +36 @@
     FGameSystem: TGameSystem;
     FormUnitKinds: TFormUnitKinds;
+    FormNations: TFormNations;
     procedure SetGameSystem(AValue: TGameSystem);
   public
@@ -94 +96 @@
   FormUnitKinds.Align := alClient;
   FormUnitKinds.Visible := True;
+  FormNations := TFormNations.Create(nil);
+  FormNations.ManualDock(TabSheetNations, nil, alClient);
+  FormNations.Align := alClient;
+  FormNations.Visible := True;
 end;
 
@@ -99 +105 @@
 begin
   GameSystem := nil;
+  FreeAndNil(FormNations);
   FreeAndNil(FormUnitKinds);
 end;
@@ -110 +117 @@
 begin
   if FGameSystem = AValue then Exit;
-  if Assigned(FGameSystem) then FormUnitKinds.UnitKinds := nil;
+  if Assigned(FGameSystem) then begin
+    FormUnitKinds.UnitKinds := nil;
+    FormNations.Nations := nil;
+  end;
   FGameSystem := AValue;
-  if Assigned(FGameSystem) then FormUnitKinds.UnitKinds := GameSystem.UnitKinds;
+  if Assigned(FGameSystem) then begin
+    FormUnitKinds.UnitKinds := GameSystem.UnitKinds;
+    FormNations.Nations := GameSystem.Nations;
+  end;
 end;
 
@@ -121 +134 @@
   CheckBoxUnitsSplitMerge.Checked := GameSystem.UnitsSplitMerge;
   CheckBoxUnitsMoveImmediately.Checked := GameSystem.UnitsMoveImmediately;
+  FormNations.UpdateList;
+  FormNations.UpdateInterface;
+  FormUnitKinds.UpdateList;
+  FormUnitKinds.UpdateInterface;
 end;