I Need Help in asColorLine Tool

[Jameh2020]

Hi
i add Many Lines as asColorLine Tool

The Problem is I need Now To Delete One of Them Exactly
(I do not now it's number) to Use

TChart1.Tools.Delete ColorLineNo

Can I Add a Name or Desc To Then Line To Know it ???
Thanks

[Pep]

Hi,

the only way is by using the canvas techniques to draw name (text) next to each colorLine tool. It can be done with the following code :

Code: Select all

Private Sub TChart1_OnAfterDraw()
TChart1.Canvas.TextOut TChart1.Axis.Left.Position, TChart1.Axis.Left.CalcYPosValue(TChart1.Tools.Items(0).asColorLine.Value), "ColorLine0"
End Sub

[Jameh2020]

i Think you don't understand my

i need to delete one of the asColorLine Tool , but the problem i don't now it's number.

thanks

[Pep]

Hi,

when you create the ColorLineTool you can save its index by using :

num = TChart1.Tools.Add(tcColorLine)
TChart1.Tools.Items(num).asColorLine.Axis = TChart1.Axis.Left
TChart1.Tools.Items(num).asColorLine.Value = X

and then remove it with :
TChart1.Tools.Delete (num)