PC World 1999 October/PCWorld_1999-10_cd1.bin/Software/Vyzkuste/Waveflow/Waveflow.exe/0/RCDATA/TFORM9/TFORM9.txt

Text File | 1999-08-29 | 8KB | 365 lines

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 = {<image000.ico>}
  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