object FormImportFormat: TFormImportFormat Left = 462 Height = 433 Top = 322 Width = 664 Caption = 'Import format' ClientHeight = 433 ClientWidth = 664 OnCreate = FormCreate OnShow = FormShow LCLVersion = '1.6.0.4' object ButtonOk: TButton Left = 560 Height = 25 Top = 384 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 6 end object ButtonCancel: TButton Left = 464 Height = 25 Top = 384 Width = 75 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 5 end object Label1: TLabel Left = 20 Height = 20 Top = 53 Width = 43 Caption = 'Name:' ParentColor = False end object EditName: TEdit Left = 179 Height = 28 Top = 48 Width = 461 Anchors = [akTop, akLeft, akRight] TabOrder = 1 end object Label8: TLabel Left = 20 Height = 20 Top = 90 Width = 72 Caption = 'Block start:' ParentColor = False end object EditBlockStart: TEdit Left = 179 Height = 28 Top = 85 Width = 461 Anchors = [akTop, akLeft, akRight] TabOrder = 2 end object Label9: TLabel Left = 20 Height = 20 Top = 130 Width = 68 Caption = 'Block end:' ParentColor = False end object EditBlockEnd: TEdit Left = 179 Height = 28 Top = 125 Width = 461 Anchors = [akTop, akLeft, akRight] TabOrder = 3 end object ListViewItemRules: TListView Left = 20 Height = 192 Top = 181 Width = 620 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Start string' Width = 100 end item Caption = 'End string' Width = 100 end item Caption = 'Action' Width = 100 end item Caption = 'Variable' Width = 100 end item Caption = 'Repetition' Width = 100 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 4 ViewStyle = vsReport OnData = ListViewItemRulesData OnDblClick = AModifyExecute end object Label2: TLabel Left = 20 Height = 20 Top = 157 Width = 68 Caption = 'Item rules:' ParentColor = False end object Label3: TLabel Left = 20 Height = 20 Top = 13 Width = 35 Caption = 'Type:' ParentColor = False end object ComboBoxType: TComboBox Left = 179 Height = 28 Top = 13 Width = 197 ItemHeight = 20 Items.Strings = ( 'Text parse HTTP' 'MS Access database' 'Text parse file' ) Style = csDropDownList TabOrder = 0 end object PopupMenu1: TPopupMenu Images = FormMain.ImageList1 left = 181 top = 277 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = AModify end object MenuItem3: TMenuItem Action = ARemove end object MenuItem4: TMenuItem Action = AMoveUp end object MenuItem5: TMenuItem Action = AMoveDown end end object ActionList1: TActionList Images = FormMain.ImageList1 left = 383 top = 282 object AAdd: TAction Caption = 'Add' OnExecute = AAddExecute ShortCut = 45 end object AModify: TAction Caption = 'Modify' OnExecute = AModifyExecute ShortCut = 13 end object ARemove: TAction Caption = 'Remove' OnExecute = ARemoveExecute ShortCut = 46 end object AMoveUp: TAction Caption = 'Move up' OnExecute = AMoveUpExecute end object AMoveDown: TAction Caption = 'Move down' OnExecute = AMoveDownExecute end end end