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

Timestamp:

Nov 30, 2017, 12:02:32 AM (7 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/UFormRules.pas (modified) (1 diff)

branches/generator/Forms/UFormRules.pas

@@ -121 +121 @@
     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
+    Rules.Grammer.Modified := True;
     Rules.Remove(TRule(ListView1.Items[I].Data));
+  end;
   ReloadList;
 end;