main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 199
  Top = 137
  Width = 248
  Height = 187
  HorzScrollBar.Range = 238
  VertScrollBar.Range = 135
  ActiveControl = TrackBar2
  Caption = 'Audio Mixer'
  Color = clBackground
  OnCreate = FormCreate
  PixelsPerInch = 75
  TextHeight = 15
  TextWidth = 7
  object TrackBar1: TTrackBar
    Left = 88
    Top = 88
    Width = 150
    Height = 22
    Max = 255
    TabOrder = 2
    TickMarks = tmBoth
    TickStyle = tsNone
    OnChange = TrackBar1Change
  end
  object TrackBar2: TTrackBar
    Left = 88
    Top = 112
    Width = 150
    Height = 22
    Max = 255
    TabOrder = 1
    TickMarks = tmBoth
    TickStyle = tsNone
    OnChange = TrackBar2Change
  end
  object Label1: TLabel
    Left = 16
    Top = 96
    Width = 49
    Height = 15
    Caption = 'Volume1'
  end
  object Label2: TLabel
    Left = 16
    Top = 120
    Width = 49
    Height = 15
    Caption = 'Volume2'
  end
  object Button1: TButton
    Left = 16
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Input1'
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 16
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Input2'
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 120
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Output'
    TabOrder = 6
    OnClick = Button3Click
  end
  object WaveIn1: TWaveIn
    Loop = False
    Left = 16
    Top = 152
  end
  object WaveIn2: TWaveIn
    Loop = False
    Left = 48
    Top = 152
  end
  object AudioMixer1: TAudioMixer
    Input1 = WaveIn1
    Input2 = WaveIn2
    Volume1 = 255
    Volume2 = 255
    Left = 80
    Top = 152
  end
  object WaveOut1: TWaveOut
    Input = AudioMixer1
    SuspendWhenIdle = False
    OnDone = WaveOut1Done
    Left = 112
    Top = 152
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'wav'
    Filter = '*.wav'
    Title = 'Open'
    Left = 144
    Top = 152
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'wav'
    Filter = '*.wav'
    Title = 'Save As'
    Left = 176
    Top = 152
  end
end