home *** CD-ROM | disk | FTP | other *** search
- object MovingAveForm: TMovingAveForm
- Left = 127
- Top = 41
- Width = 555
- Height = 456
- Caption = 'TeeChart MovingAverage Series Demo'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Chart1: TChart
- Left = 0
- Top = 73
- Width = 547
- Height = 356
- AnimatedZoom = True
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Foot.Alignment = taLeftJustify
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- Foot.Text.Strings = (
-
- 'Left drag (Up/Down) to Zoom. Right drag to Scroll. Invert Zoom r' +
- 'ectangle to reset.')
- Foot.Visible = False
- Gradient.Direction = gdBottomTop
- Title.Alignment = taRightJustify
- Title.Font.Color = clBlue
- Title.Font.Height = -16
- Title.Font.Name = 'Arial'
- Title.Font.Style = [fsItalic]
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'This demo shows some Moving Averages based on the Red line.')
- BottomAxis.DateTimeFormat = 'd/MM/yy'
- BottomAxis.Increment = 30.000000000000000000
- BottomAxis.LabelsAngle = 90
- BottomAxis.LabelsFont.Color = clTeal
- BottomAxis.LabelsFont.Height = -12
- BottomAxis.LabelsFont.Name = 'Arial'
- BottomAxis.LabelsFont.Style = []
- BottomAxis.EndPosition = 100.000000000000000000
- BottomAxis.Title.Caption = 'Stock Market Date'
- BottomAxis.Title.Font.Color = clGreen
- BottomAxis.Title.Font.Height = -16
- BottomAxis.Title.Font.Name = 'Arial'
- BottomAxis.Title.Font.Style = [fsItalic]
- LeftAxis.LabelsFont.Color = clWhite
- LeftAxis.LabelsFont.Height = -13
- LeftAxis.LabelsFont.Name = 'Arial'
- LeftAxis.LabelsFont.Style = []
- LeftAxis.EndPosition = 100.000000000000000000
- LeftAxis.Title.Caption = 'Stock Price'
- LeftAxis.Title.Font.Color = clNavy
- LeftAxis.Title.Font.Height = -15
- LeftAxis.Title.Font.Name = 'Arial'
- LeftAxis.Title.Font.Style = [fsBold]
- Legend.Alignment = laBottom
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3D = False
- Align = alClient
- Color = clSilver
- TabOrder = 0
- object PriceLine: TLineSeries
- Marks.ArrowLength = 8
- Marks.Frame.Color = 8454143
- Marks.Visible = False
- SeriesColor = clRed
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- Left = 92
- Top = 80
- end
- object CurveFittingSeries1: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- DataSource = PriceLine
- SeriesColor = clAqua
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- object TeeFunction1: TCurveFittingFunction
- Period = 1.000000000000000000
- end
- end
- object MovingAverageSeries1: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- DataSource = PriceLine
- SeriesColor = clLime
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- object MovingAverageFunction1: TMovingAverageFunction
- Period = 20.000000000000000000
- end
- end
- object ExpAverageSeries1: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- DataSource = PriceLine
- SeriesColor = clBlue
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- object ExpAverageFunction1: TExpAverageFunction
- Period = 1.000000000000000000
- Weight = 0.200000000000000000
- end
- end
- object MovingAverageSeries2: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- DataSource = PriceLine
- SeriesColor = clYellow
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- object MovingAverageFunction2: TMovingAverageFunction
- Period = 40.000000000000000000
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 547
- Height = 73
- Align = alTop
- TabOrder = 1
- object Label1: TLabel
- Left = 17
- Top = 44
- Width = 65
- Height = 13
- Caption = 'Green Period:'
- end
- object Label2: TLabel
- Left = 176
- Top = 44
- Width = 67
- Height = 13
- Caption = 'Yellow Period:'
- end
- object Label3: TLabel
- Left = 314
- Top = 9
- Width = 108
- Height = 13
- Caption = 'Blue Expon. Weight %:'
- end
- object CheckBox1: TCheckBox
- Left = 20
- Top = 12
- Width = 121
- Height = 17
- Caption = '&Animate !!!'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- object SpinEdit1: TSpinEdit
- Left = 97
- Top = 41
- Width = 44
- Height = 22
- MaxValue = 1000
- MinValue = 1
- TabOrder = 1
- Value = 20
- OnChange = SpinEdit1Change
- end
- object SpinEdit2: TSpinEdit
- Left = 252
- Top = 41
- Width = 45
- Height = 22
- MaxValue = 1000
- MinValue = 1
- TabOrder = 2
- Value = 40
- OnChange = SpinEdit2Change
- end
- object SpinEdit3: TSpinEdit
- Left = 430
- Top = 5
- Width = 43
- Height = 22
- Increment = 5
- MaxValue = 100
- MinValue = 1
- TabOrder = 3
- Value = 20
- OnChange = SpinEdit3Change
- end
- object CheckBox3: TCheckBox
- Left = 334
- Top = 44
- Width = 97
- Height = 17
- Caption = 'Fun !'
- Font.Color = clNavy
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- TabOrder = 4
- OnClick = CheckBox3Click
- end
- object BitBtn3: TBitBtn
- Left = 444
- Top = 36
- Width = 89
- Height = 33
- TabOrder = 5
- Kind = bkClose
- end
- object BitBtn1: TBitBtn
- Left = 171
- Top = 6
- Width = 106
- Height = 29
- Caption = '&Edit Chart...'
- TabOrder = 6
- OnClick = BitBtn1Click
- Glyph.Data = {
- 96010000424D9601000000000000760000002800000018000000180000000100
- 0400000000002001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- 8F8F8F8F8F8F8F8F8FFFFFF000000000000000000FFFFF80FFFFFFFFFFFFFFFF
- FFFFFFF0FFFF0F0FF0FF000FFFFFFF80FFFF000F0F0F0FFFFFFFFFF0FFFF0F0F
- 0F0F00FFFFFFFF80FFFF0F0F0F0F0FFFCFFFFFF0CFF9000F0F0F000CFFFFFF80
- FC9F9FFFFFFFFFFCFFFFFFF0F9CFF9FFFFFFFFCFFFFFFF80F9FCFF9FFFFFFFCF
- 9FFFFFF09FFFCFF9FFCCCCF9FFFFFF80FFFFFCFF9CFFF99FFFFFFFF0FFFFFFCF
- FCF99FFFFFFFFF80FFFFFFFCCF9FFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFF0FF
- F0F000FF0FF0F0FF0FFFF0FFF0F0F0F0F0F0F0FF0FFFF0F0F0F0F0F0F0F0F0F0
- 0FFFF00F00F0F0F0F0F0F00F0FFFF0FFF0F000F0F0F0F0FF0FFF}
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 1
- OnTimer = Timer1Timer
- Left = 22
- Top = 78
- end
- end
-