object FormImportSources: TFormImportSources Left = 475 Height = 414 Top = 329 Width = 812 Caption = 'Import sources' ClientHeight = 414 ClientWidth = 812 DesignTimePPI = 120 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter LCLVersion = '2.0.2.0' object ToolBar1: TToolBar Left = 0 Height = 26 Top = 388 Width = 812 Align = alBottom Caption = 'ToolBar1' Images = Core.ImageList1 ParentShowHint = False ShowHint = True TabOrder = 0 object ToolButton1: TToolButton Left = 1 Top = 2 Action = AAdd end object ToolButton2: TToolButton Left = 30 Top = 2 Action = AModify end object ToolButton3: TToolButton Left = 59 Top = 2 Action = ARemove end object ToolButton4: TToolButton Left = 88 Top = 2 Action = AProcess end end object ListView1: TListView Left = 4 Height = 351 Top = 33 Width = 804 Align = alClient BorderSpacing.Left = 4 BorderSpacing.Right = 4 BorderSpacing.Bottom = 4 Checkboxes = True Columns = < item Caption = 'Name' Width = 150 end item Caption = 'URL' Width = 250 end item Caption = 'Categories' Width = 200 end item Caption = 'Count' Width = 70 end item Caption = 'Date' Width = 114 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 = 4 Height = 29 Top = 4 Width = 804 OnChange = ListViewFilter1Change Align = alTop BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Right = 4 end object ActionList1: TActionList Images = Core.ImageList1 left = 408 top = 224 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 Images = Core.ImageList1 left = 147 top = 220 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 = False left = 299 top = 119 end object ListViewSort1: TListViewSort ListView = ListView1 OnCompareItem = ListViewSort1CompareItem OnFilter = ListViewSort1Filter OnColumnWidthChanged = ListViewSort1ColumnWidthChanged Column = 0 Order = soNone left = 547 top = 172 end end