home *** CD-ROM | disk | FTP | other *** search
- object ArrowsForm: TArrowsForm
- Left = 88
- Top = 46
- Width = 551
- Height = 452
- Caption = 'TeeChart Arrow 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 = 153
- Height = 392
- Align = alLeft
- TabOrder = 0
- object CheckBox1: TCheckBox
- Left = 20
- Top = 13
- Width = 125
- Height = 17
- Caption = 'Animate !!!'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- object BitBtn3: TBitBtn
- Left = 32
- Top = 309
- Width = 89
- Height = 33
- TabOrder = 1
- Kind = bkClose
- end
- object Memo1: TMemo
- Left = 16
- Top = 48
- Width = 121
- Height = 137
- Lines.Strings = (
- 'Each Arrow is '
- 'represented as a Series '
- 'point with Starting and '
- 'Ending coordinates.'
- ''
- 'This demo changes '
- 'arrow positions randomly '
- 'using a'
- 'TTimer component.')
- TabOrder = 2
- end
- object CheckBox2: TCheckBox
- Left = 24
- Top = 200
- Width = 97
- Height = 17
- Caption = 'Color &Each'
- State = cbChecked
- TabOrder = 3
- OnClick = CheckBox2Click
- end
- object CheckBox3: TCheckBox
- Left = 24
- Top = 224
- Width = 97
- Height = 17
- Caption = '&3D'
- State = cbChecked
- TabOrder = 4
- OnClick = CheckBox3Click
- end
- end
- object Chart1: TChart
- Left = 153
- Top = 33
- Width = 390
- Height = 392
- AnimatedZoom = True
- BackWall.Brush.Color = clWhite
- BackWall.Color = 8454143
- BackWall.Size = 20
- BottomWall.Color = 8454016
- BottomWall.Size = 20
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- LeftWall.Color = 16777088
- LeftWall.Size = 20
- MarginBottom = 10
- MarginRight = 10
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- '')
- Title.Visible = False
- BackColor = 8454143
- BottomAxis.EndPosition = 100.000000000000000000
- Chart3DPercent = 60
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Visible = False
- RightAxis.Grid.Visible = False
- RightAxis.MinorTickLength = 3
- RightAxis.EndPosition = 100.000000000000000000
- RightAxis.TickLength = 5
- TopAxis.EndPosition = 100.000000000000000000
- View3DOptions.Elevation = 353
- View3DOptions.Orthogonal = False
- View3DOptions.Perspective = 55
- View3DOptions.Rotation = 334
- View3DOptions.Zoom = 97
- Align = alClient
- TabOrder = 1
- object ArrowSeries1: TArrowSeries
- ColorEachPoint = True
- HorizAxis = aBothHorizAxis
- Marks.ArrowLength = 8
- Marks.Frame.Visible = False
- Marks.Transparent = True
- Marks.Visible = False
- SeriesColor = clRed
- VertAxis = aBothVertAxis
- Pointer.HorizSize = 32
- Pointer.InflateMargins = False
- Pointer.Style = psRectangle
- Pointer.VertSize = 24
- Pointer.Visible = 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
- EndXValues.DateTime = False
- EndXValues.Name = 'EndX'
- EndXValues.Multiplier = 1.000000000000000000
- EndXValues.Order = loNone
- EndYValues.DateTime = False
- EndYValues.Name = 'EndY'
- EndYValues.Multiplier = 1.000000000000000000
- EndYValues.Order = loNone
- StartXValues.DateTime = True
- StartXValues.Name = 'X'
- StartXValues.Multiplier = 1.000000000000000000
- StartXValues.Order = loAscending
- StartYValues.DateTime = False
- StartYValues.Name = 'Y'
- StartYValues.Multiplier = 1.000000000000000000
- StartYValues.Order = loNone
- Left = 104
- Top = 195
- end
- end
- object TeeCommander1: TTeeCommander
- Left = 0
- Top = 0
- Width = 543
- Height = 33
- Panel = Chart1
- Align = alTop
- TabOrder = 2
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 1
- OnTimer = Timer1Timer
- Left = 262
- Top = 67
- end
- end
-