Changeset 123 for branches/generator/Forms

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.

Location:

branches/generator/Forms

Files:

• UFormMain.pas (modified) (7 diffs)
• UFormRule.pas (modified) (1 diff)
• UFormRuleItem.lfm (modified) (2 diffs)
• UFormRuleItem.pas (modified) (3 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;

branches/generator/Forms/UFormRule.pas

@@ -43 +43 @@
 
 implementation
-
-uses
-  UCore;
 
 {$R *.lfm}

branches/generator/Forms/UFormRuleItem.lfm

@@ -159 +159 @@
   end
   object CheckBoxRepetitive: TCheckBox
-    Left = 336
+    Left = 216
     Height = 24
     Top = 56
@@ -166 +166 @@
     TabOrder = 5
   end
+  object CheckBoxAnyExcept: TCheckBox
+    Left = 400
+    Height = 24
+    Top = 56
+    Width = 97
+    Caption = 'Any except'
+    TabOrder = 6
+  end
 end

branches/generator/Forms/UFormRuleItem.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    CheckBoxAnyExcept: TCheckBox;
     CheckBoxOptional: TCheckBox;
     CheckBoxRepetitive: TCheckBox;
@@ -134 +135 @@
   CheckBoxOptional.Checked := RuleItem.Optional;
   CheckBoxRepetitive.Checked := RuleItem.Repetitive;
+  CheckBoxAnyExcept.Checked := RuleItem.AnyExcept;
   TFormRuleItems(FormRuleItems).LoadData(RuleItem.SubItems);
   UpdateInterface;
@@ -150 +152 @@
   RuleItem.Optional := CheckBoxOptional.Checked;
   RuleItem.Repetitive := CheckBoxRepetitive.Checked;
+  RuleItem.AnyExcept := CheckBoxAnyExcept.Checked;
 end;