Changeset 126 for branches/generator/Forms/UFormGrammer.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/UFormGrammer.pas (modified) (1 diff)

branches/generator/Forms/UFormGrammer.pas

@@ -62 +62 @@
 procedure TFormGrammer.SaveData(Grammer: TGrammer);
 begin
+  Grammer.Modified := True;
   if ComboBoxStartRule.ItemIndex <> -1 then
     Grammer.TopRule := TRule(ComboBoxStartRule.Items.Objects[ComboBoxStartRule.ItemIndex])