Changeset 29 for trunk/UFormNew.pas
- Timestamp:
- Mar 3, 2014, 11:17:23 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormNew.pas
r28 r29 18 18 ButtonOk: TButton; 19 19 ButtonPlayerRemove: TButton; 20 ButtonPlayerModify: TButton; 20 21 CheckBoxVoid: TCheckBox; 21 22 Label1: TLabel; … … 25 26 SpinEditMapSizeY: TSpinEdit; 26 27 procedure ButtonPlayerAddClick(Sender: TObject); 28 procedure ButtonPlayerModifyChangeBounds(Sender: TObject); 29 procedure ButtonPlayerModifyClick(Sender: TObject); 27 30 procedure ButtonPlayerRemoveClick(Sender: TObject); 28 31 procedure FormCreate(Sender: TObject); … … 46 49 47 50 {$R *.lfm} 51 52 uses 53 UFormPlayer; 48 54 49 55 { TFormNew } … … 73 79 ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected); 74 80 ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount; 81 ButtonPlayerModify.Enabled := Assigned(ListView1.Selected); 75 82 end; 76 83 … … 101 108 Players.Add(NewPlayer); 102 109 ReloadView; 110 end; 111 112 procedure TFormNew.ButtonPlayerModifyChangeBounds(Sender: TObject); 113 begin 114 115 end; 116 117 procedure TFormNew.ButtonPlayerModifyClick(Sender: TObject); 118 begin 119 FormPlayer.Load(TPlayer(ListView1.Selected.Data)); 120 if FormPlayer.ShowModal = mrOk then 121 FormPlayer.Save(TPlayer(ListView1.Selected.Data)); 103 122 end; 104 123
Note:
See TracChangeset
for help on using the changeset viewer.