TCursorTool.YValue not set

[PoLabs]

Hi,

I have a problem with setting TCurosorTool.YValue property.

I have the code like:

Code: Select all

      Cursor.Visible := true;
      Cursor.Series := TCustomSeries(Chart.SeriesList[Idx]);
      
      // prevent calling event handler on changing Cursor
      T := Trigger.OnChange; 
      Cursor.OnChange := nil;

      if (Level * Koef > Chart.LeftAxis.Maximum) then
        Cursor.YValue := Chart.LeftAxis.Maximum else
      if (Level * Koef < Chart.LeftAxis.Minimum) then
        Cursor.YValue := Chart.LeftAxis.Minimum else
        Cursor.YValue := Level * Koef ;

      // set old event handler
      Cursor.OnChange := T;

First time when I call this code the cursor's YValue is always set at 0, regardles the product of Level*Koef is different than zero. So if I add breakpoint and add Cursor.YValue to watch list I can see 0 all the time. If I inspect the Level * Koef I get something that is it different from 0 (eg. -8,9) but cursor Y value remains 0 (and only the first time I call this).

Thanks for your help.

Br

[PoLabs]

I attached some screenshot of debugging:

[Yeray]

Hi PoLabs,

Maybe you need to force a Chart repaint so that the internal values will be calculated.
If you still have problems with it, please try to arrange a simple example project we can run as-is to reproduce the problem here.

[PoLabs]

Hi,

I added Chart.Repaint after OnChange := nil and it works now. I guess there needs to be done some recalulations before setting YValue value of cursor.

Thanks again.

Br,
PoLabs

[Yeray]

Hi PoLabs,

You're welcome!