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

Question

我在一个Delphi7项目中使用了一个tdbchart，它从一个TAdoquery.chart类型的dbchart中获取数据，dbchart的类型是Pie，切片颜色是默认颜色(黄色、红色、绿色)。

我想在运行时更改slices的颜色。我该怎么做呢？

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是我们想要的颜色数组。