object FormRules: TFormRules Left = 348 Height = 916 Top = 230 Width = 1286 Caption = 'Rules' ClientHeight = 916 ClientWidth = 1286 DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow LCLVersion = '2.0.2.0' object CoolBar1: TCoolBar Left = 0 Height = 48 Top = 868 Width = 1286 Align = alBottom Bands = < item Control = ToolBar1 Width = 179 end> Images = Core.ImageList1 ParentFont = False object ToolBar1: TToolBar AnchorSideLeft.Control = CoolBar1 AnchorSideTop.Control = CoolBar1 Left = 24 Height = 33 Top = 5 Width = 106 Align = alNone AutoSize = True BorderSpacing.Left = 22 BorderSpacing.Top = 3 EdgeInner = esNone EdgeOuter = esNone Images = Core.ImageList1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Transparent = True object ToolButton1: TToolButton Left = 1 Top = 0 Action = AAdd end object ToolButton2: TToolButton Left = 36 Top = 0 Action = AModify end object ToolButton3: TToolButton Left = 71 Top = 0 Action = ARemove end end end object ListView1: TListView Left = 6 Height = 856 Top = 6 Width = 1274 Align = alClient BorderSpacing.Around = 6 Columns = < item Caption = 'Name' Width = 300 end item Caption = 'Node' Width = 120 end item Caption = 'Items' Width = 600 end item Caption = 'Char length' Width = 120 end item Caption = 'Level' Width = 119 end> MultiSelect = True OwnerData = True ParentFont = False PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 1 ViewStyle = vsReport OnData = ListView1Data OnDblClick = ListView1DblClick OnKeyPress = ListView1KeyPress OnSelectItem = ListView1SelectItem end object ActionList1: TActionList Images = Core.ImageList1 left = 372 top = 318 object AAdd: TAction Caption = 'Add' Hint = 'Add' ImageIndex = 0 OnExecute = AAddExecute ShortCut = 45 end object AModify: TAction Caption = 'Modify' Hint = 'Modify' ImageIndex = 3 OnExecute = AModifyExecute end object ARemove: TAction Caption = 'Remove' Hint = 'Remove' ImageIndex = 1 OnExecute = ARemoveExecute ShortCut = 46 end end object PopupMenu1: TPopupMenu Images = Core.ImageList1 left = 641 top = 318 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = AModify end object MenuItem3: TMenuItem Action = ARemove end end object ListViewSort1: TListViewSort ListView = ListView1 OnCompareItem = ListViewSort1CompareItem OnFilter = ListViewSort1Filter Column = 0 Order = soUp left = 861 top = 318 end end