Changeset 128 for branches/generator/Forms/UFormRuleItems.pas

Timestamp:

Nov 30, 2017, 6:33:17 PM (7 years ago)

Author:

chronos

Message:

• Modified: Show char length of rule.

File:

• branches/generator/Forms/UFormRuleItems.pas (modified) (2 diffs)

branches/generator/Forms/UFormRuleItems.pas

@@ -111 +111 @@
 procedure TFormRuleItems.AMoveDownExecute(Sender: TObject);
 begin
-  RuleItems.ParentRule.Items.Move(ListView1.Selected.Index, ListView1.Selected.Index + 1);
-  ListView1.ItemIndex := ListView1.Selected.Index + 1;
-  ReloadList;
+  if Assigned(ListView1.Selected) then begin
+    RuleItems.Move(ListView1.Selected.Index, ListView1.Selected.Index + 1);
+    ListView1.ItemIndex := ListView1.Selected.Index + 1;
+    ReloadList;
+  end;
 end;
 
 procedure TFormRuleItems.AMoveUpExecute(Sender: TObject);
 begin
-  RuleItems.ParentRule.Items.Move(ListView1.Selected.Index, ListView1.Selected.Index - 1);
-  ListView1.ItemIndex := ListView1.Selected.Index - 1;
-  ReloadList;
+  if Assigned(ListView1.Selected) then begin
+    RuleItems.Move(ListView1.Selected.Index, ListView1.Selected.Index - 1);
+    ListView1.ItemIndex := ListView1.Selected.Index - 1;
+    ReloadList;
+  end;
 end;
 
@@ -131 +135 @@
   for I := ListView1.Items.Count - 1 downto 0 do
   if ListView1.Items[I].Selected then begin
-    RuleItems.ParentRule.Items.Remove(TRuleItem(ListView1.Items[I].Data));
+    RuleItems.Remove(TRuleItem(ListView1.Items[I].Data));
     RuleItems.Grammer.Modified := True;
   end;