Measure all Y values?

moelski · Post by **moelski** » Thu Feb 28, 2008 3:04 pm

Hi support,

I use a Cursor Tool in with Style = cssVertical. I have an assigned series and the tool has an OnChange Event.

How is it possible to calculate the Y values for all visible series when I move the cursor tool?

I tried something like this:

Code: Select all

if MessenAktuell.Chart.SeriesCount > 0 then               
for _i := 0 to MessenAktuell.Chart.SeriesCount - 1 do
  if MessenAktuell.Chart[_i].Visible then begin
    MessungGrid.Cells[0, _i + 1] := Chart.CustomAxes[_i].Title.Caption;
    MessungGrid.Cells[1, _i + 1] := Format('%.3f', [MessenAktuell.Chart.CustomAxes[_i].CalcPosPoint(X)]);
  end;

MessenAktuell = my used Chart
MessungGrid = StringGrid for Displaying the data

This won´t shot me correct Y values. Could you please give me a hint what´s wring here ?

Narcís · Post by **Narcís** » Thu Feb 28, 2008 3:16 pm

Hi Dominik,

You could try using the interpolation example I posted here?

Hope this helps!

moelski · Post by **moelski** » Fri Feb 29, 2008 5:04 pm

Narcis for president

Works great. Thx !

Narcís · Post by **Narcís** » Mon Mar 03, 2008 10:38 am

Hi Dominik,

Narcis for president

Works great. Thx !

You're welcome. I'm glad to hear that.