Steema Central

Code: Select all

    private void Form1_Load(object sender, System.EventArgs e) {
      tChart1.Aspect.View3D = false;
      line1.FillSampleValues(8000);
      line1.XValues.DateTime = true;
      line2.FillSampleValues(8000);
      line2.XValues.DateTime = true;
      line3.FillSampleValues(8000);
      line3.XValues.DateTime = true;
      line4.FillSampleValues(8000);
      line4.XValues.DateTime = true;
      line5.FillSampleValues(8000);
      line5.XValues.DateTime = true;
      line6.FillSampleValues(8000);
      line6.XValues.DateTime = true;
      cursorTool1.FollowMouse = true;
      cursorTool1.Style = Steema.TeeChart.Tools.CursorToolStyles.Vertical;
      cursorTool1.Pen.Color = Color.Cyan;
      cursorTool1.Pen.Width = 2;
    }

    private void cursorTool1_Change(object sender, Steema.TeeChart.Tools.CursorChangeEventArgs e) {
      DateTime tmp;
      int xValIndex = line1.XValues.IndexOf(Math.Round(e.XValue, 0));
      if(xValIndex >= 0) {
        tmp = DateTime.FromOADate(line1.YValues[xValIndex]);
        label1.Text = tmp.ToLongDateString();
      }
    }

Code: Select all

    Private Sub CursorTool1_Change(ByVal sender As Object, ByVal e As Steema.TeeChart.Tools.CursorChangeEventArgs) Handles CursorTool1.Change
        Dim i As Integer
        Dim x As Integer
        Label1.Text = Date.FromOADate(e.XValue).ToString("M/dd/yyyy HH:mm:ss")

        'x = Line1.XValues.IndexOf(e.XValue)
        'If x >= 0 Then
        '    Label2.Text = Line1.YValues(x).ToString("#.00")
        'Else
        '    Label2.Text = ""
        'End If

        Dim tmp As Double
        Dim xValIndex As Integer = Line1.XValues.IndexOf(Math.Round(e.XValue, 0))
        If (xValIndex >= 0) Then
            tmp = Line1.YValues(xValIndex)
            Label2.Text = tmp.ToString("#.00")
        End If
    End Sub

Code: Select all

Private Sub CursorTool1_Change(ByVal sender As Object, ByVal e As Steema.TeeChart.Tools.CursorChangeEventArgs) Handles CursorTool1.Change

    Dim xRange, xSegment, yRange, ySegment, tanTheta As Double
    Dim i, startIdx, endIdx As Integer
    Dim negative As Boolean

    negative = False

    startIdx = 0
    endIdx = Line1.Count - 1

    '******************
    'version release at end of month (Jan 04) will include 
    'the following properties to allow quicker scan though 
    'adjustment will need to be made if data zoomed so that 
    'no points are visible on Chart
    '******************
    'startIdx = Line1.FirstVisibleIndex
    'endIdx = Line1.LastVisibleIndex

    For i = startIdx To endIdx
      If e.XValue > Line1.XValues.Value(i) Then
        If e.XValue < Line1.XValues.Value(i + 1) Then
          xRange = Line1.XValues.Value(i + 1) - Line1.XValues.Value(i)
          yRange = Line1.YValues.Value(i + 1) - Line1.YValues.Value(i)
          If yRange < 0 Then negative = True
          yRange = Math.Abs(yRange)
          xSegment = e.XValue - Line1.XValues.Value(i)
          Exit For
        End If
      End If
    Next i

    tanTheta = xRange / yRange
    ySegment = xSegment / tanTheta

    Label1.Text = e.XValue.ToString()

    If negative = True Then
      Label2.Text = Line1.YValues.Value(i) - ySegment
    Else
      Label2.Text = Line1.YValues.Value(i) + ySegment
    End If
End Sub