home *** CD-ROM | disk | FTP | other *** search
- object Form9: TForm9
- Left = 287
- Top = 98
- BorderStyle = bsDialog
- Caption = 'Advanced filter'
- ClientHeight = 391
- ClientWidth = 416
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 416
- Height = 27
- Stretch = True
- end
- object Image3: TImage
- Left = 226
- Top = 0
- Width = 190
- Height = 391
- Align = alRight
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Bevel3: TBevel
- Left = 328
- Top = 77
- Width = 73
- Height = 71
- end
- object Shape1: TShape
- Left = 16
- Top = 72
- Width = 1
- Height = 41
- Brush.Style = bsClear
- Pen.Color = clRed
- end
- object Bevel1: TBevel
- Left = 16
- Top = 48
- Width = 2
- Height = 81
- Shape = bsLeftLine
- end
- object Label1: TLabel
- Left = 8
- Top = 120
- 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 = 264
- Top = 120
- 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 = 16
- Top = 152
- Width = 113
- Height = 13
- Caption = '&Low cut frequency (Hz):'
- FocusControl = TrackBar1
- end
- object Label5: TLabel
- Left = 16
- Top = 200
- Width = 112
- Height = 13
- Caption = '&High cut frequency (Hz)'
- FocusControl = TrackBar1
- end
- object Label4: TLabel
- Left = 240
- Top = 271
- 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 = 144
- Top = 256
- Width = 36
- Height = 13
- Caption = '&RATIO:'
- FocusControl = TrackBar3
- end
- object Bevel2: TBevel
- Left = 8
- Top = 112
- Width = 300
- Height = 2
- Shape = bsTopLine
- end
- object Label7: TLabel
- Left = 313
- Top = 44
- 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 = 16
- Top = 256
- Width = 63
- Height = 13
- Caption = '&Window size:'
- end
- object Label9: TLabel
- Left = 16
- Top = 296
- Width = 57
- Height = 13
- Caption = '&Overlap (%):'
- end
- object button3: TSpeedButton
- Left = 336
- Top = 85
- 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 = 336
- Top = 115
- 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 = 144
- Top = 296
- Width = 65
- Height = 13
- Caption = 'Window &type:'
- end
- object Label11: TLabel
- Left = 16
- Top = 337
- Width = 80
- Height = 13
- Caption = '&Stored Filters:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel4: TBevel
- Left = 288
- Top = 264
- Width = 114
- Height = 80
- end
- object SpeedButton1: TSpeedButton
- Left = 296
- Top = 352
- Width = 23
- Height = 22
- Hint = 'Store Filter'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330080
- 8800333333338888888833333333007077003333333388F83388333333330077
- 77003333333388FFFF8833333333000000003FFFFFFF88888888000000000000
- 000088888888888888880FFFFFFF0FFFFFF08F3333338F3333380F0FFFFF0FFF
- FFF08F3333338FFFFFF8000000080CCC9CC08F333333888888880F0FFF9FF039
- 99338F33333338F888F30F09F9F9909999938F3333333888888F0F0F9FFFF999
- 99998F3333FFF88888880F0FF000003999338F333888883888F30F0FF0FF0339
- 99338F3338F3833888F30FFFF0F0338999338F3338F83F8888330FFFF0039999
- 93338FFFF8838888833300000033333333338888883333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 319
- Top = 352
- Width = 23
- Height = 22
- Hint = 'Delete Stored Filter'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777777777777777777777778777777777787777F7777777777F7779887777777
- 7977778FF77777777877799988777777F8777888FF7777777F77F99998777777
- 977778888F7777778777FF9998877779877777888FF77778F7777FF999887799
- 7777777888FF7788777777FF9998899777777777888FF88F7777777FF9999977
- 777777777888887777777777FF9998877777777777888F777777777779999988
- 77777777788888FF77777778999FF9988777777F8887788FF77777999977FF99
- 8877778888777788FF77799997777FF997877888877777788777F999777777FF
- 7F777888777777777777FFF777777777F7777777777777777777}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton2Click
- end
- object Image2: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- end
- object TrackBar1: TTrackBar
- Left = 8
- Top = 168
- Width = 209
- Height = 25
- Max = 11025
- Min = 1
- Orientation = trHorizontal
- Frequency = 1000
- Position = 1
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object TrackBar2: TTrackBar
- Left = 8
- Top = 216
- Width = 209
- Height = 25
- Max = 11025
- Min = 1
- Orientation = trHorizontal
- Frequency = 1000
- Position = 1
- SelEnd = 0
- SelStart = 0
- TabOrder = 1
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- object RadioGroup1: TRadioGroup
- Left = 287
- Top = 152
- Width = 114
- Height = 105
- Caption = '&Action:'
- ItemIndex = 0
- Items.Strings = (
- 'Delete'
- 'Boost'
- 'Decrease'
- 'Band Pass Filter')
- TabOrder = 2
- OnClick = RadioGroup1Click
- end
- object Button1: TButton
- Left = 311
- Top = 274
- Width = 75
- Height = 25
- Caption = 'O&K'
- TabOrder = 3
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 311
- Top = 308
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 4
- OnClick = Button2Click
- end
- object Edit1: TEdit
- Left = 224
- Top = 168
- 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 = 224
- Top = 216
- 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 = 137
- Top = 270
- Width = 100
- Height = 25
- Max = 100
- Orientation = trHorizontal
- Frequency = 1
- Position = 50
- SelEnd = 0
- SelStart = 0
- TabOrder = 7
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsNone
- OnChange = TrackBar3Change
- end
- object ComboBox1: TComboBox
- Left = 16
- Top = 272
- Width = 105
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- '4096'
- '2048'
- '1024'
- '512')
- TabOrder = 8
- Text = '2048'
- OnChange = ComboBox1Change
- end
- object ComboBox2: TComboBox
- Left = 16
- Top = 312
- 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 = 144
- Top = 312
- Width = 129
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'Rectangular'
- 'Barlett'
- 'Hanning'
- 'Hamming'
- 'Blackman')
- TabOrder = 10
- Text = 'Rectangular'
- OnChange = ComboBox3Change
- end
- object ComboBox4: TComboBox
- Left = 16
- Top = 352
- Width = 257
- Height = 21
- Color = 13167615
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ItemHeight = 13
- ParentFont = False
- TabOrder = 11
- OnChange = ComboBox4Change
- OnKeyPress = ComboBox4KeyPress
- end
- object SaveDialog1: TSaveDialog
- Filter = 'Wave Flow Filter (*.wff)|*.wff'
- Title = 'Store Filter As...'
- Left = 376
- Top = 352
- end
- end
-