home *** CD-ROM | disk | FTP | other *** search
- object concatenatefrm: Tconcatenatefrm
- Left = 192
- Top = 107
- Width = 387
- Height = 292
- 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 = {<image000.ico>}
- 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
- 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 od1: TOpenDialog
- Filter = 'PCM WaveForms (*.wav)|*.wav'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
- Title = 'Concatenate Multiple Files'
- Left = 288
- Top = 112
- end
- object sd1: TSaveDialog
- FileName = 'concatenated.wav'
- Filter = 'PCM Waveforms (*.wav)|*.wav'
- Title = 'Target File Name'
- Left = 256
- Top = 112
- end
- end
-