Changeset 122 for branches/generator/Forms/UFormRules.pas

Timestamp:

Nov 29, 2017, 2:03:17 PM (7 years ago)

Author:

chronos

Message:

• Added: New rule item type "Terminal range" to hold interval of characters.
• Fixed: Removel of selected items in a list was not working correctly.

File:

• branches/generator/Forms/UFormRules.pas (modified) (1 diff)

branches/generator/Forms/UFormRules.pas

@@ -116 +116 @@
 procedure TFormRules.ARemoveExecute(Sender: TObject);
 var
-  Item: TListItem;
-begin
-  for Item in ListView1.Items do
-  if Item.Selected then
-    Rules.Remove(TRule(Item.Data));
+  I: Integer;
+begin
+  if MessageDlg('Remove item(s)', 'Do you want to remove selected item(s)?',
+    mtConfirmation, mbYesNo, 0) = mrYes then
+  for I := ListView1.Items.Count - 1 downto 0 do
+  if ListView1.Items[I].Selected then
+    Rules.Remove(TRule(ListView1.Items[I].Data));
   ReloadList;
 end;