Changeset 136 for branches/generator/Forms/UFormRuleItem.pas

Timestamp:

Dec 26, 2017, 6:59:40 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for whitespaces in And rule.
• Added: Terminals can be specified as escaped strings with slash.

File:

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

branches/generator/Forms/UFormRuleItem.pas

@@ -17 +17 @@
     ButtonOk: TButton;
     CheckBoxAnyExcept: TCheckBox;
+    CheckBoxEscapedString: TCheckBox;
     CheckBoxOptional: TCheckBox;
     CheckBoxRepetitive: TCheckBox;
@@ -123 +124 @@
   ListBox1.Visible := RuleItem.RuleItemType = ritNonTerminal;
   LabelNonTerminal.Visible := RuleItem.RuleItemType = ritNonTerminal;
+  CheckBoxOptional.Enabled := RuleItem.ParentRule.Items.RuleType = rtAnd;
+  CheckBoxRepetitive.Enabled := RuleItem.ParentRule.Items.RuleType = rtAnd;
+  CheckBoxEscapedString.Enabled := (RuleItem.RuleItemType = ritTerminal) or
+    (RuleItem.RuleItemType = ritTerminalRange);
 end;
 
@@ -138 +143 @@
   CheckBoxAnyExcept.Checked := RuleItem.AnyExcept;
   TFormRuleItems(FormRuleItems).LoadData(RuleItem.SubItems);
+  CheckBoxEscapedString.Checked := RuleItem.EscapedStrings;
   UpdateInterface;
 end;
@@ -155 +161 @@
   RuleItem.Repetitive := CheckBoxRepetitive.Checked;
   RuleItem.AnyExcept := CheckBoxAnyExcept.Checked;
+  RuleItem.EscapedStrings := CheckBoxEscapedString.Checked;
 end;