Changeset 284 for trunk/Forms

Timestamp:

Mar 10, 2019, 6:19:51 PM (6 years ago)

Author:

chronos

Message:

• Modified: TNation and TNations classes now uses generic TItem and TItemList classes.
• Added: Translation files for LCL.

Location:

trunk/Forms

Files:

• UFormGameSystem.pas (modified) (1 diff)
• UFormNation.pas (modified) (3 diffs)
• UFormNations.lfm (modified) (1 diff)
• UFormNations.pas (modified) (3 diffs)
• UFormPlayers.pas (modified) (2 diffs)
• UFormUnitKinds.pas (modified) (1 diff)

trunk/Forms/UFormGameSystem.pas

@@ -138 +138 @@
   FormUnitKinds.UpdateList;
   FormUnitKinds.UpdateInterface;
+  Caption := ExtractFileName(Self.GameSystem.FileName) + ' - ' + SGameSystem;
 end;
 

trunk/Forms/UFormNation.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin, ColorBox, UNation;
+  ColorBox, UNation;
 
 type
@@ -30 +30 @@
   FormNation: TFormNation;
 
+
 implementation
 
@@ -40 +41 @@
   EditName.Text := Nation.Name;
   ColorBoxColor.Selected := Nation.Color;
+  Caption := Nation.Name + ' - ' + SNation;
 end;
 

trunk/Forms/UFormNations.lfm

@@ -95 +95 @@
       Caption = 'Clone'
       ImageIndex = 17
+      OnExecute = ACloneExecute
     end
     object ASelectAll: TAction

trunk/Forms/UFormNations.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UGameSystem, UNation;
+  ActnList, Menus, UNation;
 
 type
@@ -33 +33 @@
     ToolButton4: TToolButton;
     procedure AAddExecute(Sender: TObject);
+    procedure ACloneExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
@@ -137 +138 @@
 end;
 
+procedure TFormNations.ACloneExecute(Sender: TObject);
+var
+  TempEntry: TNation;
+begin
+  if Assigned(ListView1.Selected) then
+  with TNation(ListView1.Selected.Data) do begin
+    TempEntry := TNation.Create;
+    TempEntry.Assign(TNation(ListView1.Selected.Data));
+    FormNation := TFormNation.Create(Self);
+    try
+      TempEntry.Name := Nations.GetNextAvailableName(TempEntry.Name);
+      FormNation.Load(TempEntry);
+      if FormNation.ShowModal = mrOk then begin
+        FormNation.Save(TempEntry);
+        Nations.Add(TempEntry);
+        TempEntry := nil;
+        UpdateList;
+        UpdateInterface;
+      end;
+    finally
+      FreeAndNil(FormNation);
+    end;
+    TempEntry.Free;
+  end;
+end;
+
 procedure TFormNations.ASelectAllExecute(Sender: TObject);
 var

trunk/Forms/UFormPlayers.pas

@@ -69 +69 @@
 
 uses
-  UCore, UFormPlayer, UGame;
+  UCore, UFormPlayer, UGame, UNation;
 
 resourcestring
@@ -131 +131 @@
     TempEntry.Id := Players.GetNewId;
     TempEntry.Name := SPlayer + ' ' + IntToStr(TempEntry.Id);
-    TempEntry.Nation := Core.Game.GameSystem.Nations.First;
+    TempEntry.Nation := TNation(Core.Game.GameSystem.Nations.First);
     TempEntry.Color := TempEntry.Nation.Color;
     TempEntry.Mode := pmComputer;
     TempEntry.Agressivity := caMedium;
+    TempEntry.Game := Players.Game;
     FormPlayer.LoadData(TempEntry);
     if FormPlayer.ShowModal = mrOk then begin

trunk/Forms/UFormUnitKinds.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UGameSystem, UUnit;
+  ActnList, Menus, UUnit;
 
 type