德尔福TChart条宽

Question

我试图找出如何设置固定大小的条形图＆＃39; TChart中的宽度。

我试图搜索类似的问题＆＃34;但我可能使用错误的条款，因为我在互联网上找不到相关主题。

我的图表启用了水平滚动功能，因此无论图表中有多少个条形图，我都希望条形图具有相同的宽度。

这是一个示例，其中我添加了10个样本值，为了我的目的，这个条形宽度是可以接受的：

但是当我添加40个样本值时，例如，条形变得如此之薄，即使只显示10个值，只有在向左滚动条形图后才能看到所有其他值：

这是我用来添加示例值的代码（仅供您查看，没有什么特别之处）：

procedure TForm5.Button1Click(Sender: TObject);
var
    i: Integer;
begin
    for i := 0 to ChartFatGrupoPerc.SeriesCount-1 do
        ChartFatGrupoPerc.Series[i].FillSampleValues(StrToInt(eItems.Text));
    ChartFatGrupoPerc.BottomAxis.Maximum := StrToInt(eMax.Text);
    ChartFatGrupoPerc.BottomAxis.Minimum := StrToInt(eMin.Text);
end;

所以，问题是：有没有办法我可以定义条形图＆＃39;宽度无论值多少？

提前致谢，
Kelver Merlotti [KM]

Answer 1

  

有没有办法可以定义条形图＆＃39;宽度无论值多少？

是的，设置这些属性可以解决问题：

AutoBarSize := false; 
CustomBarWidth := aSuitableNumber;