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

Timestamp:

Aug 8, 2017, 11:15:41 PM (7 years ago)

Author:

chronos

Message:

• Added: Rule items can be managed.
• Added: Show BNF syntax on main form.

File:

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

branches/generator/Forms/UFormRule.lfm

@@ -13 +13 @@
     Left = 376
     Height = 25
-    Top = 328
+    Top = 360
     Width = 75
+    Anchors = [akLeft, akBottom]
     Caption = 'Ok'
     ModalResult = 1
@@ -20 +21 @@
   end
   object ButtonCancel: TButton
-    Left = 176
+    Left = 168
     Height = 25
-    Top = 328
+    Top = 360
     Width = 75
+    Anchors = [akLeft, akBottom]
     Caption = 'Cancel'
     ModalResult = 2
@@ -43 +45 @@
     TabOrder = 2
   end
+  object ListView: TListView
+    Left = 16
+    Height = 264
+    Top = 80
+    Width = 624
+    Anchors = [akTop, akLeft, akBottom]
+    Columns = <    
+      item
+        Caption = 'Name'
+        Width = 604
+      end>
+    MultiSelect = True
+    OwnerData = True
+    PopupMenu = PopupMenu1
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 3
+    ViewStyle = vsReport
+    OnData = ListViewData
+    OnDblClick = ListViewDblClick
+    OnKeyPress = ListViewKeyPress
+    OnSelectItem = ListViewSelectItem
+  end
+  object ActionList1: TActionList
+    left = 347
+    top = 187
+    object AAdd: TAction
+      Caption = 'Add'
+      OnExecute = AAddExecute
+    end
+    object AModify: TAction
+      Caption = 'Modify'
+      OnExecute = AModifyExecute
+    end
+    object ARemove: TAction
+      Caption = 'Remove'
+      OnExecute = ARemoveExecute
+    end
+  end
+  object PopupMenu1: TPopupMenu
+    left = 118
+    top = 185
+    object MenuItem1: TMenuItem
+      Action = AAdd
+    end
+    object MenuItem2: TMenuItem
+      Action = AModify
+    end
+    object MenuItem3: TMenuItem
+      Action = ARemove
+    end
+  end
 end