Changeset 120 for branches/generator/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

branches/generator/Forms

Files:

• UFormRule.lfm (modified) (2 diffs)
• UFormRule.pas (modified) (5 diffs)

branches/generator/Forms/UFormRule.lfm

@@ -45 +45 @@
     Top = 80
     Width = 640
-    ActivePage = TabSheet1
+    ActivePage = TabSheetUsedBy
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 2
     object TabSheet1: TTabSheet
@@ -54 +54 @@
     object TabSheet2: TTabSheet
       Caption = 'Links'
+    end
+    object TabSheetUsedBy: TTabSheet
+      Caption = 'Used by'
+      ClientHeight = 359
+      ClientWidth = 632
+      object ListView1: TListView
+        Left = 0
+        Height = 359
+        Top = 0
+        Width = 632
+        Align = alClient
+        Columns = <        
+          item
+            Caption = 'Name'
+            Width = 200
+          end>
+        OwnerData = True
+        ReadOnly = True
+        RowSelect = True
+        TabOrder = 0
+        ViewStyle = vsReport
+        OnData = ListView1Data
+      end
     end
   end

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;