Problema al usar QRPreview

[The_Duke]

saludo estoy tratando de obterne una vista previa en un QRPreview y aun poniendo el codigo me sale la vista normal y no en el QRPreview el codigo que tengo es este:
Quickrep505


Este form tiene el QRPreview

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form2.QuickRep1.Preview;
end;

este tiene el reporte

Código Delphi [-]
procedure TForm2.QuickRep1Preview(Sender: TObject);
begin
//QuickRep1.Prepare;
Form1.QRPreview1.QRPrinter := quickRep1.QRPrinter;
end;

[ecfisa]

Hola.

El componente TQRPreview no es para previsualizar sino para personalizar la previsualización. Te agrego el enlace a un artículo (documento .pdf) que explica su uso: Personalización de QuickReport.

Para previsualizar se utilizan los métodos Preview o PreviewModal del componente TQuickRep.

Saludos.

[The_Duke]

gracias, en anteriores versines lo podia editar e reporte con este codigo en este evento

Código Delphi [-]
procedure TForm2.QuickRep1Preview(Sender: TObject); begin //QuickRep1.Prepare; Form1.QRPreview1.QRPrinter := quickRep1.QRPrinter; end;

pero aal parecer an modificado los componente y cambiaron la forma de operar de ellos

en esta imagen se muestra su antiguo funcionamiento

[ecfisa]

Hola The_Duke.

Ahora, viendo la imágen, entiendo lo que deseas hacer. Te hice un ejemplo simple basado en la tabla biolife que viene con Delphi.
Como no sé que versión de Delphi estes usando y para asegurarme que lo puedas correr, también incorporé la tabla al adjunto. Es decir que descomprimiendo el archivo en una carpeta temporal tendrías que poder ejecutarlo sin problemas.

En la página del producto hay un poco más de información sobre el componente:

• quickreport - TQRPreview
• Controlling the preview

Saludos.

[[Lepe]]

No sé que versiones estáis usando, pero la manera más simple es diciendo a QuickReport que vas a usar tu propia clase para previsualizar:

1º- RegisterPreviewClass(TQRCustomPreviewInterface); le dice a QuickReport qué clase tiene que crear para previsualizar los informes.

2º- Por supuesto tu clase tiene que heredar de TQRPreviewInterface. y ya QR llamará a Show o ShowModal (según el usuario utilice qr.Preview o qr.PreviewModal).

Código Delphi [-]
  TQRCustomPreviewInterface = class(TQRPreviewInterface)
  private
  public
    function Show(AQRPrinter: TQRPrinter): TWinControl;
    function ShowModal(AQRPrinter : TQRPrinter)  : TWinControl; override;
  end;

implementation


function TQRCustomPreviewInterface.ShowModal(AQRPrinter: TQRPrinter): TWinControl;
var
  frm : TPrevForm ;
begin
// este frm es mi ventana que dentro tiene un TQrPreview llamado "Prev"
  frm                     := TMiPresentacionPreliminar.Create( Application ) ;
  frm.Prev.QRPrinter := AQRPrinter ; 
  frm.ShowModal ;
  frm.Free;
end;

initialization
  RegisterPreviewClass(TQRCustomPreviewInterface);

A mí me funciona.

Saludos