object Form9: TForm9 Left = 61 Top = 24 BorderStyle = bsDialog Caption = 'Advanced filter' ClientHeight = 314 ClientWidth = 426 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Bevel3: TBevel Left = 336 Top = 45 Width = 73 Height = 71 end object Shape1: TShape Left = 24 Top = 40 Width = 1 Height = 41 Brush.Style = bsClear Pen.Color = clRed end object Bevel1: TBevel Left = 24 Top = 16 Width = 2 Height = 81 Shape = bsLeftLine end object Label1: TLabel Left = 16 Top = 88 Width = 22 Height = 13 Caption = '0 Hz' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 272 Top = 88 Width = 25 Height = 13 Caption = 'Fm/2' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 24 Top = 120 Width = 113 Height = 13 Caption = '&Low cut frequency (Hz):' FocusControl = TrackBar1 end object Label5: TLabel Left = 24 Top = 168 Width = 112 Height = 13 Caption = '&High cut frequency (Hz)' FocusControl = TrackBar1 end object Label4: TLabel Left = 264 Top = 239 Width = 25 Height = 22 Caption = '0.0' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 160 Top = 224 Width = 36 Height = 13 Caption = '&RATIO:' FocusControl = TrackBar3 end object Bevel2: TBevel Left = 16 Top = 80 Width = 300 Height = 2 Shape = bsTopLine end object Label7: TLabel Left = 321 Top = 12 Width = 71 Height = 13 Alignment = taRightJustify Caption = 'Advanced filter' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 24 Top = 224 Width = 63 Height = 13 Caption = '&Window size:' end object Label9: TLabel Left = 24 Top = 264 Width = 57 Height = 13 Caption = '&Overlap (%):' end object button3: TSpeedButton Left = 344 Top = 53 Width = 57 Height = 25 Caption = '&FFT' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777F7778888 87777700000077FF777777778887770000007777FF00000FF0088700000070FF F00F0000FF0088000000700FF0FF0000FF00000000007700F00F000000000000 00007F000000000000000800000077F000000000000888000000707F00000000 0888870000007000FFFF777888888700000077F00FFF7778888777000000F77F 00778888887777000000F777F0077777777770000000F7777F00777777770000 0000FF7777F000777700080000008FF7777FF00000088800000078FF77777778 888888000000} ParentFont = False OnClick = Button3Click end object button4: TSpeedButton Left = 344 Top = 83 Width = 57 Height = 25 Caption = '&LOG' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDD1 DDDDDDDDDDDDD0000000DD818DDDD444DD44D0000000DD181DDD44DD4488D000 0000D81D1DD44DDDD4DDD0000000118D1DD44DDDD4DDD0000000D18D18D44DDD D48DD0000000DDDD81DD44DD4448D0000000DDDDD1DDD4448D84D0000000DDDD D1DDDDDDDDDDD0000000DDDDD18888888888D0000000DDDDD11111111111D000 0000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD DDDDD0000000} ParentFont = False OnClick = Button4Click end object Label10: TLabel Left = 160 Top = 264 Width = 65 Height = 13 Caption = '&Window type:' end object TrackBar1: TTrackBar Left = 16 Top = 136 Width = 150 Height = 25 Min = 1 Orientation = trHorizontal Frequency = 1 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 0 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar1Change end object TrackBar2: TTrackBar Left = 16 Top = 184 Width = 150 Height = 25 Min = 1 Orientation = trHorizontal Frequency = 1 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 1 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar2Change end object RadioGroup1: TRadioGroup Left = 256 Top = 120 Width = 154 Height = 105 Caption = 'Action:' ItemIndex = 0 Items.Strings = ( 'Delete' 'Boost' 'Decrease' 'Band Pass Filter') TabOrder = 2 OnClick = RadioGroup1Click end object Button1: TButton Left = 335 Top = 242 Width = 75 Height = 25 Caption = '&OK' TabOrder = 3 OnClick = Button1Click end object Button2: TButton Left = 335 Top = 276 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' TabOrder = 4 OnClick = Button2Click end object Edit1: TEdit Left = 176 Top = 136 Width = 49 Height = 27 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] MaxLength = 5 ParentFont = False TabOrder = 5 Text = '1' OnExit = Edit1Exit OnKeyPress = Edit1KeyPress end object Edit2: TEdit Left = 176 Top = 184 Width = 49 Height = 27 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] MaxLength = 5 ParentFont = False TabOrder = 6 Text = '1' OnExit = Edit2Exit OnKeyPress = Edit2KeyPress end object TrackBar3: TTrackBar Left = 153 Top = 238 Width = 100 Height = 25 Max = 100 Orientation = trHorizontal Frequency = 1 Position = 50 SelEnd = 0 SelStart = 0 TabOrder = 7 TickMarks = tmBottomRight TickStyle = tsNone OnChange = TrackBar3Change end object ComboBox1: TComboBox Left = 24 Top = 240 Width = 105 Height = 21 ItemHeight = 13 Items.Strings = ( '4096' '2048' '1024' '512') TabOrder = 8 Text = '2048' OnChange = ComboBox1Change end object ComboBox2: TComboBox Left = 24 Top = 280 Width = 113 Height = 21 ItemHeight = 13 Items.Strings = ( '50' '40' '30' '20' '10' '0') TabOrder = 9 Text = '50' OnChange = ComboBox2Change end object ComboBox3: TComboBox Left = 160 Top = 280 Width = 129 Height = 21 ItemHeight = 13 Items.Strings = ( 'Rectangular' 'Barlett' 'Hanning' 'Hamming' 'Blackman') TabOrder = 10 Text = 'Rectangular' OnChange = ComboBox3Change end end