📄 main.dfm
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -