Changeset 110 for branches/generator/Forms/UFormMain.pas

Timestamp:

Aug 8, 2017, 11:15:41 PM (7 years ago)

Author:

chronos

Message:

• Added: Rule items can be managed.
• Added: Show BNF syntax on main form.

File:

• branches/generator/Forms/UFormMain.pas (modified) (4 diffs)

branches/generator/Forms/UFormMain.pas

@@ -20 +20 @@
     ActionList1: TActionList;
     MainMenu1: TMainMenu;
+    MemoBNF: TMemo;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -33 +34 @@
     procedure ARulesExecute(Sender: TObject);
     procedure ASaveAsExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -55 +57 @@
 begin
   FormRules.Rules := Core.Rules;
-  FormRules.Show;
+  FormRules.ShowModal;
+  MemoBNF.Lines.Text := Core.Rules.GetBNF;
 end;
 
 procedure TFormMain.ASaveAsExecute(Sender: TObject);
 begin
+  SaveDialog1.FileName := Core.Rules.FileName;
   if SaveDialog1.Execute then begin
     Core.Rules.SaveToXmlFile(SaveDialog1.FileName);
   end;
+end;
+
+procedure TFormMain.FormShow(Sender: TObject);
+begin
+  MemoBNF.Lines.Text := Core.Rules.GetBNF;
 end;
 
@@ -72 +81 @@
 procedure TFormMain.AOpenExecute(Sender: TObject);
 begin
+  OpenDialog1.FileName := Core.Rules.FileName;
   if OpenDialog1.Execute then begin
     Core.Rules.LoadFromXmlFile(OpenDialog1.FileName);