Changeset 218

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.

Location:

trunk/Forms

Files:

• UFormNew.lfm (modified) (4 diffs)
• UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormNew.lfm

@@ -39 +39 @@
         OnChange = RadioButtonModeLocalChange
         TabOrder = 0
+        TabStop = True
       end
       object RadioButtonModeNetworkServer: TRadioButton
@@ -173 +174 @@
             Width = 790
           end>
+        MultiSelect = True
         OwnerData = True
         PopupMenu = PopupMenuPlayers
@@ -557 +559 @@
         end
         object TabSheetCaptureCells: TTabSheet
-          ClientHeight = 72
-          ClientWidth = 714
+          ClientHeight = 74
+          ClientWidth = 716
           object Label14: TLabel
             Left = 8
@@ -579 +581 @@
         end
         object TabSheetStayAliveTurns: TTabSheet
-          ClientHeight = 72
-          ClientWidth = 714
+          ClientHeight = 74
+          ClientWidth = 716
           object Label13: TLabel
             Left = 8

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;