main.dfm

delphi audio 处理控件

object Form1: TForm1
  Left = 71
  Top = 141
  Width = 408
  Height = 406
  Caption = 'Sinc Filter Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 56
    Width = 21
    Height = 13
    Caption = 'Mag'
  end
  object Label2: TLabel
    Left = 40
    Top = 208
    Width = 21
    Height = 13
    Caption = 'Freq'
  end
  object Label3: TLabel
    Left = 8
    Top = 248
    Width = 54
    Height = 13
    Caption = 'Low Cut-off'
  end
  object Label4: TLabel
    Left = 8
    Top = 296
    Width = 56
    Height = 13
    Caption = 'High Cut-off'
  end
  object Button1: TButton
    Left = 8
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Play...'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ProgressBar1: TProgressBar
    Left = 80
    Top = 352
    Width = 289
    Height = 17
    Min = 0
    Max = 100
    Step = 2
    TabOrder = 1
  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
    Caption = ' Filter Type '
    ItemIndex = 0
    Items.Strings = (
      'Low pass'
      'High pass'
      'Band pass'
      'Band reject'
      'All pass')
    TabOrder = 3
    OnClick = RadioGroup1Click
  end
  object TrackBar1: TTrackBar
    Left = 80
    Top = 248
    Width = 297
    Height = 45
    Max = 50
    Min = 1
    Orientation = trHorizontal
    PageSize = 1
    Frequency = 1
    Position = 15
    SelEnd = 0
    SelStart = 0
    TabOrder = 4
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBar1Change
  end
  object TrackBar2: TTrackBar
    Left = 80
    Top = 296
    Width = 297
    Height = 45
    Max = 50
    Min = 1
    Orientation = trHorizontal
    PageSize = 1
    Frequency = 1
    Position = 25
    SelEnd = 0
    SelStart = 0
    TabOrder = 5
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    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'
    Left = 128
    Top = 208
  end
  object WaveIn1: TWaveIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 168
    Top = 208
  end
end