Bug 2588

When all the values in a series have the same y value, the left axis has minimum=maximum. Then, when this value has decimals, it is rounded when calculating the maximum labels width and thus the automatic margin is wrong.

Here the simple example:

type TChartPos = (cTop, cBottom);

procedure TForm1.FormCreate(Sender: TObject);

  procedure CreateChart(AChartPos: TChartPos);
  var Chart: TChart;
      i: Integer;
  begin
    Chart:=TChart.Create(Self);
    Chart.Parent:=Self;
    Chart.View3D:=False;
    Chart.Legend.Hide;
    Chart.Left:=10;

    Chart.Axes.Left.LabelsFont.Size:=12;
    Chart.Axes.Bottom.LabelsFont.Size:=12;
    Chart.Title.Hide;

    Chart.AddSeries(TLineSeries);

    if AChartPos = cTop then
    begin
      Chart.Top:=10;
      for i:=0 to 8 do
        Chart[0].Add(1.088);
    end
    else
    begin
      Chart.Top:=Chart.Height+20;
      for i:=0 to 8 do
        Chart[0].Add(49+random*2);
    end;
  end;

begin
  CreateChart(cTop);     // wrong
  CreateChart(cBottom);  // correct
end;