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

Question

我在 Delphi7 项目中使用 tdbchart，它从 TAdoquery.chart 类型的 dbchart 中获取数据，它是饼图，切片颜色是默认颜色（黄色、红色、绿色）。

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

Answer 1

我使用 TChart 而不是 TDbChart 并编写了这些代码以获取来自 TAdoQuery 的值：

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;

何时：颜色是我们想要的颜色数组。

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

How can I change slice color of a Tdbchart runtime in Delphi

delphi

delphi-7

pie-chart