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

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.lfm (modified) (2 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