Stacked bars

[Kai]

We are using the TeeChartStandard2014 package.

I am testing with the MultiBar mbStacked option with this sample code:

Code: Select all

var
  i, j: Integer;
  tmpDates: array of TDateTime;

  setLength(tmpDates, 5);

  for i:=0 to High(tmpDates) do
   if i mod 2 = 0 then
    tmpDates[i]:=IncDay(Today, i*2)
   else
    tmpDates[i]:=IncDay(Today, (i*2)+1);

  for i:=0 to 1 do
  with frmChart.ChartAccounting.AddSeries(TBarSeries) as TBarSeries do
   begin
    MultiBar:=mbStacked;
    MarksOnBar:=False;
    MarksLocation:=mlCenter;
    CustomBarWidth:=40;

    XValues.DateTime:=true;

    for j:=0 to High(tmpDates) do
     begin
      if j mod 2 = 0 then
       begin
        AddXY(tmpDates[j]+i, 25+random*75, 'S' + inttoStr(i) + ' L' + IntToStr(j));
       end
      else
       begin
        AddXY(tmpDates[j], 25+random*75, 'S' + inttoStr(i) + ' L' + IntToStr(j));
      end;
    end;
  end;

The data i want to use for the bars are only at some points identical, so i try to use mbStacked.
But if i have some values which are unique the bars are "up in the air" .

The result looks like this.

test.jpg (96.51 KiB) Viewed 4386 times

Any Ideas what i am doing wrong?

[Yeray]

Hi Kai,

This happens because the stacked is based on the value indexes.
You could loop your series & values and, if the other series don't have any value at a given XValue, add a null point there. Ie:

Code: Select all

  for i:=0 to Chart1.SeriesCount-1 do
    for j:=0 to Chart1[i].Count-1 do
      for t:=0 to Chart1.SeriesCount-1 do
        if i<>t then
        begin
          found:=false;
          for w:=0 to Chart1[t].Count-1 do
            if Chart1[i].XValue[j]=Chart1[t].XValue[w] then
            begin
              found:=true;
              break;
            end;

          if not found then
            Chart1[t].AddNullXY(Chart1[i].XValue[j], 0);
        end;

[Kai]

Hi Yeray,

works perfect. Thank you.