Как изменить цвет среза среды выполнения Tdbchart в Delphi

Question

Я использую tdbchart в проекте Delphi7, который получает свои данные из типа dbchart TAdoquery.chart, это Pie, а цвет срезов - defaulat (желтый, красный, зеленый).

Я хочу изменить цвет времени среза. Как я могу это сделать?

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; 

когда: цвет представляет собой массив цветов, которые мы хотим.