object FormDatabases: TFormDatabases Left = 592 Height = 618 Top = 429 Width = 1090 Caption = 'Connection profiles' ClientHeight = 618 ClientWidth = 1090 DesignTimePPI = 144 OnShow = FormShow Position = poMainFormCenter LCLVersion = '2.2.2.0' object ListView1: TListView Left = 5 Height = 565 Top = 5 Width = 1080 Align = alClient BorderSpacing.Around = 5 Columns = < item Caption = 'Name' Width = 240 end item Caption = 'Type' Width = 240 end item Caption = 'Connection string' Width = 585 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnDblClick = ListView1DblClick OnSelectItem = ListView1SelectItem end object ToolBar1: TToolBar Left = 0 Height = 43 Top = 575 Width = 1090 Align = alBottom ButtonHeight = 38 ButtonWidth = 38 Images = Core.ImageList1 ParentShowHint = False ShowHint = True TabOrder = 1 object ToolButton1: TToolButton Left = 1 Top = 2 Action = AAdd end object ToolButton2: TToolButton Left = 39 Top = 2 Action = AModify end object ToolButton3: TToolButton Left = 77 Top = 2 Action = ARemove end object ToolButton4: TToolButton Left = 115 Top = 2 Action = AOpen end end object PopupMenu1: TPopupMenu Images = Core.ImageList1 Left = 704 Top = 168 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = AModify end object MenuItem3: TMenuItem Action = ARemove end object MenuItem4: TMenuItem Action = AOpen Default = True end end object ActionList1: TActionList Images = Core.ImageList1 Left = 470 Top = 163 object AAdd: TAction Caption = 'New' 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 object AOpen: TAction Caption = 'Open' ImageIndex = 8 OnExecute = AOpenExecute end end end