Tchart LineSeries with changes in line color?

[stephanweber]

Hi,

I need to do a family plot, like sinewaves of different frequencies vs time, e.g. starting at t=0 going to 10s.
I can put all the different frequencies in one LineSeries by using addXY(0,nan) if I reach the last point. This way the now frequency starts correct at t=0 without having a line from 10s back to 0s.
However, still the whole plot is hard to understand, and having different colors e.g. red for freq=1kHz, then orange for 2kHz, green for next, etc.

So I programmed a change in SeriesColor after each frequency, but the chart shows only the last used color.
He this problem can be solved?

My current code:

loop on n:

For k:=0 to kmax
           Do Chart2LineSeries.Addxy(xTranData[k],yTranData[k]);
         Chart2LineSeries.Addxy(0,nan);
         If n mod 2 = 0 then Chart2LineSeries.SeriesColor:=clBlack
         else Chart2LineSeries.SeriesColor:=clRed

Bye Stephan

[stephanweber]

I found ColorEach property but it does not help.
I also tried using SerieColor vs LinePen.Color, no change.
I use v2.2.2 under Windows.

Bye Stephan

[wp]

Sorry, I don't understand what you are doing.

Why don't you add several series? One for 1kHz, one for 2kHz etc? Or, if all datapoints have the same x value you can even use a single series to which you can assign several y values (you must add chartstyles in this case in order to define curve colors and legend texts).

See attached project which demonstrates both approaches.

[stephanweber]

Thanks for reply, I have a large random number of frequencies!
Now I found this solution:

 For k:=0 to nmax
           Do Case n mod 6 of
              0: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clBlack);
              1: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clMaroon);
              2: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clRed);
              3: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clLime);
              4: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clGreen);
              5: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clBlue);
              else Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'',clPurple);
          end;                                                           

The only strange thing here is that the string output is not working (but here I don't need it).

Bye Stephan

[wp]

For k:=0 to nmax
           Do Case n mod 6 of
              0: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clBlack);
              1: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clMaroon);
              2: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clRed);
              3: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clLime);
              4: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clGreen);
              5: Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'' ,clBlue);
              else Chart2LineSeries.Addxy(xTranData[k],yTranData[k],'',clPurple);
          end;                                                           

The only strange thing here is that the string output is not working (but here I don't need it).

You do not specify a label text when you add the data values to the series:

Code: Pascal  [Select][+][-]

1.   Chart2LineSeries.AddXY(x, y, labeltext, color);