6 respuestas en este tema

[enecumene]

Hola colegas, pues esos mismo, no me da error, sólo que no me aparece nada, aquí el código:

delphi

{*** ESTADISTICAS POR TIPO DE COMPRAS ***}
ZCta_Tipo.Close;
ZCta_Tipo.SQL.Clear;
ZCta_Tipo.SQL.Text := 'SELECT SUM(Monto) AS TOTAL, Tipo_cta FROM ctas_gral GROUP BY Tipo_cta';
ZCta_Tipo.Open;
dbcCta_Tipo.Legend.Visible:=False;
with dbcCta_Tipo.SeriesList.Series[0] do begin
 DataSource := ZCta_Tipo;
 XLabelsSource := ZCta_Tipo.fieldByName('TOTAL').FieldName;
 XValues.ValueSource := ZCta_Tipo.fieldByName('Tipo_cta').FieldName;
 YValues.ValueSource := '';
 Marks.Style := smsXValue;
 CheckDataSource;
end; //with

Nota: me funciona bien el de barra, sólo me sucede con la circular.

Saludos.

[Delphius]

¿Probaste realizando en tiempo de diseño?
En tiempo de diseño a mi me funciona (IBX + Firebird).

Yo hago lo siguiente:
1. Creo una serie, y la hago de "estilo" "Pie"
2. Selecciono la serie y establezco:
2.1. En la solapa DataSource, selecciono en el combo la opción DataSet.
2.2. De la lista de los dataset, selecciono el IBQuery.
2.3. En Labels selecciono FECHA (o TOTAL según que se desee).
2.4. En Pie, selecciono TOTAL (o FECHA según que se desee).

Confirmo los datos, y luego modifico el resto de los datos para darle el formato indicado.

Por código no te sabría decir amigo. La verdad es que por código me peleo con el componente. La ayuda que proporciona D6 sobre el componente es practicamente inexistente.

Saludos,

[enecumene]

Gracias Delphius, con tu pequeña explicación logré hacerlo vía diseño y ahora sí me aparecen los datos, de nuevo, Muchas Gracias

Saludos.

[enecumene]

Hola, aquí vuelvo otra vez con este asunto, tengo una gráfica Pie (Circular) sólo tiene dos Datos, y estoy tratando de cambiarle los colores, los que pone por defecto no me gustan  +o(, quisiera ponerle Azul y Amarillo no Verde y rojo (creo ), ¿existe una forma de hacerlo?, porque he dado todas las vueltas posibles y no las encuentro .

Saludos.

[eduarcol]

creo que tienes que mirar por esta propiedad, pero nunca he trabajado con dbchart

Applies to

TChartSeries component

Declaration
property ColorSource : String;
Description
The ColorSource property must be a valid numeric Data Field Name.
TDBChart assigns every point's color to the ColorSource field value.
Color Values in Tables or Querys must be expressed as RGB values.

[enecumene]

Gracias Eduarcol, ahora mismo lo reviso .

Saludos.

[enecumene]

Hola, Eduarcol, no me funcionó con esa propiedad, ya pude resolver mi problema haciendolo de esta manera:

delphi

dbcCta_Tipo.Series[0].ColorEachPoint := False;
dbcCta_Tipo.Series[0].ValueColor[0] := clYellow; //Primer Registro
dbcCta_Tipo.Series[0].ValueColor[1] := clBlue;  //Segundo Registro.

Saludos.