Modificar colores de cada barra de un Tchart cargado desde una BD

[[coso]]

El quickreport tiene un evento onprint, el chart (supongo q estas usando un componente QRChart dentro del formulario) tambien tiene un evento onprint. Es alla donde debes discriminar el color segun su valor. Algo mas o menos asi
if
QRChart1.Chart.SeriesList.Series[0].YValue[0] > 5 then
QRChart1.Chart....Color := clBlue
else
QRChart1.Chart....Color := clRed;

no he encontrado la propiedad del color del rectangulo pero tiene q estar por alli.

[[coso]]

Vaya, acabo de leer y veo q es un TChart lo que usas, independientemente del quickreport. Debes usar entonces el evento onpaint. Recuerda por eso, q si quieres imprimirlo en un quickreport, deberas hacer algo parecido en el evento onprint.

[[coso]]

y mas aun, el tChart tiene un evento especifico onBeforeDrawSeries...

[richisaurio]

Yo estuve preguntando de la siguiente manera los valores del TeeChart

for i:=1 to Series2.Count do
if preporte.Series3.YValue[i-1] = 1 then

El problema es nose como cambiar los colores, nose que propiedad, no se como cambiar el color es en eso que necesito la ayuda