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