Hola Chicos Bendiciones a Todos:
necesito pre visualizar en FastReport un Gráfico mostrado desde Delphi TChart en buscado ayuda en fastreport y muestra esto:
Código Delphi
[-]
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
if Sender.Name = 'Picture1' then
TfrxPictureView(Sender).Picture.Assign(
Chart1.TeeCreateMetafile(False, Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));
end;
asi que se me ocurrio esto
Código Delphi
[-]
procedure TfrmReporteClienteFrecuente.GuardaGraficoComoImagen;
begin
MetaGrafico := DBChartAfiliadosxdia.TeeCreateMetafile (True, DBChartAfiliadosxdia.ClientRect);
end;
if DBChartAfiliadosxdia.Visible = True then
begin
GuardaGraficoComoImagen;
dmFidelizaCliente.frxReportAfiliadoxDia.ShowReport(True);
end;
Alguien tiene alguna idea? se les agradece
Saludos
novato_erick