条形系列的 TChart 大小变化

Question

我有几个时期(月(的数据。选择周期时，将显示多个饼图。在该表单上，用户可以单击以选择下一个或上一个周期，然后重新绘制图表以反映该期间的数据。目前为止，一切都好。

饼图最多可以包含 7 个饼图(用户请求(。如果值超过 7 个(我没有使用 OtherPie 功能(，则会创建一个"其他"饼图，当您单击该"其他"饼图时，条形图变得可见。该条形系列的值将添加到饼图的图例中。工作正常。

现在我选择周期十月，点击另一个饼图，条形图变得可见。我选择下一个周期，单击其他饼图，条形图再次可见。但是然后我回到上一个时期，单击另一个饼图，条形图变得可见，但要小得多！太小了！ 再次选择下一个周期a，条形图很好，回去，条形图很小。

请看本期的截图：TChart Issue.wmv

对我来说奇怪的是，我第一次显示十月期间的条形图，它进展顺利，但第二次它以这种小格式显示。在我看来，财产发生了变化或其他什么。但是，这可能是错误的思维方向...

我查看了数据，尝试了几个属性，目前正在尝试缩放选项。我还向Steema寻求帮助，但到目前为止还没有结果。

procedure FillChart(AChart: TChart; AOverviewItemList: TOverviewItemList; APieSeries: TPieSeries; ABarSeries: TBarSeries);
var
i:                  integer;
vOVitem:            TOverviewItem;
LValue:             double;
LOtherValue:        double;
LUseOtherPieIdx:    integer;
LLabel:             string;
t:                  integer;
begin
LSortedGraphItems.Clear;
{ because my users don't want to use the standard functionality of the     }
{ 'other'-slices, I first add the items to a stringlist, sort that list    }
{ so I can then use the first 6 values for the pie, and if there are more  }
{ values I create an 'other'-pie myself and put the values in a bar-series }
{ here the stringlist will be filled }
for vOVItem in AOverviewItemList do
begin
LValue := vOVItem.Details[0].Periods[APeriod].Total;
LLabel := vOVItem.ResultItem.Description;
if abs(LValue) > 0 then
begin
LSortedGraphItems.Add(Format('%10.5f=%s',[LValue, LLabel]));
end;
end;
{ determine when to use values for otherpie, There should never be }
{ more than 7 pies in the pie-chart. }
LUseOtherPieIdx := max(0, LSortedGraphItems.Count - 7);
LSortedGraphItems.Sort;
{ always start clean }
LOtherValue := 0;
ABarSeries.Clear;
{ add values to either the pie- or the bar-series }
for i := 0 to LSortedGraphItems.Count-1 do
begin
lValue  := StrToFloatDef(LSortedGraphItems.Names[i], 0);
LLabel  := LSortedGraphItems.ValueFromIndex[i];
if LValue < 0 then
begin
LValue := abs(LValue);
LLabel := '-'+LLabel;
end;
if (LUseOtherPieIdx > 0) and (i <= LUseOtherPieIdx) then
begin
LOtherValue := LOtherValue + LValue;
ABarSeries.Add(LValue, LLabel);
end else
begin
APieSeries.Add(LValue, LLabel);
APieSeries.Tag := 0;
end;
end;
{ add a 'other'-pie if necessary }
if (LOtherValue > 0)then
begin
APieSeries.Add(LOtherValue, Translate('Other'));
APieSeries.Tag := 1;
end;
end;

Answer 1

我的一位同事提出了以下解决方案。添加条形系列的值后，添加

AChart.LeftAxis.Maximum := ABarSeries.MaxYValue;

一个或解释是，第一次 LeftAxis 的属性很好，但被 11 月的值覆盖。回到 10 月，将 LeftAxis 属性设置为适合 11 月的值，会使 10 月条形图看起来太小。