object FormContacts: TFormContacts Left = 400 Height = 908 Top = 212 Width = 1210 Caption = 'Contacts' ClientHeight = 908 ClientWidth = 1210 DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow LCLVersion = '2.0.12.0' object ListView1: TListView Left = 0 Height = 837 Top = 0 Width = 1210 Align = alClient Columns = < item Caption = 'Full Name' Width = 300 end item Caption = 'First name' Width = 150 end item Caption = 'Middle name' Width = 150 end item Caption = 'Last Name' Width = 150 end item Caption = 'Cell phone' Width = 150 end item Caption = 'Home phone' Width = 295 end> MultiSelect = True OwnerData = True ParentFont = False PopupMenu = PopupMenuContact ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnDblClick = ListView1DblClick OnSelectItem = ListView1SelectItem end object ToolBar1: TToolBar Left = 0 Height = 39 Top = 869 Width = 1210 Align = alBottom Images = Core.ImageList1 ParentFont = False 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 end object ListViewFilter1: TListViewFilter Left = 0 Height = 32 Top = 837 Width = 1210 OnChange = ListViewFilter1Change Align = alBottom end object PopupMenuContact: TPopupMenu Images = Core.ImageList1 Left = 435 Top = 263 object MenuItem1: TMenuItem Action = AAdd end object MenuItem3: TMenuItem Action = ARemove end object MenuItem2: TMenuItem Action = AModify end object MenuItem4: TMenuItem Action = ASelectAll end end object ActionList1: TActionList Images = Core.ImageList1 Left = 732 Top = 257 object AAdd: TAction Caption = 'Add' ImageIndex = 9 OnExecute = AAddExecute ShortCut = 45 end object AModify: TAction Caption = 'Modify' ImageIndex = 6 OnExecute = AModifyExecute ShortCut = 13 end object ARemove: TAction Caption = 'Remove' ImageIndex = 10 OnExecute = ARemoveExecute ShortCut = 46 end object ASelectAll: TAction Caption = 'Select all' OnExecute = ASelectAllExecute ShortCut = 16449 end end object ListViewSort1: TListViewSort ListView = ListView1 OnCompareItem = ListViewSort1CompareItem OnFilter = ListViewSort1Filter OnColumnWidthChanged = ListViewSort1ColumnWidthChanged Column = 0 Order = soNone Left = 528 Top = 428 end end