Steema Central

Posted: **Wed Mar 03, 2004 8:49 pm**

ColorGrid Series + Cursor + Move with Mousse
Teechart Active X 6.0.0.4 fails with 80*1400 points.

Posted: **Mon Mar 08, 2004 9:08 am**

Hi -

ColorGrid Series + Cursor + Move with Mousse
Teechart Active X 6.0.0.4 fails with 80*1400 points.

The following code works OK with TeeChart AX v6.0.0.4:

Private Sub Form_Load()
Dim X, Y, z
With TChart1
    .Aspect.View3D = False
    .AddSeries scColorGrid
    
    For X = 0 To 10
        For z = 0 To 1500
            Y = Rnd * 100
            .Series(0).asColorGrid.AddXYZ X, Y, z, "", clTeeColor
        Next z
    Next X
    
    .Tools.Add tcCursor
    .Tools.Items(0).asTeeCursor.FollowMouse = True
    .Tools.Items(0).asTeeCursor.Series = .Series(0)
    .Tools.Items(0).asTeeCursor.Style = cssBoth
    
End With
End Sub

Private Sub TChart1_OnCursorToolChange(ByVal Tool As Long, ByVal X As Long, ByVal Y As Long, ByVal XVal As Double, ByVal YVal As Double, ByVal Series As Long, ByVal ValueIndex As Long)
Label1.Caption = XVal & "  " & YVal
End Sub

Do you have problems with this code at your end?