Labels issue with 2 series

[Petar]

Hi,

I would like to chart 2 series with .XValues.DateTime = False . 1st one charted on form load and 2nd one on button click.
2nd serie is larger then 1st serie. In this case I have the issue listed below.

LabelsTwoGraphs.png (34.03 KiB) Viewed 13867 times

Example code

Code: Select all

Option Explicit

Private Sub Command1_Click()
        TChart1.AddSeries (scFastLine)
        TChart1.Series(1).asFastLine.TreatNulls = tnSkip
        TChart1.Series(1).XValues.DateTime = False
        
        Dim i As Integer
        Dim value As Double
        value = 45
        For i = 1 To 720
            
            value = value + 0.03 * (Math.Rnd() - Math.Rnd())
            TChart1.Series(1).AddXY i, value, Format(Now - 720 + i, "dd/mm/yy"), clTeeColor
        Next i
End Sub

    Private Sub Form_Load()
        TChart1.Aspect.View3D = False
        TChart1.Axis.Bottom.Labels.DateTimeFormat = "dd/mm/yy"
        TChart1.AddSeries (scFastLine)
        TChart1.Series(0).asFastLine.TreatNulls = tnSkip
        TChart1.Series(0).XValues.DateTime = False
        
        Dim i As Integer
        Dim value As Double
        value = 45
        For i = 300 To 720
            
            value = value + 0.03 * (Math.Rnd() - Math.Rnd())
            TChart1.Series(0).AddXY i, value, Format(Now - 365 + i, "dd/mm/yy"), clTeeColor
        Next i
       
    End Sub

Have you any idea how can I correct this.

[Yeray]

Hi Petar,

I think this is the same problem that was identified here.
So when TV52015179 will be fixed in VCL, it should become fixed in ActiveX too because TeeChart AX is a wrapper from TeeChart VCL.

[Petar]

Hi Yeray,

in fact that seems to be the same problem, but issue was reported 1month and half ago, do you have any idea, when it should be fixed?

Thanks,

Petar

[Yeray]

Hi Petar,

I'm afraid not. As Narcís said in the link above,

This is a high-priority issue in the defect list but hasn't been fixed yet. At this stage I can't commit to a release date. I recommend you to be aware at this forum, our RSS news feed, twitter and facebook accounts for new release announcements and what's fixed on them.

But we could be near to a solution as you can see here

[guilz2010]

Hi Steema Support Team,

This issue is Very Critical for us (and our clients) - Could you please fix it and release it quickly ?

Thanks a lot

Guilz

[Yeray]

Hi Guilz,

We understand it and that's why we've given high priority to it. Please, stay tuned.

[Narcís]

Hello everyone,

Just wanted to let you know that TV52015179 has been fixed for the next maintenance release.

[guilz2010]

Hi,

with Teechart v2011 we still have this bug

bug_chart.jpg (72.34 KiB) Viewed 13593 times

As you can see, we have 2 series (1 as fast line - Serie1, 1 as Gantt - Serie 2) the issue is that Gantt label are displayed on the bottom axis and we can't see the date labels of serie 1

We do not want to view Gantt labels on bottom axis but we want view them on Gantt chart (Months FEB11, MAR11, APR11, MAY11, JUN11 must be displayed on gantt chart but not on bottom axis where there is already date labels of serie 1

Thank you for your help

Guilz

[Yeray]

Hello,

I've verified with v2010.0.0.1 this reproduced the problem but not now with v2011.0.0.4:

Code: Select all

Private Sub Form_Load()  
  TChart1.Aspect.View3D = False
  
  Dim i, j As Integer
  Dim cxdate As Date
  
  For i = 0 To 1
    TChart1.AddSeries scFastLine

    cxdate = Date
    For j = 0 To 49
      TChart1.Series(i).Add Rnd(100), FormatDateTime(cxdate), clTeeColor
      cxdate = cxdate + 31
    Next j
  Next i
End Sub

However, the code from Petar, in the beginning of this thread still reproduces the overlapping problem:

Code: Select all

Private Sub Form_Load()  
  Dim i As Integer
  Dim value As Double
  
  TChart1.Aspect.View3D = False
  TChart1.Axis.Bottom.Labels.DateTimeFormat = "dd/mm/yy"
  
  TChart1.AddSeries (scFastLine)
  TChart1.Series(0).asFastLine.TreatNulls = tnSkip
  TChart1.Series(0).XValues.DateTime = False
  
  value = 45
  For i = 300 To 720
    value = value + 0.03 * (Math.Rnd() - Math.Rnd())
    TChart1.Series(0).AddXY i, value, Format(Now - 365 + i, "dd/mm/yy"), clTeeColor
  Next i
        
  TChart1.AddSeries (scFastLine)
  TChart1.Series(1).asFastLine.TreatNulls = tnSkip
  TChart1.Series(1).XValues.DateTime = False

  value = 45
  For i = 1 To 720
    value = value + 0.03 * (Math.Rnd() - Math.Rnd())
    TChart1.Series(1).AddXY i, value, Format(Now - 720 + i, "dd/mm/yy"), clTeeColor
  Next i
End Sub

So this could be an slightly different problem than TV52015179.
I've opened a new VCL bug ticket with the code above translated to Delphi, that reproduces the problem for me here with the actual sources (TV52015820).
Excuse us for the confusion generated.