main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 326
  Top = 244
  Width = 228
  Height = 257
  HorzScrollBar.Range = 212
  VertScrollBar.Range = 246
  ActiveControl = Button2
  Caption = 'AOLive 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 = 120
    Width = 75
    Height = 25
    Caption = 'Open'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 96
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 0
    OnClick = Button2Click
  end
  object TrackBar1: TTrackBar
    Left = 75
    Top = 224
    Width = 137
    Height = 22
    Max = 255
    TabOrder = 1
    TickStyle = tsNone
    OnChange = TrackBar1Change
  end
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 78
    Height = 15
    Caption = 'No file to play'
  end
  object Button3: TButton
    Left = 16
    Top = 152
    Width = 75
    Height = 25
    Caption = '|<<'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 96
    Top = 152
    Width = 33
    Height = 25
    Caption = '<'
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 136
    Top = 152
    Width = 33
    Height = 25
    Caption = '>'
    TabOrder = 6
    OnClick = Button5Click
  end
  object CheckBox1: TCheckBox
    Left = 16
    Top = 184
    Width = 65
    Height = 30
    Caption = 'Loop'
    TabOrder = 7
    OnClick = CheckBox1Click
  end
  object Label3: TLabel
    Left = 16
    Top = 224
    Width = 42
    Height = 15
    Caption = 'Volume'
  end
  object ComboBox1: TComboBox
    Left = 104
    Top = 72
    Width = 105
    Height = 23
    Style = csDropDownList
    ItemHeight = 17
    TabOrder = 9
    OnSelect = ComboBox1Select
  end
  object Label2: TLabel
    Left = 16
    Top = 80
    Width = 73
    Height = 15
    Caption = 'Select Driver'
  end
  object WaveIn1: TWaveIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 152
    Top = 184
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'wav'
    Filter = 'Wave Files |*.wav|MP3 Files|*.mp3|Ogg Vorbis Files|*.ogg'
    FilterIndex = 0
    Height = 0
    Title = 'Open'
    Width = 0
    Left = 184
    Top = 152
  end
  object VorbisIn1: TVorbisIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 120
    Top = 184
  end
  object MPEGIn1: TMPEGIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 88
    Top = 184
  end
  object AOLive1: TAOLive
    SuspendWhenIdle = False
    OnDone = AOLive1Done
    OnProgress = AOLive1Progress
    Volume = 255
    Left = 184
    Top = 184
  end
end