object DestTableDlg: TDestTableDlg Left = 193 Top = 209 HelpContext = 500 BorderStyle = bsDialog Caption = 'Export' ClientHeight = 208 ClientWidth = 324 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 6 Top = 4 Width = 119 Height = 13 Caption = '&Select destination table: ' FocusControl = TabnameEdit Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TypeBtn: TRadioGroup Left = 6 Top = 47 Width = 313 Height = 45 Caption = ' &Table Type ' Columns = 3 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemIndex = 0 Items.Strings = ( ' &Paradox ' ' &DBase ' ' &ASCII') ParentFont = False TabOrder = 1 OnClick = TypeBtnClick end object TabnameEdit: TFilenameEdit Left = 6 Top = 20 Width = 313 Height = 21 HelpContext = 500 OnAfterDialog = TabnameEditAfterDialog DefaultExt = 'DB' Filter = 'Paradox files (*.db)|*.DB|DBase files (*.dbf)|*.DBF|ASCII files ' + '(*.txt)|*.TXT|All files (*.*)|*.*' DialogOptions = [ofHideReadOnly, ofPathMustExist] DialogTitle = 'Browse files' ButtonHint = 'Browse files|' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] NumGlyphs = 1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = TabnameEditChange end object RecordCountBox: TGroupBox Left = 6 Top = 97 Width = 313 Height = 73 Caption = ' &Record count to export ' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 object Label2: TLabel Left = 132 Top = 45 Width = 139 Height = 13 Caption = 'records from current position ' FocusControl = RecordCntEdit end object FirstRecsBtn: TRadioButton Left = 17 Top = 44 Width = 48 Height = 17 Caption = ' &First ' TabOrder = 2 OnClick = RecordCountBtnClick end object AllRecsBtn: TRadioButton Left = 17 Top = 22 Width = 140 Height = 17 Caption = ' &All records' Checked = True TabOrder = 1 TabStop = True OnClick = RecordCountBtnClick end object RecordCntEdit: TEdit Left = 68 Top = 43 Width = 55 Height = 21 Enabled = False Font.Color = clBtnFace Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 10 ParentColor = True ParentFont = False TabOrder = 0 OnKeyPress = RecordCntEditKeyPress end end object OKBtn: TBitBtn Left = 170 Top = 178 Width = 73 Height = 25 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = OkBtnClick Kind = bkOK end object CancelBtn: TBitBtn Left = 246 Top = 178 Width = 73 Height = 25 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 Kind = bkCancel end object FormStorage: TFormStorage Options = [fpPosition] UseRegistry = True StoredProps.Strings = ( 'TypeBtn.ItemIndex' 'TabnameEdit.InitialDir' 'AllRecsBtn.Checked' 'FirstRecsBtn.Checked' 'RecordCntEdit.Text') Left = 264 Top = 10 end object RxGradientCaption1: TRxGradientCaption Captions = <> DefaultFont = False FormCaption = 'Export' Font.Color = clWindow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Left = 232 Top = 8 end end