Ver Mensaje Individual
  #6  
Antiguo 16-08-2006
santi33a santi33a is offline
Miembro
 
Registrado: jun 2005
Posts: 208
Reputación: 20
santi33a Va por buen camino
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
Responder Con Cita