object Uitvoer: TUitvoer Left = 205 Top = 190 BorderIcons = [] BorderStyle = bsToolWindow Caption = 'Export to textfile' ClientHeight = 241 ClientWidth = 423 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 16 Width = 55 Height = 13 Caption = 'Filename:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 8 Top = 64 Width = 40 Height = 13 Caption = 'Folder:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 8 Top = 80 Width = 145 Height = 13 AutoSize = False Caption = 'D:\TEMP\MUSCOL' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object RadioGroup1: TRadioGroup Left = 168 Top = 8 Width = 145 Height = 89 Caption = 'Export: ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemIndex = 0 Items.Strings = ( 'Whole list' 'Search list' 'Current record') ParentFont = False TabOrder = 0 end object FileListBox1: TFileListBox Left = 8 Top = 112 Width = 145 Height = 97 FileEdit = Edit1 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 ParentFont = False TabOrder = 1 end object DirectoryListBox1: TDirectoryListBox Left = 168 Top = 112 Width = 145 Height = 97 DirLabel = Label3 FileList = FileListBox1 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentFont = False TabOrder = 2 end object DriveComboBox1: TDriveComboBox Left = 168 Top = 216 Width = 145 Height = 19 DirList = DirectoryListBox1 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object FilterComboBox1: TFilterComboBox Left = 8 Top = 216 Width = 145 Height = 21 FileList = FileListBox1 Filter = 'All files (*.*)|*.*|Text files (*.txt, *.doc )|*.txt;*.doc' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 end object Edit1: TEdit Left = 8 Top = 32 Width = 145 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 Text = '*.*' end object BitBtn1: TBitBtn Left = 336 Top = 16 Width = 81 Height = 33 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = BitBtn1Click Kind = bkOK end object BitBtn2: TBitBtn Left = 336 Top = 56 Width = 81 Height = 33 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = BitBtn2Click Kind = bkCancel end end