Changeset 137 for branches/generator/Forms/UFormRuleItem.lfm

Timestamp:

Dec 27, 2017, 6:05:11 PM (7 years ago)

Author:

chronos

Message:

• Added: Lookup tables can be defined and their usage set from grammer rules.

File:

• branches/generator/Forms/UFormRuleItem.lfm (modified) (2 diffs)

branches/generator/Forms/UFormRuleItem.lfm

@@ -61 +61 @@
     Top = 88
     Width = 632
-    ActivePage = TabSheetTerminalRange
+    ActivePage = TabSheetNonTerminal
     Anchors = [akTop, akLeft, akRight, akBottom]
     ShowTabs = False
-    TabIndex = 3
+    TabIndex = 1
     TabOrder = 3
     object TabSheetTerminal: TTabSheet
@@ -93 +93 @@
       object LabelNonTerminal: TLabel
         Left = 8
-        Height = 20
-        Top = 16
-        Width = 92
+        Height = 23
+        Top = 8
+        Width = 105
         Caption = 'Non-terminal:'
         ParentColor = False
       end
-      object ListBox1: TListBox
-        Left = 128
-        Height = 232
-        Top = 16
-        Width = 484
+      object ListBoxNonTerminals: TListBox
+        Left = 8
+        Height = 210
+        Top = 40
+        Width = 304
         Anchors = [akTop, akLeft, akRight, akBottom]
         ItemHeight = 0
-        ScrollWidth = 482
+        ScrollWidth = 302
         TabOrder = 0
         TopIndex = -1
+      end
+      object CheckBoxLookupTable: TCheckBox
+        Left = 352
+        Height = 27
+        Top = 8
+        Width = 152
+        Caption = 'Use lookup table'
+        OnChange = CheckBoxLookupTableChange
+        TabOrder = 1
+      end
+      object ListBoxLookupTable: TListBox
+        Left = 352
+        Height = 176
+        Top = 40
+        Width = 248
+        Anchors = [akTop, akLeft, akRight, akBottom]
+        ItemHeight = 0
+        ScrollWidth = 246
+        TabOrder = 2
+        TopIndex = -1
+      end
+      object Label1: TLabel
+        Left = 352
+        Height = 23
+        Top = 224
+        Width = 90
+        Caption = 'Item action:'
+        ParentColor = False
+      end
+      object ComboBoxLookupTableAction: TComboBox
+        Left = 464
+        Height = 35
+        Top = 224
+        Width = 134
+        ItemHeight = 0
+        ItemIndex = 0
+        Items.Strings = (
+          'Create'
+          'Reference'
+        )
+        Style = csDropDownList
+        TabOrder = 3
+        Text = 'Create'
       end
     end