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

Timestamp:

Nov 29, 2017, 12:31:26 PM (7 years ago)

Author:

chronos

Message:

• Added: New rules flag directing if source node should be generated for them.
• Added: New and Save menu actions.

File:

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

branches/generator/Forms/UFormRule.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxCreateNode: TCheckBox;
     EditName: TEdit;
     Label1: TLabel;
@@ -64 +65 @@
   Self.Rule := Rule;
   EditName.Text := Rule.Name;
+  CheckBoxCreateNode.Checked := Rule.CreateSourceNode;
   FormRuleItems.LoadData(Rule.Items);
 end;
@@ -70 +72 @@
 begin
   Rule.Name := EditName.Text;
+  Rule.CreateSourceNode := CheckBoxCreateNode.Checked;
   FormRuleItems.SaveData(Rule.Items);
 end;