关于CHART 图 的 BAR 柱子大小控制，急，。急 ，求救，马上给分

Question

关于CHART 图 的 BAR 柱子大小控制，急，。急 ，求救我想通过通过程序里控制CHART 里的BAR 图中 柱子大下，请大家帮忙，谢谢，
如果直接更改在CHART 里 PAGE 里面直接控制PAGE 数量就可以，如何变成程序呢，

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var b : tbarseries;
    i : integer;
begin
 b:=tbarseries.Create(self);
 chart1.AddSeries(b);
 for i:=0 to 12
 do
  b.AddBar(i+30,inttostr(i),clblue);
 b.CustomBarWidth:=1;
end;

Answer 2

注：
其中这句 b.CustomBarWidth:=1;
就是改变宽度的