object FormLookupTables: TFormLookupTables Left = 521 Height = 636 Top = 323 Width = 860 Caption = 'Lookup tables' ClientHeight = 636 ClientWidth = 860 DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow LCLVersion = '2.0.2.0' object ListView1: TListView Left = 6 Height = 576 Top = 6 Width = 848 Align = alClient BorderSpacing.Around = 6 Columns = < item Caption = 'Name' Width = 833 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 CoolBar1: TCoolBar Left = 0 Height = 48 Top = 588 Width = 860 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 ActionList1: TActionList Images = Core.ImageList1 left = 204 top = 264 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 = 432 top = 264 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 = 612 top = 264 end end