如何在Delphi中更改Tdbchart运行时的切片颜色

Question

我在Delphi7项目中使用tdbchart，它从TAdoquery获取其数据。表格类型为dbchart，切片颜色为defaulat颜色（黄色，红色，绿色）。

我想更改切片运行时的颜色。我怎么能这样做？

Answer 1

我使用TChart而不是TDbChart，并为TAdoQuery中的gettig值编写了这些代码：

with AdoQuery1 do
  begin
    i := 1;
    while not Eof do
      begin          
        chart1.Series[0].Add(fieldbyname('count').AsInteger,fieldbyname('statename').AsString,colors[i]);
        i := (i+1) mod 10;
        Next;
      end;
   end;

when：colors是我们想要的颜色数组。