Steema Central

Code: Select all

Private Sub Form_Load()
    TeeCommander1.Chart = TChart1
    
    TChart1.Series(0).FillSampleValues 10
    
    For i = 0 To TChart1.SeriesCount - 1
        For j = 0 To TChart1.Series(i).Count - 1
            TChart1.Environment.InternalRepaint
            TChart1.Tools.Add tcAnnotate
            
            With TChart1.Tools.Items(TChart1.Tools.Count - 1).asAnnotation
                .Text = TChart1.Series(i).YValues.Value(j)
                .Shape.CustomPosition = True
                .Shape.Left = TChart1.Series(i).Marks.Positions.Position(j).LeftTop.X
                .Shape.Top = 100
                .Callout.Arrow.Visible = True
                .Callout.XPosition = TChart1.Series(i).CalcXPos(j)
                .Callout.YPosition = TChart1.Series(i).CalcYPos(j)
            End With
            
        Next j
        TChart1.Series(i).Marks.Visible = False
    Next i
End Sub

Code: Select all

Public Sub fix_mark_position()
Dim i As Integer
Dim xval As Double, yval As Double
Dim x As Double, y As Double
Dim x_pos As Double, y_pos As Double
Dim XSerie As TeeChart.ISeries 

  Set XSerie = TChart1.Series(0)  

  For i = 0 To XSerie.Count - 1
     x = XSerie.CalcXPos(i)
     y = XSerie.CalcYPos(i)
     With XSerie.Marks.Positions.Position(i)
       xval = .ArrowFrom.x - x
       yval = .ArrowFrom.y - y
       .ArrowFrom.x = x
       .ArrowFrom.y = y 

       .LeftTop.x = .LeftTop.x - xval
       .LeftTop.y = .LeftTop.y - yval       

       .ArrowTo.x = .ArrowTo.x - xval
       .ArrowTo.y = .ArrowTo.y - yval
     End With
  Next i
End Sub

Code: Select all

Option Explicit

Dim fdragging As Boolean
Dim fitem As Integer
Dim text As String

Private Sub Form_Load()
With TChart1
    .Aspect.View3D = False
    .AddSeries scLine
    .Series(0).FillSampleValues (50)
    .Zoom.Enable = False
End With
End Sub

Private Sub Command1_Click()
    TChart1.Tools.Add (tcAnnotate)
    With TChart1.Tools.Items(TChart1.Tools.Count - 1).asAnnotation
        .text = "hello"
        .Shape.CustomPosition = True
        .Shape.Left = 100
        .Shape.Top = 100
    End With
End Sub

Private Sub TChart1_OnMouseDown(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
Dim i
    With TChart1.Tools
        For i = 0 To .Count - 1
            With .Items(i).asAnnotation.Shape
                If X >= .Left And X <= (.Left + TChart1.Canvas.TextWidth(TChart1.Tools.Items(i).asAnnotation.text)) Then
                    If Y >= .Top And Y <= (.Top + 15) Then
                        fdragging = True
                        fitem = i
                    End If
                End If
            End With
        Next i
    End With
End Sub

Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If fdragging Then
    With TChart1.Tools.Items(fitem).asAnnotation
        .Shape.CustomPosition = True
        .Shape.Left = X
        .Shape.Top = Y
    End With
End If
End Sub

Private Sub TChart1_OnMouseUp(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
    fdragging = False
End Sub

Code: Select all

Private Sub Command3_Click()
Dim i As Integer
Dim XSerie As TeeChart.ISeries

TChart1.Environment.InternalRepaint

For j = 0 To TChart1.SeriesCount - 1
  Set XSerie = TChart1.Series(j)

  For i = 0 To XSerie.Count - 1
     With XSerie.Marks.Positions.Position(i)
       .ArrowFrom.x = .LeftTop.x + (.Width / 2)
       .ArrowFrom.y = XSerie.CalcYPos(i)

       .ArrowTo.x = .ArrowFrom.x
       .ArrowTo.y = .LeftTop.y + .Height
     End With
  Next i
Next j
End Sub