home *** CD-ROM | disk | FTP | other *** search
- object AreasForm: TAreasForm
- Left = 84
- Top = 44
- Width = 557
- Height = 456
- ActiveControl = Chart1
- Caption = 'Area Series Example'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 33
- Width = 145
- Height = 396
- Align = alLeft
- TabOrder = 0
- object Label1: TLabel
- Left = 14
- Top = 196
- Width = 63
- Height = 23
- Caption = 'Label1'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object RadioGroup1: TRadioGroup
- Left = 12
- Top = 67
- Width = 117
- Height = 122
- Caption = 'Area Series Mode:'
- ItemIndex = 0
- Items.Strings = (
- 'None'
- 'Stacked'
- 'Stacked 100%')
- TabOrder = 0
- OnClick = RadioGroup1Click
- end
- object BitBtn1: TBitBtn
- Left = 26
- Top = 326
- Width = 89
- Height = 33
- TabOrder = 1
- Kind = bkClose
- end
- object CheckBox1: TCheckBox
- Left = 14
- Top = 34
- Width = 97
- Height = 17
- Caption = '&3D'
- State = cbChecked
- TabOrder = 2
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Left = 14
- Top = 9
- Width = 97
- Height = 17
- Caption = '&Animate !!!'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnClick = CheckBox2Click
- end
- object CheckBox3: TCheckBox
- Left = 16
- Top = 232
- Width = 97
- Height = 17
- Caption = '&Patterns'
- TabOrder = 4
- OnClick = CheckBox3Click
- end
- object CheckBox4: TCheckBox
- Left = 16
- Top = 264
- Width = 97
- Height = 17
- Caption = 'Sta&irs'
- TabOrder = 5
- OnClick = CheckBox4Click
- end
- end
- object Chart1: TChart
- Left = 145
- Top = 33
- Width = 404
- Height = 396
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Title.Alignment = taLeftJustify
- Title.Font.Color = clBlue
- Title.Font.Height = -13
- Title.Font.Name = 'Arial'
- Title.Font.Style = [fsBold]
- Title.Text.Strings = (
- 'Area Series Example.'
- 'Move mouse over Areas.')
- BottomAxis.LabelsAngle = 90
- BottomAxis.EndPosition = 100.000000000000000000
- Chart3DPercent = 75
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Alignment = laBottom
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3DOptions.Orthogonal = False
- View3DOptions.Perspective = 27
- View3DOptions.Zoom = 87
- Align = alClient
- TabOrder = 1
- object AreaSeries3: TAreaSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clYellow
- DrawArea = True
- 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 = 265
- Top = 34
- end
- object AreaSeries2: TAreaSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clGreen
- DrawArea = True
- 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 = 227
- Top = 36
- end
- object AreaSeries1: TAreaSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clRed
- AreaLinesPen.Color = clAqua
- AreaLinesPen.Style = psDot
- DrawArea = True
- 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 = 189
- Top = 36
- end
- end
- object TeeCommander1: TTeeCommander
- Left = 0
- Top = 0
- Width = 549
- Height = 33
- OnChartMouseMove = Chart1MouseMove
- Panel = Chart1
- Align = alTop
- TabOrder = 2
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 1
- OnTimer = Timer1Timer
- Left = 24
- Top = 243
- end
- end
-