home *** CD-ROM | disk | FTP | other *** search
- object FastDrawForm: TFastDrawForm
- Left = 40
- Top = 82
- Width = 604
- Height = 446
- ActiveControl = BitBtn2
- Caption = 'Fast drawing without using Series'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object Chart1: TChart
- Left = 8
- Top = 76
- Width = 577
- Height = 298
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'How To custom Draw points')
- BottomAxis.EndPosition = 100.000000000000000000
- LeftAxis.EndPosition = 100.000000000000000000
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3D = False
- TabOrder = 0
- object Series1: TFastLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clRed
- LinePen.Color = clRed
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- end
- object BitBtn2: TBitBtn
- Left = 8
- Top = 384
- Width = 249
- Height = 25
- Caption = 'Let'#39's Draw 25000 points !'
- TabOrder = 1
- OnClick = BitBtn2Click
- end
- object Button1: TButton
- Left = 488
- Top = 384
- Width = 89
- Height = 33
- Caption = '&Close'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Memo1: TMemo
- Left = 8
- Top = 5
- Width = 577
- Height = 63
- Lines.Strings = (
-
- 'This example shows how to use the Chart Canvas property to draw ' +
- 'custom lines using the Chart axis, '
- 'but without using any Series component.'
-
- 'It shows how to use the Axis methods to convert from user scales' +
- ' to screen pixels.'
-
- 'Also shows the speed of using this method, drawing many lines su' +
- 'per-fast.'
- '')
- TabOrder = 3
- end
- end
-