Changeset 136 for branches/generator/Forms/UFormRuleItems.lfm

Timestamp:

Dec 26, 2017, 6:59:40 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for whitespaces in And rule.
• Added: Terminals can be specified as escaped strings with slash.

File:

• branches/generator/Forms/UFormRuleItems.lfm (modified) (3 diffs)

branches/generator/Forms/UFormRuleItems.lfm

@@ -7 +7 @@
   ClientHeight = 467
   ClientWidth = 636
-  DesignTimePPI = 120
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.0.4'
   object ListView1: TListView
     Left = 8
-    Height = 392
-    Top = 40
+    Height = 384
+    Top = 48
     Width = 624
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -50 +49 @@
     end
     object ToolButton2: TToolButton
-      Left = 24
+      Left = 30
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 47
+      Left = 59
       Top = 2
       Action = ARemove
     end
     object ToolButton4: TToolButton
-      Left = 70
+      Left = 88
       Top = 2
       Action = AMoveUp
     end
     object ToolButton5: TToolButton
-      Left = 93
+      Left = 117
       Top = 2
       Action = AMoveDown
@@ -72 +71 @@
   object Label1: TLabel
     Left = 10
-    Height = 20
+    Height = 23
     Top = 10
-    Width = 63
+    Width = 75
     Caption = 'Operator:'
     ParentColor = False
   end
-  object ComboBox1: TComboBox
+  object ComboBoxOperator: TComboBox
     Left = 153
-    Height = 28
+    Height = 33
     Top = 9
     Width = 231
-    ItemHeight = 20
+    ItemHeight = 0
     Items.Strings = (
       'And'
       'Or'
     )
+    OnChange = ComboBoxOperatorChange
     Style = csDropDownList
     TabOrder = 2
+  end
+  object CheckBoxWhiteSpace: TCheckBox
+    Left = 408
+    Height = 27
+    Top = 10
+    Width = 161
+    Caption = 'With white spaces'
+    TabOrder = 3
   end
   object PopupMenu1: TPopupMenu