Changeset 218 for trunk/Forms/UFormNew.pas

Timestamp:

Jun 6, 2018, 12:23:25 AM (6 years ago)

Author:

chronos

Message:

• Modified: Allow multiselect and removal of players in new game dialog.

File:

• trunk/Forms/UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormNew.pas

@@ -410 +410 @@
 
 procedure TFormNew.APlayerRemoveExecute(Sender: TObject);
-begin
-  if Assigned(ListViewPlayers.Selected) then begin
-    Players.Remove(ListViewPlayers.Selected.Data);
-    ReloadView;
-  end;
+var
+  I: Integer;
+begin
+  for I := ListViewPlayers.Items.Count - 1 downto 0 do
+  if ListViewPlayers.Items[I].Selected then begin
+    Players.Remove(ListViewPlayers.Items[I].Data);
+  end;
+  ReloadView;
 end;