Changeset 113 for branches/generator/URules.pas

Timestamp:

Aug 9, 2017, 10:14:31 PM (7 years ago)

Author:

chronos

Message:

• Added: Allow to move up/down rule items.
• Fixed: Store rule operator to XML file.

File:

• branches/generator/URules.pas (modified) (2 diffs)

branches/generator/URules.pas

@@ -229 +229 @@
 begin
   WriteString(Node, 'Name', Name);
+  WriteInteger(Node, 'Type', Integer(RuleType));
 
   RuleItemsNode := Node.OwnerDocument.CreateElement('RuleItems');
@@ -266 +267 @@
 begin
   Name := ReadString(Node, 'Name', '');
+  RuleType := TRuleType(ReadInteger(Node, 'Type', Integer(rtAnd)));
 
   ItemsNode := Node.FindNode('RuleItems');