Marks are cut off

[TestAlways]

I use marks in a bar chart that can be clipped by the margin--for example, see the right-most bar in the chart below.



Most of the time this does not happen. But for this scenario (and others) it does.

Is there a way of fixing this so that

(1) marks are not clipped; and

(2) it doesn't create needless margin for the charts that do not have the marks clipped?

Thank you,

Ed Dressel

[Yeray]

Hi Ed,

I can't reproduce this in a new chart with just a Bar series and some random values. I'm not sure about what element or combination of elements could be causing this. However, you probably can fix it adding some extra margin on the top of the chart, have you tried it?
Could you please send us some project we can run as-is to reproduce the problem here?
Thanks in advance.

[TestAlways]

See the attached demo. Click on any of the "test..." buttons at the bottom of the screen--the problem is accentuated when a graphic (bitmap) of the chart is created (displayed to the right of the chart).

Also, can you clarify about adding extra margin at the top—I don’t want to create needless margin that waists space. Is there a way of knowing how much margin to add? An example?

Thank you,

Ed Dressel

[TestAlways]

Attached is the demo.

[Test Always]

Any comments?

[Yeray]

Hello Ed,

We are investigating it. Please stay tuned.

[Yeray]

Hi Ed,

You could do something like this to calculate the Margins needed for the multiline labels in the bottom axis, and for the multiline marks in the series:

Code: Select all

procedure TForm1.RecalcMargins;
var i, maxHeight, tmpNum: Integer;
    tmpSize: TPoint;
begin
  chrtSavingsNeeded.Draw;

  with chrtSavingsNeeded.Axes.Bottom do
  if LabelsMultiLine then
  begin
    maxHeight:=0;
    for i:=0 to Pred(Items.Count) do
    begin
      tmpSize:=chrtSavingsNeeded.MultiLineTextSize(Items[i].Text, Items[i].Format.TextFormat, tmpNum);
      maxHeight:=Max(maxHeight, tmpSize.Y);
    end;
    chrtSavingsNeeded.MarginUnits:=muPixels;
    chrtSavingsNeeded.MarginBottom:=maxHeight;
  end
  else
  begin
    chrtSavingsNeeded.MarginUnits:=muPercent;
    chrtSavingsNeeded.MarginBottom:=4;
  end;

  chrtSavingsNeeded.Draw;
  if Series1.Count>0 then
  begin
    maxHeight:=Series1.Marks.Positions[0].LeftTop.Y;
    for i:=1 to Pred(Series1.Count) do
      maxHeight:=Min(maxHeight, Series1.Marks.Positions[i].LeftTop.Y);

    chrtSavingsNeeded.MarginUnits:=muPixels;
    chrtSavingsNeeded.MarginTop:=(chrtSavingsNeeded.ChartRect.Top-maxHeight);
  end
  else
  begin
    chrtSavingsNeeded.MarginUnits:=muPercent;
    chrtSavingsNeeded.MarginTop:=8;
  end;
end;

You could call this method in each button, after adding the values in the series.
However, the margins needed for the images are different. To fix this, you could create a temporal chart with the final size, calculate the margins for it as above, and export this temporal chart.