Unexpected behavior of an Area series

TeeChart FireMonkey (Windows,OSX,iOS & Android) for Embarcadero RAD Studio, Delphi and C++ Builder (XE5+)
Post Reply
PCSdeZ
Newbie
Newbie
Posts: 18
Joined: Thu Dec 16, 2021 12:00 am

Unexpected behavior of an Area series

Post by PCSdeZ » Mon Dec 12, 2022 5:14 pm

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
Attachments
Area Dataset.png
Area Dataset.png (42.24 KiB) Viewed 15123 times
Area Series.jpg
Area Series.jpg (110.87 KiB) Viewed 15123 times
Bar Series.jpg
Bar Series.jpg (106.67 KiB) Viewed 15123 times

Yeray
Site Admin
Site Admin
Posts: 9509
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: Unexpected behavior of an Area series

Post by Yeray » Mon Dec 12, 2022 9:21 pm

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
Project1_2022-12-12_22-19-42.png (43.4 KiB) Viewed 15118 times
I think the issue could be on how do you calculate the XValues for your "Pendientes Acum" TAreaSeries
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

PCSdeZ
Newbie
Newbie
Posts: 18
Joined: Thu Dec 16, 2021 12:00 am

Re: Unexpected behavior of an Area series

Post by PCSdeZ » Wed Dec 14, 2022 1:19 pm

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
Attachments
Captura de Pantalla 2022-12-14 a la(s) 09.00.07.png
Captura de Pantalla 2022-12-14 a la(s) 09.00.07.png (99.85 KiB) Viewed 15079 times

Yeray
Site Admin
Site Admin
Posts: 9509
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: Unexpected behavior of an Area series

Post by Yeray » Wed Dec 14, 2022 2:16 pm

Hello,

then you just don't need to sort the array.
Project1_2022-12-14_15-11-28.png
Project1_2022-12-14_15-11-28.png (36.11 KiB) Viewed 15078 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;
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

PCSdeZ
Newbie
Newbie
Posts: 18
Joined: Thu Dec 16, 2021 12:00 am

Re: Unexpected behavior of an Area series

Post by PCSdeZ » Thu Dec 15, 2022 4:33 pm

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
Site Admin
Site Admin
Posts: 9509
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: Unexpected behavior of an Area series

Post by Yeray » Fri Dec 16, 2022 8:43 am

Hello,

This works for me:

Code: Select all

  area->YOrigin=0;
  area->UseYOrigin=true;
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

Post Reply