Unexpected behavior of an Area series

[PCSdeZ]

Hi, I'm working on a cash flow chart using TeeChart v36 and C++Builder 11.2 with FMX and FireDAC and I'm having troubles with an area chart that seems to be working bad or may be I have making some mistake, so I need help.

There are six Bar series to show amounts of money on different combinations and two additional Area series to show the balance of the selected Bar. Please see the first 'Bar Series' attached image and keep in mind just one Bar series named 'Pendientes' that is plotted and also just one Area series named 'Pendientes Acum' that is not plotted yet. This first 'Pendientes' series is showing positive and negative amounts of money on their Y-value grouping them by date on X-value. Everything okay until here.

Then I want to show an area chart with the composed balance for each date, with the purpose of to know how the balance is changing through the dates, so I added the other Area 'Pendientes Acum' series, please see the second 'Area Series' attached image, but when I activate their dataset the plotted chart presents two problems that I don't know how to solve:
1. The dates on the X-Value in the horizontal axis are plotted by increasing the money amount instead of increasing the date as in the first Bar series, that is how I need it to have consistency between the two series.
2. It affects the first Bar series modifying their plotting on an unexpected behavior, grouping all bar on a unique point.
I'm attaching a third image with the dataset values of the Area series where is possible the check that the order is by date and not by ascending amount.

May be I'm using a wrong kind of Area chart. Which could be the problem? How could I reach my objective of plot money balances?

Best regards,
Patricio Cerda

[Yeray]

Hello,

Here the simple example I used to test this:

Code: Select all

uses FMXTee.Series, DateUtils;

type TData = record
  date: TDateTime;
  value: Double;
end;

var brutoAcum: array of TData;

procedure TForm1.FormCreate(Sender: TObject);
var i, j, min: Integer;
    tmp: TData;
begin
  SetLength(brutoAcum, 8);
  brutoAcum[0].date:=EncodeDate(2022,12,12);
  brutoAcum[0].value:=-63296000;
  brutoAcum[1].date:=EncodeDate(2022,12,14);
  brutoAcum[1].value:=20640000;
  brutoAcum[2].date:=EncodeDate(2022,12,21);
  brutoAcum[2].value:=39660348;
  brutoAcum[3].date:=EncodeDate(2022,12,23);
  brutoAcum[3].value:=-40225116;
  brutoAcum[4].date:=EncodeDate(2022,12,24);
  brutoAcum[4].value:=-40544208;
  brutoAcum[5].date:=EncodeDate(2022,12,25);
  brutoAcum[5].value:=-45686040;
  brutoAcum[6].date:=EncodeDate(2022,12,28);
  brutoAcum[6].value:=-45686040;
  brutoAcum[7].date:=EncodeDate(2022,12,30);
  brutoAcum[7].value:=-112257256;

  with Chart1 do
  begin
    Color:=clWhite;
    Gradient.Visible:=False;
    Walls.Back.Color:=clWhite;
    Walls.Back.Gradient.Visible:=False;
    Axes.Bottom.SetMinMax(IncDay(brutoAcum[0].date, -1), IncDay(brutoAcum[7].date));
    Axes.Bottom.LabelsAngle:=70;

    with TBarSeries(AddSeries(TBarSeries)) do
    begin
      Title:='Pendientes';
      Color:=TAlphaColors.Red;
      BarWidthPercent:=10;
      XValues.DateTime:=True;

      for i:=0 to Length(brutoAcum)-1 do
      begin
        if i>0 then
           AddXY(brutoAcum[i].date, brutoAcum[i].value-brutoAcum[i-1].value)
        else
           AddXY(brutoAcum[i].date, brutoAcum[i].value);
      end;
    end;

    // Sort data by value
    for i:=0 to Length(brutoAcum)-1 do
    begin
      min:=i;
      for j:=i+1 to Length(brutoAcum)-1 do
      begin
        if brutoAcum[j].value<brutoAcum[min].value then
           min:=j;
      end;
      if i<>min then
      begin
        tmp:=brutoAcum[min];
        brutoAcum[min]:=brutoAcum[i];
        brutoAcum[i]:=tmp;
      end;
    end;

    with TAreaSeries(AddSeries(TAreaSeries)) do
    begin
      Title:='Pendientes Acum';
      Color:=TAlphaColors.Red;
      Transparency:=50;
      Marks.Show;

      for i:=0 to Length(brutoAcum)-1 do
        AddXY(Chart1[0].XValues[i], brutoAcum[i].value);
    end;
  end;
end;

Project1_2022-12-12_22-19-42.png (43.4 KiB) Viewed 32917 times

I think the issue could be on how do you calculate the XValues for your "Pendientes Acum" TAreaSeries

[PCSdeZ]

Thanks Yeray for your reply, but I'm not sure that if I did explain well the problem.

I think you are sorting 'brutoAcum' ascending by it ammount of money, that is exactly my problem because it is not what I expect. What I want is that the Area series with BrutoAcum values be sorted by Date, so it would be plotted consistent with Bar series.

I can see on your simple example chart an Area series with a irregular line at the top instead of a continuos line on my image sent before, but with exactly the same values with the same order from the first to the last one, starting by -112257255 that correspond to the Dec30th 2022, not to the Dec12th 2022 as shows you chart. This specific value must be the last one on the time line.

Moreover, the form of your chart is not the correct one because does not reflex the real accumulated values for this sample dataset. Let me show the expected (correct) chart made with Excel, attached here.

If you want I can send a little C++Builder project for you to check the same but using data from a FireDac dataset.

Best regards,
Patricio Cerda

[Yeray]

Hello,

then you just don't need to sort the array.

Project1_2022-12-14_15-11-28.png (36.11 KiB) Viewed 32877 times

Here the modified example:

Code: Select all

uses FMXTee.Series, DateUtils;

type TData = record
  date: TDateTime;
  value: Double;
end;

var brutoAcum: array of TData;

procedure TForm1.FormCreate(Sender: TObject);
var i, j, min: Integer;
    tmp: TData;
    bar: TBarSeries;
    area: TAreaSeries;
begin
  SetLength(brutoAcum, 8);
  brutoAcum[0].date:=EncodeDate(2022,12,12);
  brutoAcum[0].value:=-63296000;
  brutoAcum[1].date:=EncodeDate(2022,12,14);
  brutoAcum[1].value:=20640000;
  brutoAcum[2].date:=EncodeDate(2022,12,21);
  brutoAcum[2].value:=39660348;
  brutoAcum[3].date:=EncodeDate(2022,12,23);
  brutoAcum[3].value:=-40225116;
  brutoAcum[4].date:=EncodeDate(2022,12,24);
  brutoAcum[4].value:=-40544208;
  brutoAcum[5].date:=EncodeDate(2022,12,25);
  brutoAcum[5].value:=-45686040;
  brutoAcum[6].date:=EncodeDate(2022,12,28);
  brutoAcum[6].value:=-45686040;
  brutoAcum[7].date:=EncodeDate(2022,12,30);
  brutoAcum[7].value:=-112257256;

  with Chart1 do
  begin
    Color:=clWhite;
    Gradient.Visible:=False;
    Walls.Back.Color:=clWhite;
    Walls.Back.Gradient.Visible:=False;
    View3D:=False;
    Axes.Bottom.SetMinMax(IncDay(brutoAcum[0].date, -1), IncDay(brutoAcum[7].date));
    Axes.Bottom.LabelsAngle:=70;

    area:=TAreaSeries(AddSeries(TAreaSeries));
    bar:=TBarSeries(AddSeries(TBarSeries));

    with area do
    begin
      Title:='Pendientes Acum';
      Color:=TAlphaColors.Red;
      Transparency:=50;
      Marks.Show;
      YOrigin:=0;
      UseYOrigin:=True;
      AreaLinesPen.Hide;
    end;

    with bar do
    begin
      Title:='Pendientes';
      Color:=TAlphaColors.Red;
      BarWidthPercent:=10;
      XValues.DateTime:=True;
    end;

    for i:=0 to Length(brutoAcum)-1 do
    begin
      area.AddXY(brutoAcum[i].date, brutoAcum[i].value);

      if i>0 then
         bar.AddXY(brutoAcum[i].date, brutoAcum[i].value-brutoAcum[i-1].value)
      else
         bar.AddXY(brutoAcum[i].date, brutoAcum[i].value);
    end;
  end;
end;

[PCSdeZ]

Dear Yeray,

Thank you again, finally I do it work successfully taking data directly from the Dataset.

One more thing please: could you show me how can access to the Series\Format\UseOrigin property at runtime in C++ Builder?
In your sample Delphi code you showed it but I can't find it on C++ Builder. Also the YOrigin value that I want to set at runtime also.

Best regards,
Patricio Cerda

[Yeray]

Hello,

This works for me:

Code: Select all

  area->YOrigin=0;
  area->UseYOrigin=true;