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

Timestamp:

Nov 29, 2017, 3:45:03 PM (7 years ago)

Author:

chronos

Message:

• Added: New rule item option to match any character except given one.
• Added: Show file name in main window title.

File:

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

branches/generator/Forms/UFormMain.pas

@@ -52 +52 @@
   private
     procedure ReloadMemo;
+    procedure UpdateInterface;
   public
     { public declarations }
@@ -85 +86 @@
   if SaveDialog1.Execute then begin
     Core.Grammer.SaveToXmlFile(SaveDialog1.FileName);
+    UpdateInterface;
   end;
 end;
@@ -91 +93 @@
 begin
   Core.Grammer.SaveToXmlFile(Core.Grammer.FileName);
+  UpdateInterface;
 end;
 
@@ -102 +105 @@
   Core.PersistentForm1.Load(Self, True);
   ReloadMemo;
+  UpdateInterface;
 end;
 
@@ -107 +111 @@
 begin
   MemoBNF.Lines.Text := Core.Grammer.GetString;
+end;
+
+procedure TFormMain.UpdateInterface;
+begin
+  Caption := Core.Grammer.FileName + ' - ' + Application.Title;
 end;
 
@@ -118 +127 @@
   Core.Grammer.Rules.Clear;
   ReloadMemo;
+  UpdateInterface;
 end;
 
@@ -131 +141 @@
     Core.Grammer.LoadFromXmlFile(OpenDialog1.FileName);
     ReloadMemo;
+    UpdateInterface;
   end;
 end;