Changeset 29 for trunk/UFormNew.pas

Timestamp:

Mar 3, 2014, 11:17:23 PM (10 years ago)

Author:

chronos

Message:

• Added: Player customize dialog window.
• Fixed: Rearm once set move count from predefined repeat move count.

File:

• trunk/UFormNew.pas (modified) (5 diffs)

trunk/UFormNew.pas

@@ -18 +18 @@
     ButtonOk: TButton;
     ButtonPlayerRemove: TButton;
+    ButtonPlayerModify: TButton;
     CheckBoxVoid: TCheckBox;
     Label1: TLabel;
@@ -25 +26 @@
     SpinEditMapSizeY: TSpinEdit;
     procedure ButtonPlayerAddClick(Sender: TObject);
+    procedure ButtonPlayerModifyChangeBounds(Sender: TObject);
+    procedure ButtonPlayerModifyClick(Sender: TObject);
     procedure ButtonPlayerRemoveClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -46 +49 @@
 
 {$R *.lfm}
+
+uses
+  UFormPlayer;
 
 { TFormNew }
@@ -73 +79 @@
   ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected);
   ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount;
+  ButtonPlayerModify.Enabled := Assigned(ListView1.Selected);
 end;
 
@@ -101 +108 @@
   Players.Add(NewPlayer);
   ReloadView;
+end;
+
+procedure TFormNew.ButtonPlayerModifyChangeBounds(Sender: TObject);
+begin
+
+end;
+
+procedure TFormNew.ButtonPlayerModifyClick(Sender: TObject);
+begin
+  FormPlayer.Load(TPlayer(ListView1.Selected.Data));
+  if FormPlayer.ShowModal = mrOk then
+    FormPlayer.Save(TPlayer(ListView1.Selected.Data));
 end;