object concatenatefrm: Tconcatenatefrm Left = 192 Top = 107 Width = 387 Height = 321 Caption = 'Concatenate Multiple Files' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 28 Top = 8 Width = 323 Height = 24 Caption = 'CONCATENATE MULTIPLE FILES' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 10 Top = 40 Width = 204 Height = 13 Caption = '&Files to Concatenate (In descendent order):' FocusControl = lb end object SpeedButton1: TSpeedButton Left = 304 Top = 56 Width = 65 Height = 22 Hint = 'Adds a file to the list' Caption = '&Add' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 304 Top = 78 Width = 65 Height = 22 Hint = 'Deletes the selected file from the list' Caption = '&Delete' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 256 Top = 56 Width = 23 Height = 22 Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F333333333333330333333333333333733333333} NumGlyphs = 2 OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 256 Top = 78 Width = 23 Height = 22 Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333300033333333333337773333333} NumGlyphs = 2 OnClick = SpeedButton4Click end object Label3: TLabel Left = 344 Top = 184 Width = 26 Height = 20 Caption = '0/0' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object lb: TListBox Left = 10 Top = 56 Width = 231 Height = 201 ExtendedSelect = False ItemHeight = 13 ScrollWidth = 230 TabOrder = 0 end object Button1: TButton Left = 256 Top = 207 Width = 113 Height = 25 Caption = '&Concatenate !' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 256 Top = 232 Width = 113 Height = 25 Caption = 'Cance&l' TabOrder = 2 OnClick = Button2Click end object ObriraWF: TCheckBox Left = 8 Top = 264 Width = 353 Height = 17 Caption = 'Open automatically in Wave Flow after concatenation' TabOrder = 3 end object od1: TOpenDialog Filter = 'PCM WaveForms (*.wav)|*.wav' Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] Title = 'Concatenate Multiple Files' Left = 288 Top = 144 end object sd1: TSaveDialog FileName = 'concatenated.wav' Filter = 'PCM Waveforms (*.wav)|*.wav' Title = 'Target File Name' Left = 256 Top = 144 end end