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

Timestamp:

Nov 29, 2017, 1:21:22 PM (7 years ago)

Author:

chronos

Message:

• Added: Show "Used by" rules in rule edit window.

File:

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

branches/generator/Forms/UFormRule.pas

@@ -19 +19 @@
     EditName: TEdit;
     Label1: TLabel;
+    ListView1: TListView;
     PageControl1: TPageControl;
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
+    TabSheetUsedBy: TTabSheet;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
   private
     FormRuleItems: TFormRuleItems;
+    UsedByRules: TStringList;
+    procedure ReloadUsedByRules;
   public
     Rule: TRule;
@@ -39 +44 @@
 implementation
 
+uses
+  UCore;
+
 {$R *.lfm}
 
@@ -46 +54 @@
 begin
   EditName.SetFocus;
+  PageControl1.TabIndex := 0;  // Select first tab by default
+end;
+
+procedure TFormRule.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < UsedByRules.Count then
+  begin
+    Item.Caption := UsedByRules[Item.Index];
+    Item.Data := UsedByRules.Objects[Item.Index];
+  end;
+end;
+
+procedure TFormRule.ReloadUsedByRules;
+begin
+  ListView1.Items.Count := UsedByRules.Count;
+  ListView1.Refresh;
 end;
 
@@ -54 +78 @@
   FormRuleItems.Align := alClient;
   FormRuleItems.Show;
+  UsedByRules := TStringList.Create;
 end;
 
 procedure TFormRule.FormDestroy(Sender: TObject);
 begin
+  FreeAndNil(UsedByRules);
   FreeAndNil(FormRuleItems);
 end;
@@ -64 +90 @@
 begin
   Self.Rule := Rule;
+  Rule.Grammer.GetUsedByRule(Rule, UsedByRules);
+  ReloadUsedByRules;
   EditName.Text := Rule.Name;
   CheckBoxCreateNode.Checked := Rule.CreateSourceNode;