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

Timestamp:

Aug 9, 2017, 12:09:47 AM (7 years ago)

Author:

chronos

Message:

• Added: RuleItem can be selected as terminal or non-terminal node.

File:

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

branches/generator/Forms/UFormRuleItem.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    ComboBoxType: TComboBox;
+    ComboBoxNonTerminal: TComboBox;
     EditName: TEdit;
-    Label1: TLabel;
+    LabelTerminal: TLabel;
+    Label2: TLabel;
+    LabelNonTerminal: TLabel;
+    procedure ComboBoxTypeChange(Sender: TObject);
   private
-    { private declarations }
+    procedure ReloadNonTerminals(Grammer: TGrammer);
   public
+    RuleItem: TRuleItem;
+    procedure UpdateInterface;
     procedure LoadData(RuleItem: TRuleItem);
     procedure SaveData(RuleItem: TRuleItem);
@@ -34 +41 @@
 { TFormRuleItem }
 
+procedure TFormRuleItem.ComboBoxTypeChange(Sender: TObject);
+begin
+  RuleItem.RuleItemType := TRuleItemType(ComboBoxType.ItemIndex);
+  UpdateInterface;
+end;
+
+procedure TFormRuleItem.ReloadNonTerminals(Grammer: TGrammer);
+var
+  Rule: TRule;
+begin
+  ComboBoxNonTerminal.Items.Clear;
+  for Rule in Grammer.Rules do begin
+    ComboBoxNonTerminal.Items.AddObject(Rule.Name, Rule);
+  end;
+end;
+
+procedure TFormRuleItem.UpdateInterface;
+begin
+  EditName.Visible := RuleItem.RuleItemType = ritTerminal;
+  LabelTerminal.Visible := RuleItem.RuleItemType = ritTerminal;
+  ComboBoxNonTerminal.Visible := RuleItem.RuleItemType = ritNonTerminal;
+  LabelNonTerminal.Visible := RuleItem.RuleItemType = ritNonTerminal;
+end;
+
 procedure TFormRuleItem.LoadData(RuleItem: TRuleItem);
 begin
-  EditName.Text := RuleItem.Name;
+  Self.RuleItem := RuleItem;
+  ReloadNonTerminals(RuleItem.Grammer);
+  ComboBoxType.ItemIndex := Integer(RuleItem.RuleItemType);
+  ComboBoxNonTerminal.ItemIndex := ComboBoxNonTerminal.Items.IndexOfObject(RuleItem.NonTerminal);
+  EditName.Text := RuleItem.Terminal;
+  UpdateInterface;
 end;
 
 procedure TFormRuleItem.SaveData(RuleItem: TRuleItem);
 begin
-  RuleItem.Name := EditName.Text;
+  RuleItem.RuleItemType := TRuleItemType(ComboBoxType.ItemIndex);
+  if RuleItem.RuleItemType = ritTerminal then RuleItem.Terminal := EditName.Text
+  else if RuleItem.RuleItemType = ritNonTerminal then
+    RuleItem.NonTerminal := TRule(ComboBoxNonTerminal.Items.Objects[ComboBoxNonTerminal.ItemIndex]);
 end;