FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Modificar colores de cada barra de un Tchart cargado desde una BD
Hola a todos un saludo, tengo un problema y no estoy pudiendo resolverlo.
Realizé una aplicación la cual presenta unos reportes en cuadros estadísticos, utilizo QuickReports para esto y el TeeChart para las gráficas, mis serie es por columnas. Los datos que voy a mostrar en estos reportes y en el TeeChart los saco de una Base de Datos. Necesito que cada columna, dependiendo del valor que saque de la BD, se pinte de un color diferente (Por Ejemplo. Si el valor es entre 0 y 3 que se pinte rojo, si el valor es entre 3,1 y 6 que se pinte verde). Porfavor, espero me puedan ayudar. Muchas Gracias anticipadamente |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
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.
|
#4
|
|||
|
|||
y mas aun, el tChart tiene un evento especifico onBeforeDrawSeries...
|
#5
|
||||
|
||||
richisaurio, bienvenido al Club.
He cerrado el otro hilo que abriste en el foro de Impresión. Entiendo que el problema puede prestarse para ambos foros pero nuestra guía de estilo no permite publicar un mismo hilo en varios foros. // Saludos |
#6
|
|||
|
|||
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 |
#7
|
|||
|
|||
Estuve colocando este codigo en un boton que llevaba al reporte
preporte.Series2.ValueColor[4]:=clBLue; preporte // Es la forma de mi reporte Una vez que se dibujan las series ya no se pueden cambiar ??? Acabado de hacer correr, colocando en el evento que me indicaste BeforeDrawSeries y fuciona a la perfeccion for i:=1 to preporte.Series2.Count do if preporte.Series2.YValue[i-1] = 1 then preporte.Series2.ValueColor[i-1]:=clBLue else preporte.Series2.ValueColor[i-1]:=clRed; GRXX |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
barra de herramientas desde delphi?? | marceloalegre | Varios | 1 | 01-04-2009 00:56:42 |
modificar diagama de barras! (Tchart) | creedence | Gráficos | 3 | 06-02-2008 16:25:37 |
accion al minimizar desde la barra de herramientas... | Greco | Varios | 1 | 06-12-2007 03:36:51 |
obtener el path de una imagen cargado en un Timage | enecumene | Gráficos | 4 | 11-03-2007 02:05:22 |
|