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

Timestamp:

Nov 29, 2017, 2:03:17 PM (7 years ago)

Author:

chronos

Message:

• Added: New rule item type "Terminal range" to hold interval of characters.
• Fixed: Removel of selected items in a list was not working correctly.

File:

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

branches/generator/Forms/UFormRuleItem.lfm

@@ -42 +42 @@
       'Non-terminal'
       'Subitems'
+      'Terminal range'
     )
     OnChange = ComboBoxTypeChange
@@ -60 +61 @@
     Top = 88
     Width = 632
-    ActivePage = TabSheetSubItems
+    ActivePage = TabSheetTerminal
     Anchors = [akTop, akLeft, akRight, akBottom]
     ShowTabs = False
-    TabIndex = 2
+    TabIndex = 0
     TabOrder = 3
     object TabSheetTerminal: TTabSheet
       Caption = 'Terminal'
-      ClientHeight = 168
+      ClientHeight = 258
       ClientWidth = 624
-      object EditName: TEdit
+      object EditTerminal: TEdit
         Left = 152
         Height = 28
         Top = 16
         Width = 400
+        OnKeyPress = EditTerminalKeyPress
         TabOrder = 0
       end
@@ -79 +81 @@
         Left = 8
         Height = 20
-        Top = 24
+        Top = 16
         Width = 61
         Caption = 'Terminal:'
@@ -87 +89 @@
     object TabSheetNonTerminal: TTabSheet
       Caption = 'NonTerminal'
-      ClientHeight = 168
+      ClientHeight = 258
       ClientWidth = 624
-      object ComboBoxNonTerminal: TComboBox
-        Left = 152
-        Height = 28
-        Top = 16
-        Width = 404
-        ItemHeight = 20
-        Style = csDropDownList
-        TabOrder = 0
-      end
       object LabelNonTerminal: TLabel
         Left = 8
         Height = 20
-        Top = 24
+        Top = 16
         Width = 92
         Caption = 'Non-terminal:'
         ParentColor = False
       end
+      object ListBox1: TListBox
+        Left = 128
+        Height = 232
+        Top = 16
+        Width = 484
+        Anchors = [akTop, akLeft, akRight, akBottom]
+        ItemHeight = 0
+        TabOrder = 0
+      end
     end
     object TabSheetSubItems: TTabSheet
       Caption = 'SubItems'
+    end
+    object TabSheetTerminalRange: TTabSheet
+      Caption = 'TabSheetTerminalRange'
+      ClientHeight = 258
+      ClientWidth = 624
+      object LabelTerminal1: TLabel
+        Left = 8
+        Height = 20
+        Top = 16
+        Width = 97
+        Caption = 'Terminal from:'
+        ParentColor = False
+      end
+      object EditTerminalFrom: TEdit
+        Left = 152
+        Height = 28
+        Top = 16
+        Width = 400
+        OnKeyPress = EditTerminalKeyPress
+        TabOrder = 0
+      end
+      object LabelTerminal2: TLabel
+        Left = 8
+        Height = 20
+        Top = 56
+        Width = 79
+        Caption = 'Terminal to:'
+        ParentColor = False
+      end
+      object EditTerminalTo: TEdit
+        Left = 152
+        Height = 28
+        Top = 56
+        Width = 400
+        OnKeyPress = EditTerminalKeyPress
+        TabOrder = 1
+      end
     end
   end