Chip 1998 March/Chip_1998-03_cd.bin/zkuste/matemat/Vyssi/FOURIER.ZIP/exmpl-2/cpp/mainfrm.dfm/mainfrm.txt

Text File | 1997-07-11 | 6.6 KB | 305 lines

object Form1: TForm1
  Left = 330
  Top = 218
  Width = 663
  Height = 476
  Caption = 'Fourier Synthesis by Inverse FFT'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 12
    Top = 144
    Width = 181
    Height = 16
    AutoSize = False
    Caption = 'x0    x1    x2   x3   x4    x5   x6    x7'
  end
  object RChart1: TRChart
    Left = 208
    Top = 16
    Width = 441
    Height = 421
    AutoRedraw = True
    BackGroundImg.IncludePath = False
    BackGroundImg.FillMode = bfStretch
    ClassDefault = 0
    DecPlaceX = 0
    GridStyle = gsDotLines
    GridDx = 100.000000000000000000
    GridDy = 1.000000000000000000
    RangeHiX = 512.000000000000000000
    RangeLoY = -5.000000000000000000
    RangeHiY = 5.000000000000000000
    GridColor = clSilver
    LogScaleX = False
    LogScaleY = False
    MouseAction = maZoomDrag
    MouseCursorFixed = False
    ShadowWidth = 10
    ShadowStyle = ssFlying
    ShadowColor = clGray
    ShadowBakColor = clBtnFace
    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 ScrollBar1: TScrollBar
    Left = 12
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 0
    OnChange = ScrollBar1Change
  end
  object ScrollBar2: TScrollBar
    Left = 35
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 1
    OnChange = ScrollBar1Change
  end
  object ScrollBar3: TScrollBar
    Left = 59
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 2
    OnChange = ScrollBar1Change
  end
  object ScrollBar4: TScrollBar
    Left = 82
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 3
    OnChange = ScrollBar1Change
  end
  object ScrollBar5: TScrollBar
    Left = 106
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 4
    OnChange = ScrollBar1Change
  end
  object ScrollBar6: TScrollBar
    Left = 129
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 5
    OnChange = ScrollBar1Change
  end
  object ScrollBar7: TScrollBar
    Left = 153
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 6
    OnChange = ScrollBar1Change
  end
  object ScrollBar8: TScrollBar
    Left = 176
    Top = 10
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 7
    OnChange = ScrollBar1Change
  end
  object ScrollBar9: TScrollBar
    Left = 12
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 8
    OnChange = ScrollBar1Change
  end
  object ScrollBar10: TScrollBar
    Left = 35
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 9
    OnChange = ScrollBar1Change
  end
  object ScrollBar11: TScrollBar
    Left = 59
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 10
    OnChange = ScrollBar1Change
  end
  object ScrollBar12: TScrollBar
    Left = 82
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 11
    OnChange = ScrollBar1Change
  end
  object ScrollBar13: TScrollBar
    Left = 106
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 12
    OnChange = ScrollBar1Change
  end
  object ScrollBar14: TScrollBar
    Left = 129
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 13
    OnChange = ScrollBar1Change
  end
  object ScrollBar15: TScrollBar
    Left = 153
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 14
    OnChange = ScrollBar1Change
  end
  object ScrollBar16: TScrollBar
    Left = 176
    Top = 170
    Width = 13
    Height = 121
    Kind = sbVertical
    Min = -100
    TabOrder = 15
    OnChange = ScrollBar1Change
  end
  object BButSquare: TBitBtn
    Left = 12
    Top = 312
    Width = 89
    Height = 28
    Caption = 'Square'
    TabOrder = 16
    OnClick = BButSquareClick
  end
  object BButHalfSine: TBitBtn
    Left = 104
    Top = 312
    Width = 89
    Height = 28
    Caption = 'Half Sine'
    TabOrder = 17
    OnClick = BButHalfSineClick
  end
  object BButTriangle: TBitBtn
    Left = 104
    Top = 344
    Width = 89
    Height = 28
    Caption = 'Triangle'
    TabOrder = 18
    OnClick = BButTriangleClick
  end
  object BButSaw: TBitBtn
    Left = 12
    Top = 344
    Width = 89
    Height = 28
    Caption = 'Saw Tooth'
    TabOrder = 19
    OnClick = BButSawClick
  end
  object BButExit: TBitBtn
    Left = 12
    Top = 392
    Width = 89
    Height = 28
    Caption = 'Exit'
    TabOrder = 20
    OnClick = BButExitClick
    Glyph.Data = {
      72010000424D7201000000000000760000002800000015000000150000000100
      0400000000000000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888888880880000000000000008888880880EEEEEEEEEEE00088888808806
      66666666E0008888888088066666666E000888888880880666666666E0888888
      88808806666666666E088888888088066666666666E088888880880666666666
      666E088880008806666666666666E088800088066446666666666E0882018806
      40446666666666E0888088040004466666666600030988000080446666666000
      8888880008880446666600088988880088888044666000888910888888888804
      4600088885F08888888888804000888885F08888888888880008888885F08888
      888888888088888885F08888888888888888888885F0}
  end
  object BButReset: TBitBtn
    Left = 104
    Top = 392
    Width = 89
    Height = 28
    Caption = 'Reset'
    TabOrder = 21
    OnClick = BButResetClick
  end
  object FastFourier1: TFastFourier
    SpectrumSize = 256
    WeightingWindow = fwTriangle
    Left = 616
    Top = 416
  end
end