Changeset 284 for trunk/Forms/UFormNations.pas

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.

File:

• trunk/Forms/UFormNations.pas (modified) (3 diffs)

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