Changeset 41 for trunk/Forms/UFormNew.pas

Timestamp:

Mar 12, 2014, 8:40:53 PM (11 years ago)

Author:

chronos

Message:

• Added: Key press and mouse double click in new game player list.

File:

• trunk/Forms/UFormNew.pas (modified) (7 diffs)

trunk/Forms/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Spin, ExtCtrls, UGame;
+  ComCtrls, Spin, ExtCtrls, ActnList, UGame;
 
 type
@@ -14 +14 @@
 
   TFormNew = class(TForm)
-    ButtonPlayerAdd: TButton;
+    APlayerAdd: TAction;
+    APlayerRemove: TAction;
+    APlayerModify: TAction;
+    ActionList1: TActionList;
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    ButtonPlayerAdd: TButton;
+    ButtonPlayerModify: TButton;
     ButtonPlayerRemove: TButton;
-    ButtonPlayerModify: TButton;
+    CheckBoxCity: TCheckBox;
     CheckBoxVoid: TCheckBox;
-    CheckBoxCity: TCheckBox;
     ComboBoxGridType: TComboBox;
     Label1: TLabel;
@@ -28 +32 @@
     Label5: TLabel;
     ListView1: TListView;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    RadioGroupGrowAmount: TRadioGroup;
     RadioGroupGrowCells: TRadioGroup;
-    RadioGroupGrowAmount: TRadioGroup;
-    SpinEditVoidPercent: TSpinEdit;
+    SpinEditCityPercent: TSpinEdit;
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
-    SpinEditCityPercent: TSpinEdit;
+    SpinEditVoidPercent: TSpinEdit;
+    Splitter1: TSplitter;
     TrackBarSizeX: TTrackBar;
     TrackBarSizeY: TTrackBar;
-    procedure ButtonPlayerAddClick(Sender: TObject);
-    procedure ButtonPlayerModifyChangeBounds(Sender: TObject);
-    procedure ButtonPlayerModifyClick(Sender: TObject);
-    procedure ButtonPlayerRemoveClick(Sender: TObject);
+    procedure APlayerAddExecute(Sender: TObject);
+    procedure APlayerModifyExecute(Sender: TObject);
+    procedure APlayerRemoveExecute(Sender: TObject);
     procedure CheckBoxCityChange(Sender: TObject);
     procedure CheckBoxVoidChange(Sender: TObject);
@@ -46 +52 @@
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1KeyPress(Sender: TObject; var Key: char);
+    procedure ListView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+      );
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -84 +94 @@
 end;
 
+procedure TFormNew.ListView1DblClick(Sender: TObject);
+begin
+  APlayerModify.Execute;
+end;
+
+procedure TFormNew.ListView1KeyPress(Sender: TObject; var Key: char);
+begin
+  if (Key = #13) then APlayerModify.Execute;
+end;
+
+procedure TFormNew.ListView1KeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = 45 then APlayerAdd.Execute;
+  if Key = 46 then APlayerRemove.Execute;
+end;
+
 procedure TFormNew.ListView1SelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
@@ -116 +143 @@
   ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected);
   ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount;
-  ButtonPlayerModify.Enabled := Assigned(ListView1.Selected);
+  APlayerModify.Enabled := Assigned(ListView1.Selected);
 end;
 
@@ -129 +156 @@
 end;
 
-procedure TFormNew.ButtonPlayerRemoveClick(Sender: TObject);
-begin
-  if Assigned(ListView1.Selected) then
+procedure TFormNew.CheckBoxCityChange(Sender: TObject);
+begin
+  SpinEditCityPercent.Enabled := CheckBoxCity.Checked;
+end;
+
+procedure TFormNew.CheckBoxVoidChange(Sender: TObject);
+begin
+  SpinEditVoidPercent.Enabled := CheckBoxVoid.Checked;
+end;
+
+procedure TFormNew.APlayerModifyExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    FormPlayer.Load(TPlayer(ListView1.Selected.Data));
+    if FormPlayer.ShowModal = mrOk then begin
+      FormPlayer.Save(TPlayer(ListView1.Selected.Data));
+      ReloadView;
+    end;
+  end;
+end;
+
+procedure TFormNew.APlayerRemoveExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
     Players.Remove(ListView1.Selected.Data);
-  ReloadView;
-end;
-
-procedure TFormNew.CheckBoxCityChange(Sender: TObject);
-begin
-  SpinEditCityPercent.Enabled := CheckBoxCity.Checked;
-end;
-
-procedure TFormNew.CheckBoxVoidChange(Sender: TObject);
-begin
-  SpinEditVoidPercent.Enabled := CheckBoxVoid.Checked;
-end;
-
-procedure TFormNew.ButtonPlayerAddClick(Sender: TObject);
+    ReloadView;
+  end;
+end;
+
+procedure TFormNew.APlayerAddExecute(Sender: TObject);
 var
   NewPlayer: TPlayer;
 begin
-  NewPlayer := TPlayer.Create;
-  NewPlayer.Name := 'Player ' + IntToStr(Players.Count + 1);
-  NewPlayer.Color := PlayerColors[Players.Count];
-  NewPlayer.Mode := pmComputer;
-  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));
+  if Players.Count <= (MaxPlayerCount - 1) then begin
+    NewPlayer := TPlayer.Create;
+    NewPlayer.Name := 'Player ' + IntToStr(Players.Count + 1);
+    NewPlayer.Color := PlayerColors[Players.Count];
+    NewPlayer.Mode := pmComputer;
+    Players.Add(NewPlayer);
+    ReloadView;
+  end;
 end;