home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / matemat / Vyssi / FOURIER.ZIP / exmpl-1 / pas / FRMFFT.dfm / FRMFFT.txt
Encoding:
Text File  |  1997-07-13  |  5.2 KB  |  208 lines

  1. object Form1: TForm1
  2.   Left = 342
  3.   Top = 210
  4.   Width = 577
  5.   Height = 413
  6.   Caption = 'FFT'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   Scaled = False
  13.   OnActivate = FormActivate
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object RChart1: TRChart
  17.     Left = 120
  18.     Top = 9
  19.     Width = 441
  20.     Height = 168
  21.     AutoRedraw = True
  22.     BackGroundImg.IncludePath = False
  23.     BackGroundImg.FillMode = bfStretch
  24.     ClassDefault = 0
  25.     GridStyle = gsNone
  26.     GridDx = 1.000000000000000000
  27.     GridDy = 1.000000000000000000
  28.     RangeHiX = 500.000000000000000000
  29.     RangeLoY = -50.000000000000000000
  30.     RangeHiY = 50.000000000000000000
  31.     WindColor = clBtnFace
  32.     Caption = 'Signal to be analysed'
  33.     LogScaleX = False
  34.     LogScaleY = False
  35.     MouseAction = maNone
  36.     MouseCursorFixed = True
  37.     ShadowStyle = ssFlying
  38.     ShadowColor = clGray
  39.     ShadowBakColor = clSilver
  40.     ShortTicksX = True
  41.     ShortTicksY = True
  42.     TextFontStyle = []
  43.     TextBkStyle = tbClear
  44.     TextBkColor = clWhite
  45.     XLabelType = ftNum
  46.     YLabelType = ftNum
  47.     DTXFormat.TimeFormat = tfHHMMSS
  48.     DTXFormat.DateSeparator = '-'
  49.     DTXFormat.TimeSeparator = ':'
  50.     DTXFormat.YearLength = ylYYYY
  51.     DTXFormat.MonthName = True
  52.     DTXFormat.DateOrder = doDDMMYY
  53.     DTXFormat.DateForTime = dtOnePerDay
  54.     DTYFormat.TimeFormat = tfHHMMSS
  55.     DTYFormat.DateSeparator = '-'
  56.     DTYFormat.TimeSeparator = ':'
  57.     DTYFormat.YearLength = ylYYYY
  58.     DTYFormat.MonthName = True
  59.     DTYFormat.DateOrder = doDDMMYY
  60.     DTYFormat.DateForTime = dtOnePerDay
  61.   end
  62.   object RChart2: TRChart
  63.     Left = 120
  64.     Top = 185
  65.     Width = 441
  66.     Height = 192
  67.     AutoRedraw = True
  68.     LRim = 70
  69.     BackGroundImg.IncludePath = False
  70.     BackGroundImg.FillMode = bfStretch
  71.     ClassDefault = 0
  72.     DecPlaceY = 2
  73.     GridStyle = gsNone
  74.     GridDx = 1.000000000000000000
  75.     GridDy = 1.000000000000000000
  76.     RangeLoX = 1.000000000000000000
  77.     RangeHiX = 140.000000000000000000
  78.     RangeLoY = 0.000010000000000000
  79.     RangeHiY = 1.000000000000000000
  80.     WindColor = clBtnFace
  81.     Caption = 'Fourier power spectrum of signal above'
  82.     LogScaleX = False
  83.     LogScaleY = False
  84.     MouseAction = maNone
  85.     MouseCursorFixed = True
  86.     ShadowStyle = ssFlying
  87.     ShadowColor = clGray
  88.     ShadowBakColor = clSilver
  89.     ShortTicksX = True
  90.     ShortTicksY = True
  91.     TextFontStyle = []
  92.     TextBkStyle = tbClear
  93.     TextBkColor = clWhite
  94.     XLabelType = ftNum
  95.     YLabelType = ftNum
  96.     DTXFormat.TimeFormat = tfHHMMSS
  97.     DTXFormat.DateSeparator = '-'
  98.     DTXFormat.TimeSeparator = ':'
  99.     DTXFormat.YearLength = ylYYYY
  100.     DTXFormat.MonthName = True
  101.     DTXFormat.DateOrder = doDDMMYY
  102.     DTXFormat.DateForTime = dtOnePerDay
  103.     DTYFormat.TimeFormat = tfHHMMSS
  104.     DTYFormat.DateSeparator = '-'
  105.     DTYFormat.TimeSeparator = ':'
  106.     DTYFormat.YearLength = ylYYYY
  107.     DTYFormat.MonthName = True
  108.     DTYFormat.DateOrder = doDDMMYY
  109.     DTYFormat.DateForTime = dtOnePerDay
  110.   end
  111.   object Label1: TLabel
  112.     Left = 17
  113.     Top = 8
  114.     Width = 36
  115.     Height = 16
  116.     Caption = 'Noise'
  117.   end
  118.   object Label2: TLabel
  119.     Left = 72
  120.     Top = 8
  121.     Width = 31
  122.     Height = 16
  123.     Caption = 'Freq.'
  124.   end
  125.   object Label3: TLabel
  126.     Left = 8
  127.     Top = 224
  128.     Width = 111
  129.     Height = 16
  130.     Caption = 'Weighting Window'
  131.   end
  132.   object ScrollBar1: TScrollBar
  133.     Left = 24
  134.     Top = 33
  135.     Width = 15
  136.     Height = 168
  137.     Kind = sbVertical
  138.     Position = 100
  139.     TabOrder = 0
  140.     OnChange = ScrollBar1Change
  141.   end
  142.   object SBFreq1: TScrollBar
  143.     Left = 81
  144.     Top = 33
  145.     Width = 15
  146.     Height = 168
  147.     Kind = sbVertical
  148.     Position = 100
  149.     TabOrder = 1
  150.     OnChange = SBFreq1Change
  151.   end
  152.   object BButExit: TBitBtn
  153.     Left = 8
  154.     Top = 344
  155.     Width = 105
  156.     Height = 33
  157.     Caption = 'Exit'
  158.     TabOrder = 2
  159.     OnClick = BButExitClick
  160.     Glyph.Data = {
  161.       72010000424D7201000000000000760000002800000015000000150000000100
  162.       0400000000000000000000000000000000000000000000000000000000000000
  163.       8000008000000080800080000000800080008080000080808000C0C0C0000000
  164.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  165.       888888888880880000000000000008888880880EEEEEEEEEEE00088888808806
  166.       66666666E0008888888088066666666E000888888880880666666666E0888888
  167.       88808806666666666E088888888088066666666666E088888880880666666666
  168.       666E088880008806666666666666E088800088066446666666666E0882018806
  169.       40446666666666E0888088040004466666666600030988000080446666666000
  170.       8888880008880446666600088988880088888044666000888910888888888804
  171.       4600088885F08888888888804000888885F08888888888880008888885F08888
  172.       888888888088888885F08888888888888888888885F0}
  173.   end
  174.   object CBLogY: TCheckBox
  175.     Left = 24
  176.     Top = 312
  177.     Width = 89
  178.     Height = 17
  179.     Caption = 'log. y axis'
  180.     TabOrder = 3
  181.     OnClick = CBLogYClick
  182.   end
  183.   object CBoxWind: TComboBox
  184.     Left = 8
  185.     Top = 244
  186.     Width = 109
  187.     Height = 24
  188.     Style = csDropDownList
  189.     ItemHeight = 16
  190.     Items.Strings = (
  191.       'Blackman'
  192.       'cos2'
  193.       'Gaussian'
  194.       'Hamming'
  195.       'Rectangle'
  196.       'Triangle')
  197.     Sorted = True
  198.     TabOrder = 4
  199.     OnChange = CBoxWindChange
  200.   end
  201.   object FFT1: TFastFourier
  202.     SpectrumSize = 512
  203.     WeightingWindow = fwRectangle
  204.     Left = 48
  205.     Top = 128
  206.   end
  207. end
  208.