Changeset 119 for branches/generator/Forms/UFormRules.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/UFormRules.pas (modified) (3 diffs)

branches/generator/Forms/UFormRules.pas

@@ -58 +58 @@
   UFormRule, UCore;
 
+const
+  BooleanText: array[Boolean] of string = ('No', 'Yes');
+
 { TFormRules }
 
@@ -88 +91 @@
   FormRule: TFormRule;
 begin
-  Rule := TRule(ListView1.Selected.Data);
-  FormRule := TFormRule.Create(nil);
-  FormRule.LoadData(Rule);
-  if FormRule.ShowModal = mrOk then begin
-    FormRule.SaveData(Rule);
-    ReloadList;
+  if Assigned(ListView1.Selected) then begin
+    Rule := TRule(ListView1.Selected.Data);
+    FormRule := TFormRule.Create(nil);
+    FormRule.LoadData(Rule);
+    if FormRule.ShowModal = mrOk then begin
+      FormRule.SaveData(Rule);
+      ReloadList;
+    end;
+    FreeAndNil(FormRule);
   end;
-  FreeAndNil(FormRule);
 end;
 
@@ -123 +128 @@
     Item.Caption := Rules[Item.Index].Name;
     Item.Data := Rules[Item.Index];
-    Item.SubItems.Add(Rules[Item.Index].Items.GetBNF);
+    Item.SubItems.Add(BooleanText[Rules[Item.Index].CreateSourceNode]);
+    Item.SubItems.Add(Rules[Item.Index].Items.GetString);
   end;
 end;