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

Timestamp:

Nov 30, 2017, 12:02:32 AM (8 years ago)

Author:

chronos

Message:

• Added: New project Close action.
• Added: Track project Modified flag and offer project save if modified project is closed.
• Added: Remember last opened project file.

File:

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

branches/generator/Forms/UFormRuleItems.pas

@@ -130 +130 @@
     mtConfirmation, mbYesNo, 0) = mrYes then
   for I := ListView1.Items.Count - 1 downto 0 do
-  if ListView1.Items[I].Selected then
+  if ListView1.Items[I].Selected then begin
     RuleItems.ParentRule.Items.Remove(TRuleItem(ListView1.Items[I].Data));
+    RuleItems.Grammer.Modified := True;
+  end;
   ReloadList;
 end;