home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 342
- Top = 210
- Width = 577
- Height = 413
- Caption = 'FFT'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnActivate = FormActivate
- PixelsPerInch = 120
- TextHeight = 16
- object RChart1: TRChart
- Left = 120
- Top = 9
- Width = 441
- Height = 168
- AutoRedraw = True
- BackGroundImg.IncludePath = False
- BackGroundImg.FillMode = bfStretch
- ClassDefault = 0
- GridStyle = gsNone
- GridDx = 1.000000000000000000
- GridDy = 1.000000000000000000
- RangeHiX = 500.000000000000000000
- RangeLoY = -50.000000000000000000
- RangeHiY = 50.000000000000000000
- WindColor = clBtnFace
- Caption = 'Signal to be analysed'
- LogScaleX = False
- LogScaleY = False
- MouseAction = maNone
- MouseCursorFixed = True
- ShadowStyle = ssFlying
- ShadowColor = clGray
- ShadowBakColor = clSilver
- ShortTicksX = True
- ShortTicksY = True
- TextFontStyle = []
- TextBkStyle = tbClear
- TextBkColor = clWhite
- XLabelType = ftNum
- YLabelType = ftNum
- DTXFormat.TimeFormat = tfHHMMSS
- DTXFormat.DateSeparator = '-'
- DTXFormat.TimeSeparator = ':'
- DTXFormat.YearLength = ylYYYY
- DTXFormat.MonthName = True
- DTXFormat.DateOrder = doDDMMYY
- DTXFormat.DateForTime = dtOnePerDay
- DTYFormat.TimeFormat = tfHHMMSS
- DTYFormat.DateSeparator = '-'
- DTYFormat.TimeSeparator = ':'
- DTYFormat.YearLength = ylYYYY
- DTYFormat.MonthName = True
- DTYFormat.DateOrder = doDDMMYY
- DTYFormat.DateForTime = dtOnePerDay
- end
- object RChart2: TRChart
- Left = 120
- Top = 185
- Width = 441
- Height = 192
- AutoRedraw = True
- LRim = 70
- BackGroundImg.IncludePath = False
- BackGroundImg.FillMode = bfStretch
- ClassDefault = 0
- DecPlaceY = 2
- GridStyle = gsNone
- GridDx = 1.000000000000000000
- GridDy = 1.000000000000000000
- RangeLoX = 1.000000000000000000
- RangeHiX = 140.000000000000000000
- RangeLoY = 0.000010000000000000
- RangeHiY = 1.000000000000000000
- WindColor = clBtnFace
- Caption = 'Fourier power spectrum of signal above'
- LogScaleX = False
- LogScaleY = False
- MouseAction = maNone
- MouseCursorFixed = True
- ShadowStyle = ssFlying
- ShadowColor = clGray
- ShadowBakColor = clSilver
- ShortTicksX = True
- ShortTicksY = True
- TextFontStyle = []
- TextBkStyle = tbClear
- TextBkColor = clWhite
- XLabelType = ftNum
- YLabelType = ftNum
- DTXFormat.TimeFormat = tfHHMMSS
- DTXFormat.DateSeparator = '-'
- DTXFormat.TimeSeparator = ':'
- DTXFormat.YearLength = ylYYYY
- DTXFormat.MonthName = True
- DTXFormat.DateOrder = doDDMMYY
- DTXFormat.DateForTime = dtOnePerDay
- DTYFormat.TimeFormat = tfHHMMSS
- DTYFormat.DateSeparator = '-'
- DTYFormat.TimeSeparator = ':'
- DTYFormat.YearLength = ylYYYY
- DTYFormat.MonthName = True
- DTYFormat.DateOrder = doDDMMYY
- DTYFormat.DateForTime = dtOnePerDay
- end
- object Label1: TLabel
- Left = 17
- Top = 8
- Width = 36
- Height = 16
- Caption = 'Noise'
- end
- object Label2: TLabel
- Left = 72
- Top = 8
- Width = 31
- Height = 16
- Caption = 'Freq.'
- end
- object Label3: TLabel
- Left = 8
- Top = 224
- Width = 111
- Height = 16
- Caption = 'Weighting Window'
- end
- object ScrollBar1: TScrollBar
- Left = 24
- Top = 33
- Width = 15
- Height = 168
- Kind = sbVertical
- Position = 100
- TabOrder = 0
- OnChange = ScrollBar1Change
- end
- object SBFreq1: TScrollBar
- Left = 81
- Top = 33
- Width = 15
- Height = 168
- Kind = sbVertical
- Position = 100
- TabOrder = 1
- OnChange = SBFreq1Change
- end
- object BButExit: TBitBtn
- Left = 8
- Top = 344
- Width = 105
- Height = 33
- Caption = 'Exit'
- TabOrder = 2
- OnClick = BButExitClick
- Glyph.Data = {
- 72010000424D7201000000000000760000002800000015000000150000000100
- 0400000000000000000000000000000000000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 888888888880880000000000000008888880880EEEEEEEEEEE00088888808806
- 66666666E0008888888088066666666E000888888880880666666666E0888888
- 88808806666666666E088888888088066666666666E088888880880666666666
- 666E088880008806666666666666E088800088066446666666666E0882018806
- 40446666666666E0888088040004466666666600030988000080446666666000
- 8888880008880446666600088988880088888044666000888910888888888804
- 4600088885F08888888888804000888885F08888888888880008888885F08888
- 888888888088888885F08888888888888888888885F0}
- end
- object CBLogY: TCheckBox
- Left = 24
- Top = 312
- Width = 89
- Height = 17
- Caption = 'log. y axis'
- TabOrder = 3
- OnClick = CBLogYClick
- end
- object CBoxWind: TComboBox
- Left = 8
- Top = 244
- Width = 109
- Height = 24
- Style = csDropDownList
- ItemHeight = 16
- Items.Strings = (
- 'Blackman'
- 'cos2'
- 'Gaussian'
- 'Hamming'
- 'Rectangle'
- 'Triangle')
- Sorted = True
- TabOrder = 4
- OnChange = CBoxWindChange
- end
- object FFT1: TFastFourier
- SpectrumSize = 512
- WeightingWindow = fwRectangle
- Left = 48
- Top = 128
- end
- end
-