main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 361
  Top = 324
  Width = 229
  Height = 282
  HorzScrollBar.Range = 212
  VertScrollBar.Range = 260
  ActiveControl = Button2
  Caption = 'Audio Player'
  Color = clBackground
  OnCreate = FormCreate
  PixelsPerInch = 75
  TextHeight = 15
  TextWidth = 7
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 40
    Width = 193
    Height = 12
    Color = clMidlight
    FillColor = clPurple
    ParentColor = False
  end
  object Button1: TButton
    Left = 16
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Open'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 96
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 0
    OnClick = Button2Click
  end
  object TrackBar1: TTrackBar
    Left = 75
    Top = 176
    Width = 137
    Height = 22
    Max = 255
    TabOrder = 1
    TickStyle = tsNone
    OnChange = TrackBar1Change
  end
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 38
    Height = 15
    Caption = 'Label1'
  end
  object Button3: TButton
    Left = 16
    Top = 104
    Width = 75
    Height = 25
    Caption = '|<<'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 96
    Top = 104
    Width = 33
    Height = 25
    Caption = '<'
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 136
    Top = 104
    Width = 33
    Height = 25
    Caption = '>'
    TabOrder = 6
    OnClick = Button5Click
  end
  object CheckBox1: TCheckBox
    Left = 16
    Top = 136
    Width = 100
    Height = 30
    Caption = 'Loop'
    TabOrder = 7
    OnClick = CheckBox1Click
  end
  object Label3: TLabel
    Left = 16
    Top = 176
    Width = 42
    Height = 15
    Caption = 'Volume'
  end
  object Button6: TButton
    Left = 24
    Top = 216
    Width = 105
    Height = 25
    Caption = 'Build Play List...'
    TabOrder = 9
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 136
    Top = 216
    Width = 75
    Height = 25
    Caption = 'Play'
    TabOrder = 10
    OnClick = Button7Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 263
    Width = 229
    Height = 19
    Panels = <
      item
      end>
  end
  object WaveIn1: TWaveIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 64
    Top = 248
  end
  object AudioOut1: TAudioOut
    SuspendWhenIdle = True
    OnDone = AudioOut1Done
    OnProgress = AudioOut1Progress
    OnThreadException = AudioOut1ThreadException
    BaseChannel = 0
    Volume = 255
    Left = 128
    Top = 248
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      'Wav files|*.wav|MP3 files|*.mp3|Ogg files |*.ogg|FLAC files|*.fl' +
      'ac'
    FilterIndex = 0
    Height = 0
    Title = 'Open'
    Width = 0
    Left = 192
    Top = 248
  end
  object VorbisIn1: TVorbisIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 32
    Top = 248
  end
  object MPEGIn1: TMPEGIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Top = 248
  end
  object AudioOut2: TAudioOut
    SuspendWhenIdle = True
    OnDone = AudioOut2Done
    OnProgress = AudioOut1Progress
    OnThreadException = AudioOut1ThreadException
    BaseChannel = 0
    Volume = 255
    Left = 160
    Top = 248
  end
  object FLACIn1: TFLACIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 96
    Top = 248
  end
end