main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 233
  Top = 286
  Width = 408
  Height = 406
  HorzScrollBar.Range = 401
  VertScrollBar.Range = 369
  ActiveControl = Button1
  Caption = 'Sinc Filter Demo'
  Color = clButton
  Font.Color = clText
  Font.Height = 14
  Font.Name = 'misc-fixed'
  Font.Pitch = fpFixed
  Font.Style = []
  ParentFont = False
  OnCreate = FormCreate
  PixelsPerInch = 72
  TextHeight = 14
  TextWidth = 7
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 352
    Width = 377
    Height = 17
    Step = 2
  end
  object Label1: TLabel
    Left = 8
    Top = 56
    Width = 21
    Height = 14
    Caption = 'Mag'
  end
  object Label2: TLabel
    Left = 40
    Top = 208
    Width = 28
    Height = 14
    Caption = 'Freq'
  end
  object Label3: TLabel
    Left = 8
    Top = 248
    Width = 77
    Height = 14
    Caption = 'Low Cut-off'
  end
  object Label4: TLabel
    Left = 8
    Top = 296
    Width = 84
    Height = 14
    Caption = 'High Cut-off'
  end
  object Button1: TButton
    Left = 8
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Play...'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 38
    Top = 56
    Width = 201
    Height = 145
    BevelOuter = bvLowered
    Color = clWhite
    TabOrder = 2
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 199
      Height = 143
      Align = alClient
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 264
    Top = 56
    Width = 121
    Height = 121
    Items.Strings = (
      'Low pass'
      'High pass'
      'Band pass'
      'Band reject'
      'All pass')
    Caption = ' Filter Type '
    ItemIndex = 0
    TabOrder = 3
    OnClick = RadioGroup1Click
  end
  object TrackBar1: TTrackBar
    Left = 104
    Top = 248
    Width = 297
    Height = 45
    Max = 50
    Min = 1
    PageSize = 1
    Position = 10
    TabOrder = 4
    OnChange = TrackBar1Change
  end
  object TrackBar2: TTrackBar
    Left = 104
    Top = 296
    Width = 297
    Height = 45
    Max = 50
    Min = 1
    PageSize = 1
    Position = 10
    TabOrder = 5
    OnChange = TrackBar2Change
  end
  object Button2: TButton
    Left = 88
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 6
    OnClick = Button2Click
  end
  object SincFilter1: TSincFilter
    Input = WaveIn1
    FilterType = ftLowPass
    HighFreq = 12000
    KernelWidth = 61
    LowFreq = 4000
    WindowType = fwHann
    Left = 200
    Top = 208
  end
  object AudioOut1: TAudioOut
    Input = SincFilter1
    SuspendWhenIdle = True
    OnDone = AudioOut1Done
    OnProgress = AudioOut1Progress
    BaseChannel = 0
    Volume = 255
    Left = 232
    Top = 208
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Wave files|*.wav'
    FilterIndex = 0
    Height = 0
    Width = 0
    Left = 128
    Top = 208
  end
  object WaveIn1: TWaveIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 168
    Top = 208
  end
end