object FormImportSources: TFormImportSources Left = 475 Height = 497 Top = 329 Width = 974 Caption = 'Import sources' ClientHeight = 497 ClientWidth = 974 DesignTimePPI = 144 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter LCLVersion = '3.6.0.0' object ToolBar1: TToolBar Left = 0 Height = 33 Top = 464 Width = 974 Align = alBottom Caption = 'ToolBar1' Images = Core.ImageListSmall ParentShowHint = False ShowHint = True TabOrder = 0 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 object ToolButton4: TToolButton Left = 106 Top = 2 Action = AProcess end end object ListView1: TListView Left = 5 Height = 419 Top = 40 Width = 964 Align = alClient BorderSpacing.Left = 5 BorderSpacing.Right = 5 BorderSpacing.Bottom = 5 Checkboxes = True Columns = < item Caption = 'Name' Width = 180 end item Caption = 'URL' Width = 300 end item Caption = 'Categories' Width = 240 end item Caption = 'Count' Width = 84 end item Caption = 'Date' Width = 145 end> MultiSelect = True OwnerData = True PopupMenu = PopupMenuImportSource ReadOnly = True RowSelect = True TabOrder = 1 ViewStyle = vsReport OnChange = ListView1Change OnData = ListView1Data OnDblClick = ListView1DblClick OnKeyPress = ListView1KeyPress OnResize = ListView1Resize OnSelectItem = ListView1SelectItem end object ListViewFilter1: TListViewFilter Left = 5 Height = 35 Top = 5 Width = 964 OnChange = ListViewFilter1Change Align = alTop BorderSpacing.Left = 5 BorderSpacing.Top = 5 BorderSpacing.Right = 5 end object ActionList1: TActionList Left = 490 Top = 269 object AAdd: TAction Caption = 'Add' ImageIndex = 0 OnExecute = AAddExecute ShortCut = 45 end object ARemove: TAction Caption = 'Remove' ImageIndex = 4 OnExecute = ARemoveExecute ShortCut = 46 end object AModify: TAction Caption = 'Modify' ImageIndex = 3 OnExecute = AModifyExecute ShortCut = 13 end object AProcess: TAction Caption = 'Process' ImageIndex = 5 OnExecute = AProcessExecute end object AEnable: TAction Caption = 'Enable' OnExecute = AEnableExecute end object ADisable: TAction Caption = 'Disable' OnExecute = ADisableExecute end end object PopupMenuImportSource: TPopupMenu Left = 176 Top = 264 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = AModify end object MenuItem3: TMenuItem Action = ARemove end object MenuItem4: TMenuItem Action = AProcess end object MenuItem7: TMenuItem Caption = '-' end object MenuItem5: TMenuItem Action = AEnable end object MenuItem6: TMenuItem Action = ADisable end end object JobProgressView1: TJobProgressView OwnerDraw = False ShowDelay = 0 AutoClose = True Left = 359 Top = 143 end object ListViewSort1: TListViewSort ListView = ListView1 OnCompareItem = ListViewSort1CompareItem OnFilter = ListViewSort1Filter OnColumnWidthChanged = ListViewSort1ColumnWidthChanged Column = 0 Order = soNone Left = 656 Top = 206 end end