bottom axis x-value vs addxy-label

[adenin]

Hello,

Please, is it possible to have displayed Date (14.3.2008 0:54:53) as label for bottom axis and not label? (0845335051000)
with such data:

TChartSpeed.Series(1).AddXY CDate("14.3.2008 0:54:53"), 943.61 , "0845335051000" , RGB(200,0,0)


because I want this label to use in annotation tool when moving mouse cursor over chart
thanks

[Narcís]

Hi adenin,

Yes, you can do something like this:

Code: Select all

    TChart1.Series(0).XValues.DateTime = True
    TChart1.Axis.Bottom.Labels.DateTimeFormat = "dd.mm.yyyy hh:mm:ss"
    TChart1.Axis.Bottom.Labels.Style = talValue
    
    TChart1.Tools.Items(0).asAnnotation.Text = CStr(CDate(TChart1.Series(0).XValues.Value(0)))

Hope this helps!

[adenin]

hello Narcis,

problem is that after I use some string instead of empty one in AddXY,
I get labels for bottomaxis from this string

so series created with those:

TChartSpeed.Series(1).AddXY CDate("14.3.2008 0:54:53"), 943.61 , "" , RGB(200,0,0)
TChartSpeed.Series(1).AddXY CDate("14.3.2008 1:54:53"), 1943.61 , "" , RGB(200,0,0)
TChartSpeed.Series(1).AddXY CDate("14.3.2008 2:54:53"), 2943.61 , "" , RGB(200,0,0)

has Date values below bottomaxis;
series created with these:

TChartSpeed.Series(1).AddXY CDate("14.3.2008 0:54:53"), 943.61 , "A" , RGB(200,0,0)
TChartSpeed.Series(1).AddXY CDate("14.3.2008 1:54:53"), 943.61 , "B" , RGB(200,0,0)
TChartSpeed.Series(1).AddXY CDate("14.3.2008 2:54:53"), 943.61 , "C" , RGB(200,0,0)

has "A","B","C" as labels for bottomaxis.

my desire is to use second way and have date values below bottom axis
and have possibility to display "A", "B" or "C" string using onmousemove and annotation tool:

...
.asAnnotation.Text = TChartSpeed.Series(1).PointLabel(mouseOverIndex)
...

[Narcís]

Hi adenin,

Thanks for the information. In tha case, setting Labels.Style to talValue as shown in the code I posted before should do.

For displaying labels the easiest way would be using a MarksTip tool set to display series labels, for example:

Code: Select all

    TChart1.Tools.Items(0).asMarksTip.Series = TChart1.Series(0)
    TChart1.Tools.Items(0).asMarksTip.Style = smsLabel
    TChart1.Tools.Items(0).asMarksTip.MouseAction = mtmMove

[adenin]

thanks, change of labels.style solved it

adenin