Ver Mensaje Individual
  #5  
Antiguo 02-06-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
Ese detalle lo han explicado los creadores de Qreporte desde siempre, en su página encontrarás información, incluso en el paquete profesional encontrarás referencias a eso.

Código Delphi [-]
Exportar un TeeChart por medio de un QRImage
==================================

1. Usando el portapapeles


procedure TfrmTrades.qrbChartDetailBeforePrint(Sender:TQRCustomBand;var PrintBand: Boolean);
var
    Meta: TMetaFile;
begin
    QRChart3.Chart.CopyToClipboardMetaFile(true);
    if Clipboard.HasFormat(CF_METAFILEPICT) then begin
     Meta := TMetaFile.Create;
      try
         Meta.Assign(Clipboard);
         QRImage1.picture.metafile.assign(meta);
      finally
         Meta.Free;
      end;
    end;
end;


2. Mejor manera de exportar sin utilizar el portapapeles


procedure TfrmTrades.qrbChartDetailBeforePrint(Sender:TQRCustomBand;var
PrintBand: Boolean);
var
    Meta: TMetaFile;
begin
  Meta := QRChart3.Chart.TeeCreateMetafile(True,
QRChart3.Chart.GetRectangle);
  try
    QRImage1.Picture.Metafile.Assign(Meta);
  finally
    Meta.Free;
  end;
end;

Thanks to :
Nikita Ievlev
__________________

Responder Con Cita