Poner una nota en un Chart

[santi33a]

Hola a Todos:
Alguien me puede decir como poner una nota o label dentro de un chart en la posición que yo quiera ?

Santiago

[dec]

Hola,

¿Cuenta ese componente con una propiedad "Canvas"? Si es así tal vez pudiera servirte utilizar alguno de los métodos de la clase de esa propiedad, como "TextOut". Prueba a ver y cuentas qué tal va.

[santi33a]

ok, es lo que buscaba, solo que he notado que cuando minimizo y restauro la aplicación el texto desaparece y tengo que volerlo a pintar.
¿ Sabes de otra solución ?

[dec]

Hola,

Tal vez podrías aprovechar el evento "OnPaint" del formulario, o del propio componente (la verdad es que no he tocado mucho estos temas) para actualizar la "nota" que quieres escribir. No sé si, por otro lado, podrías, directamente, crear un "TLabel" en tiempo de ejecución y situarlo "encima" del componente a que te refieres. Tal vez de este modo no tendrías los problemas que dices, pero, prueba con lo que te comento del evento "OnPaint", sea del formulario, sea del componente de marras.

[santi33a]

Hola Dec:
En el evento OnPaint del formilario no me funciona pero lo peor es que no sale cuando lo quiero imprimir (Chart1.print), que es el objetivo final.

[santi33a]

Hola:
Les diré que lo resolví poniendolo en el evento AfterDraw del Chart

Código Delphi [-]
procedure TGrafLin.Chart1AfterDraw(Sender: TObject);
begin
 with chart1.Canvas do begin
  Font.Size := chart1.Legend.Font.Size; // Ojo si no lo pongo en la pantalla me sale bien, pero a la hora de imprimir es un desastre
  Font.Style := [fsBold];
  Font.Color := Series2.SeriesColor;
  TextOut(Series2.CalcXPos(0),series2.CalcYPos(0)+10 ,'Rechazo');
end;

Espero le sirva a alguien

Santiago