Query related to actual width of annotation.

[amol]

Hi,
We are using Active X TChart 2018.
I am drawing annotation on tchart at run time with some text in it. The auto size property is set true. now when I am trying to get width of this annotation tool. I am getting the value zero.
Please suggest as to how I can get the actual width of annotation.

Thanks
Amol

[Yeray]

Hello,

This seems to work fine for me here:

Code: Select all

Private Sub Form_Load()  
  TChart1.AddSeries scPoint
  TChart1.Series(0).FillSampleValues
  
  TChart1.Tools.Add tcCursor
  TChart1.Tools.Items(0).asTeeCursor.Style = cssVertical
  TChart1.Tools.Items(0).asTeeCursor.AxisAnnotation.Shape.Show
  TChart1.Tools.Items(0).asTeeCursor.AxisAnnotation.AutoSize = True
End Sub

Private Sub TChart1_OnAfterDraw()
  Caption = TChart1.Tools.Items(0).asTeeCursor.AxisAnnotation.Shape.Width
End Sub