object FormRuleItems: TFormRuleItems Left = 539 Height = 700 Top = 316 Width = 954 Caption = 'Rule items' ClientHeight = 700 ClientWidth = 954 DesignTimePPI = 144 OnCreate = FormCreate OnShow = FormShow LCLVersion = '2.0.2.0' object ListView1: TListView Left = 12 Height = 576 Top = 72 Width = 936 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Name' Width = 921 end> MultiSelect = True OwnerData = True ParentFont = False PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnDblClick = ListView1DblClick OnKeyPress = ListView1KeyPress OnSelectItem = ListView1SelectItem end object ToolBar1: TToolBar Left = 0 Height = 39 Top = 661 Width = 954 Align = alBottom Images = Core.ImageList1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 object ToolButton1: TToolButton Left = 1 Top = 2 Action = AAdd end object ToolButton2: TToolButton Left = 36 Top = 2 Action = AModify end object ToolButton3: TToolButton Left = 71 Top = 2 Action = ARemove end object ToolButton4: TToolButton Left = 106 Top = 2 Action = AMoveUp end object ToolButton5: TToolButton Left = 141 Top = 2 Action = AMoveDown end end object Label1: TLabel Left = 15 Height = 26 Top = 15 Width = 82 Caption = 'Operator:' ParentColor = False ParentFont = False end object ComboBoxOperator: TComboBox Left = 230 Height = 38 Top = 14 Width = 346 ItemHeight = 0 Items.Strings = ( 'And' 'Or' ) OnChange = ComboBoxOperatorChange ParentFont = False Style = csDropDownList TabOrder = 2 end object CheckBoxWhiteSpace: TCheckBox Left = 612 Height = 30 Top = 15 Width = 181 Caption = 'With white spaces' ParentFont = False TabOrder = 3 end object PopupMenu1: TPopupMenu Images = Core.ImageList1 left = 219 top = 323 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = AModify end object MenuItem3: TMenuItem Action = ARemove end object MenuItem4: TMenuItem Action = AMoveUp end object MenuItem5: TMenuItem Action = AMoveDown end end object ActionList1: TActionList Images = Core.ImageList1 left = 563 top = 323 object AAdd: TAction Caption = 'Add' ImageIndex = 0 OnExecute = AAddExecute ShortCut = 45 end object AModify: TAction Caption = 'Modify' ImageIndex = 3 OnExecute = AModifyExecute end object ARemove: TAction Caption = 'Remove' ImageIndex = 1 OnExecute = ARemoveExecute ShortCut = 46 end object AMoveUp: TAction Caption = 'Move up' ImageIndex = 7 OnExecute = AMoveUpExecute ShortCut = 16422 end object AMoveDown: TAction Caption = 'Move down' ImageIndex = 6 OnExecute = AMoveDownExecute ShortCut = 16424 end end end