Some functions produce wrong result for horizontal series
Posted: Wed Jul 06, 2005 4:42 pm
For example, for Horizontal Bar - Cumulative, Curve fitting, Smoothing and some other functions pruduce a wrong line.
Using this code:
Code: Select all
Private Sub Command1_Click()
If TChart1.SeriesCount = 2 Then
TChart1.RemoveSeries (1)
End If
If TChart1.SeriesCount < 2 Then
TChart1.AddSeries scHorizLine
'TChart1.AddSeries scLine
TChart1.Series(1).SetFunction tfCumulative
TChart1.Series(1).DataSource = TChart1.Series(0)
TChart1.Series(1).Title = "Cumulative"
End If
End Sub
Private Sub Command2_Click()
If TChart1.SeriesCount = 2 Then
TChart1.RemoveSeries (1)
End If
If TChart1.SeriesCount < 2 Then
TChart1.AddSeries scHorizLine
'TChart1.AddSeries scLine
TChart1.Series(1).SetFunction tfCurveFit
TChart1.Series(1).DataSource = TChart1.Series(0)
TChart1.Series(1).Title = "CurveFit"
End If
End Sub
Private Sub Command3_Click()
If TChart1.SeriesCount = 2 Then
TChart1.RemoveSeries (1)
End If
If TChart1.SeriesCount < 2 Then
TChart1.AddSeries scHorizLine
'TChart1.AddSeries scLine
TChart1.Series(1).SetFunction tfSmoothing
TChart1.Series(1).DataSource = TChart1.Series(0)
TChart1.Series(1).Title = "Smoothing"
End If
End Sub
Private Sub Form_Load()
TChart1.AddSeries scHorizBar
'TChart1.AddSeries scBar
TChart1.Series(0).FillSampleValues 20
End Sub