Changeset 129 for branches/generator/Forms/UFormRule.pas

Timestamp:

Dec 19, 2017, 4:56:34 PM (7 years ago)

Author:

chronos

Message:

• Modified: Generate rules either to tokenizer and parser.

File:

• branches/generator/Forms/UFormRule.pas (modified) (6 diffs)

branches/generator/Forms/UFormRule.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ActnList, Menus, URules, UFormRuleItems;
+  ComCtrls, ActnList, Menus, UGrammer, UFormRuleItems;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     CheckBoxCreateNode: TCheckBox;
+    ComboBoxLevel: TComboBox;
     EditName: TEdit;
     Label1: TLabel;
+    Label2: TLabel;
     ListView1: TListView;
     PageControl1: TPageControl;
@@ -70 +72 @@
 
 procedure TFormRule.FormCreate(Sender: TObject);
+var
+  I: TRuleLevel;
 begin
   FormRuleItems := TFormRuleItems.Create(nil);
@@ -76 +80 @@
   FormRuleItems.Show;
   UsedByRules := TStringList.Create;
+  ComboBoxLevel.Items.Clear;
+  for I := Low(TRuleLevel) to High(RuleLevelText) do
+    ComboBoxLevel.Items.Add(RuleLevelText[I]);
 end;
 
@@ -91 +98 @@
   EditName.Text := Rule.Name;
   CheckBoxCreateNode.Checked := Rule.CreateSourceNode;
+  ComboBoxLevel.ItemIndex := Integer(Rule.Level);
   FormRuleItems.LoadData(Rule.Items);
 end;
@@ -99 +107 @@
   Rule.Name := EditName.Text;
   Rule.CreateSourceNode := CheckBoxCreateNode.Checked;
+  Rule.Level := TRuleLevel(ComboBoxLevel.ItemIndex);
   FormRuleItems.SaveData(Rule.Items);
 end;