home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / MOVINAVE.DFM / MOVINAVE.txt
Encoding:
Text File  |  1998-10-24  |  8.6 KB  |  305 lines

  1. object MovingAveForm: TMovingAveForm
  2.   Left = 127
  3.   Top = 41
  4.   Width = 555
  5.   Height = 456
  6.   Caption = 'TeeChart MovingAverage Series Demo'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   Scaled = False
  14.   OnCreate = FormCreate
  15.   TextHeight = 13
  16.   object Chart1: TChart
  17.     Left = 0
  18.     Top = 73
  19.     Width = 547
  20.     Height = 356
  21.     AnimatedZoom = True
  22.     BackWall.Brush.Color = clWhite
  23.     BackWall.Brush.Style = bsClear
  24.     Foot.Alignment = taLeftJustify
  25.     Foot.Font.Color = clRed
  26.     Foot.Font.Height = -12
  27.     Foot.Font.Name = 'Arial'
  28.     Foot.Font.Style = [fsItalic]
  29.     Foot.Frame.Color = clScrollBar
  30.     Foot.Text.Strings = (
  31.       
  32.         'Left drag (Up/Down) to Zoom. Right drag to Scroll. Invert Zoom r' +
  33.         'ectangle to reset.')
  34.     Foot.Visible = False
  35.     Gradient.Direction = gdBottomTop
  36.     Title.Alignment = taRightJustify
  37.     Title.Font.Color = clBlue
  38.     Title.Font.Height = -16
  39.     Title.Font.Name = 'Arial'
  40.     Title.Font.Style = [fsItalic]
  41.     Title.Frame.Color = clScrollBar
  42.     Title.Text.Strings = (
  43.       'This demo shows some Moving Averages based on the Red line.')
  44.     BottomAxis.DateTimeFormat = 'd/MM/yy'
  45.     BottomAxis.Increment = 30.000000000000000000
  46.     BottomAxis.LabelsAngle = 90
  47.     BottomAxis.LabelsFont.Color = clTeal
  48.     BottomAxis.LabelsFont.Height = -12
  49.     BottomAxis.LabelsFont.Name = 'Arial'
  50.     BottomAxis.LabelsFont.Style = []
  51.     BottomAxis.EndPosition = 100.000000000000000000
  52.     BottomAxis.Title.Caption = 'Stock Market Date'
  53.     BottomAxis.Title.Font.Color = clGreen
  54.     BottomAxis.Title.Font.Height = -16
  55.     BottomAxis.Title.Font.Name = 'Arial'
  56.     BottomAxis.Title.Font.Style = [fsItalic]
  57.     LeftAxis.LabelsFont.Color = clWhite
  58.     LeftAxis.LabelsFont.Height = -13
  59.     LeftAxis.LabelsFont.Name = 'Arial'
  60.     LeftAxis.LabelsFont.Style = []
  61.     LeftAxis.EndPosition = 100.000000000000000000
  62.     LeftAxis.Title.Caption = 'Stock Price'
  63.     LeftAxis.Title.Font.Color = clNavy
  64.     LeftAxis.Title.Font.Height = -15
  65.     LeftAxis.Title.Font.Name = 'Arial'
  66.     LeftAxis.Title.Font.Style = [fsBold]
  67.     Legend.Alignment = laBottom
  68.     RightAxis.EndPosition = 100.000000000000000000
  69.     TopAxis.EndPosition = 100.000000000000000000
  70.     View3D = False
  71.     Align = alClient
  72.     Color = clSilver
  73.     TabOrder = 0
  74.     object PriceLine: TLineSeries
  75.       Marks.ArrowLength = 8
  76.       Marks.Frame.Color = 8454143
  77.       Marks.Visible = False
  78.       SeriesColor = clRed
  79.       Pointer.InflateMargins = True
  80.       Pointer.Style = psRectangle
  81.       Pointer.Visible = False
  82.       XValues.DateTime = True
  83.       XValues.Name = 'X'
  84.       XValues.Multiplier = 1.000000000000000000
  85.       XValues.Order = loAscending
  86.       YValues.DateTime = False
  87.       YValues.Name = 'Y'
  88.       YValues.Multiplier = 1.000000000000000000
  89.       YValues.Order = loNone
  90.       Left = 92
  91.       Top = 80
  92.     end
  93.     object CurveFittingSeries1: TLineSeries
  94.       Marks.ArrowLength = 8
  95.       Marks.Visible = False
  96.       DataSource = PriceLine
  97.       SeriesColor = clAqua
  98.       Pointer.InflateMargins = True
  99.       Pointer.Style = psRectangle
  100.       Pointer.Visible = False
  101.       XValues.DateTime = True
  102.       XValues.Name = 'X'
  103.       XValues.Multiplier = 1.000000000000000000
  104.       XValues.Order = loAscending
  105.       YValues.DateTime = False
  106.       YValues.Name = 'Y'
  107.       YValues.Multiplier = 1.000000000000000000
  108.       YValues.Order = loNone
  109.       object TeeFunction1: TCurveFittingFunction
  110.         Period = 1.000000000000000000
  111.       end
  112.     end
  113.     object MovingAverageSeries1: TLineSeries
  114.       Marks.ArrowLength = 8
  115.       Marks.Visible = False
  116.       DataSource = PriceLine
  117.       SeriesColor = clLime
  118.       Pointer.InflateMargins = True
  119.       Pointer.Style = psRectangle
  120.       Pointer.Visible = False
  121.       XValues.DateTime = True
  122.       XValues.Name = 'X'
  123.       XValues.Multiplier = 1.000000000000000000
  124.       XValues.Order = loAscending
  125.       YValues.DateTime = False
  126.       YValues.Name = 'Y'
  127.       YValues.Multiplier = 1.000000000000000000
  128.       YValues.Order = loNone
  129.       object MovingAverageFunction1: TMovingAverageFunction
  130.         Period = 20.000000000000000000
  131.       end
  132.     end
  133.     object ExpAverageSeries1: TLineSeries
  134.       Marks.ArrowLength = 8
  135.       Marks.Visible = False
  136.       DataSource = PriceLine
  137.       SeriesColor = clBlue
  138.       Pointer.InflateMargins = True
  139.       Pointer.Style = psRectangle
  140.       Pointer.Visible = False
  141.       XValues.DateTime = True
  142.       XValues.Name = 'X'
  143.       XValues.Multiplier = 1.000000000000000000
  144.       XValues.Order = loAscending
  145.       YValues.DateTime = False
  146.       YValues.Name = 'Y'
  147.       YValues.Multiplier = 1.000000000000000000
  148.       YValues.Order = loNone
  149.       object ExpAverageFunction1: TExpAverageFunction
  150.         Period = 1.000000000000000000
  151.         Weight = 0.200000000000000000
  152.       end
  153.     end
  154.     object MovingAverageSeries2: TLineSeries
  155.       Marks.ArrowLength = 8
  156.       Marks.Visible = False
  157.       DataSource = PriceLine
  158.       SeriesColor = clYellow
  159.       Pointer.InflateMargins = True
  160.       Pointer.Style = psRectangle
  161.       Pointer.Visible = False
  162.       XValues.DateTime = True
  163.       XValues.Name = 'X'
  164.       XValues.Multiplier = 1.000000000000000000
  165.       XValues.Order = loAscending
  166.       YValues.DateTime = False
  167.       YValues.Name = 'Y'
  168.       YValues.Multiplier = 1.000000000000000000
  169.       YValues.Order = loNone
  170.       object MovingAverageFunction2: TMovingAverageFunction
  171.         Period = 40.000000000000000000
  172.       end
  173.     end
  174.   end
  175.   object Panel1: TPanel
  176.     Left = 0
  177.     Top = 0
  178.     Width = 547
  179.     Height = 73
  180.     Align = alTop
  181.     TabOrder = 1
  182.     object Label1: TLabel
  183.       Left = 17
  184.       Top = 44
  185.       Width = 65
  186.       Height = 13
  187.       Caption = 'Green Period:'
  188.     end
  189.     object Label2: TLabel
  190.       Left = 176
  191.       Top = 44
  192.       Width = 67
  193.       Height = 13
  194.       Caption = 'Yellow Period:'
  195.     end
  196.     object Label3: TLabel
  197.       Left = 314
  198.       Top = 9
  199.       Width = 108
  200.       Height = 13
  201.       Caption = 'Blue Expon. Weight %:'
  202.     end
  203.     object CheckBox1: TCheckBox
  204.       Left = 20
  205.       Top = 12
  206.       Width = 121
  207.       Height = 17
  208.       Caption = '&Animate !!!'
  209.       Font.Color = clBlack
  210.       Font.Height = -19
  211.       Font.Name = 'Arial'
  212.       Font.Style = [fsBold]
  213.       ParentFont = False
  214.       TabOrder = 0
  215.       OnClick = CheckBox1Click
  216.     end
  217.     object SpinEdit1: TSpinEdit
  218.       Left = 97
  219.       Top = 41
  220.       Width = 44
  221.       Height = 22
  222.       MaxValue = 1000
  223.       MinValue = 1
  224.       TabOrder = 1
  225.       Value = 20
  226.       OnChange = SpinEdit1Change
  227.     end
  228.     object SpinEdit2: TSpinEdit
  229.       Left = 252
  230.       Top = 41
  231.       Width = 45
  232.       Height = 22
  233.       MaxValue = 1000
  234.       MinValue = 1
  235.       TabOrder = 2
  236.       Value = 40
  237.       OnChange = SpinEdit2Change
  238.     end
  239.     object SpinEdit3: TSpinEdit
  240.       Left = 430
  241.       Top = 5
  242.       Width = 43
  243.       Height = 22
  244.       Increment = 5
  245.       MaxValue = 100
  246.       MinValue = 1
  247.       TabOrder = 3
  248.       Value = 20
  249.       OnChange = SpinEdit3Change
  250.     end
  251.     object CheckBox3: TCheckBox
  252.       Left = 334
  253.       Top = 44
  254.       Width = 97
  255.       Height = 17
  256.       Caption = 'Fun !'
  257.       Font.Color = clNavy
  258.       Font.Height = -21
  259.       Font.Name = 'Arial'
  260.       Font.Style = [fsBold, fsItalic]
  261.       ParentFont = False
  262.       TabOrder = 4
  263.       OnClick = CheckBox3Click
  264.     end
  265.     object BitBtn3: TBitBtn
  266.       Left = 444
  267.       Top = 36
  268.       Width = 89
  269.       Height = 33
  270.       TabOrder = 5
  271.       Kind = bkClose
  272.     end
  273.     object BitBtn1: TBitBtn
  274.       Left = 171
  275.       Top = 6
  276.       Width = 106
  277.       Height = 29
  278.       Caption = '&Edit Chart...'
  279.       TabOrder = 6
  280.       OnClick = BitBtn1Click
  281.       Glyph.Data = {
  282.         96010000424D9601000000000000760000002800000018000000180000000100
  283.         0400000000002001000000000000000000001000000010000000000000000000
  284.         80000080000000808000800000008000800080800000C0C0C000808080000000
  285.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  286.         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  287.         8F8F8F8F8F8F8F8F8FFFFFF000000000000000000FFFFF80FFFFFFFFFFFFFFFF
  288.         FFFFFFF0FFFF0F0FF0FF000FFFFFFF80FFFF000F0F0F0FFFFFFFFFF0FFFF0F0F
  289.         0F0F00FFFFFFFF80FFFF0F0F0F0F0FFFCFFFFFF0CFF9000F0F0F000CFFFFFF80
  290.         FC9F9FFFFFFFFFFCFFFFFFF0F9CFF9FFFFFFFFCFFFFFFF80F9FCFF9FFFFFFFCF
  291.         9FFFFFF09FFFCFF9FFCCCCF9FFFFFF80FFFFFCFF9CFFF99FFFFFFFF0FFFFFFCF
  292.         FCF99FFFFFFFFF80FFFFFFFCCF9FFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFF0FF
  293.         F0F000FF0FF0F0FF0FFFF0FFF0F0F0F0F0F0F0FF0FFFF0F0F0F0F0F0F0F0F0F0
  294.         0FFFF00F00F0F0F0F0F0F00F0FFFF0FFF0F000F0F0F0F0FF0FFF}
  295.     end
  296.   end
  297.   object Timer1: TTimer
  298.     Enabled = False
  299.     Interval = 1
  300.     OnTimer = Timer1Timer
  301.     Left = 22
  302.     Top = 78
  303.   end
  304. end
  305.