object FormRecords: TFormRecords Left = 621 Height = 824 Top = 308 Width = 1346 Caption = 'Records' ClientHeight = 824 ClientWidth = 1346 DesignTimePPI = 144 OnShow = FormShow Position = poMainFormCenter LCLVersion = '2.2.2.0' object ListViewRecords: TListView Left = 6 Height = 758 Top = 6 Width = 1334 Align = alClient BorderSpacing.Around = 6 Columns = < item Caption = 'Name' Width = 750 end item Caption = 'Records' Width = 680 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListViewRecordsData OnDblClick = AModifyExecute OnSelectItem = ListViewRecordsSelectItem end object ToolBar1: TToolBar Left = 0 Height = 54 Top = 770 Width = 1346 Align = alBottom ButtonHeight = 48 ButtonWidth = 48 Images = Core.ImageList1 ParentShowHint = False ShowHint = True TabOrder = 1 object ToolButton1: TToolButton Left = 1 Top = 2 Action = AAdd end object ToolButton2: TToolButton Left = 49 Top = 2 Action = AModify end object ToolButton3: TToolButton Left = 97 Top = 2 Action = ARemove end end object ActionList1: TActionList Images = Core.ImageList1 Left = 525 Top = 252 object AAdd: TAction Caption = 'Add' ImageIndex = 5 OnExecute = AAddExecute end object AModify: TAction Caption = 'Modify' ImageIndex = 3 OnExecute = AModifyExecute end object ARemove: TAction Caption = 'Remove' ImageIndex = 4 OnExecute = ARemoveExecute end end object PopupMenu1: TPopupMenu Images = Core.ImageList1 Left = 738 Top = 258 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = AModify Default = True end object MenuItem3: TMenuItem Action = ARemove end end end