Hi Steve

If I comment out the line that frees QR1 I still get an AV.

:-(

Mark

On 10 Jun 2003 at 13:54, Stephen Barker wrote:

> Mark,
> 
> you don't need to free the QR1 component - it is owned by the form and
> will get destroyed when the form destroys.
> 
> regards,
> Steve
> 
> > -----Original Message-----
> > From: Mark Howard [mailto:[EMAIL PROTECTED]
> > Sent: Tuesday, 10 June 2003 1:42 p.m.
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: Quick Reports Preview
> > 
> > 
> > Hi All
> > 
> > I'm trying to give my users the ability to display (and 
> > print) previously 
> > run and saved Quick Reports (ie .QRP files).  
> > 
> > I must admit that (among other things) the structure of QuickReports
> > has been a considerable mystery to me.
> > 
> > I have managed to get a Preview screen loaded with a saved report
> > and displayed.  I can resize and navigate the pages of the report OK
> > but when I close the Preview I get an AV.
> > 
> > I'd appreciate some help.  It must be something to do with 
> > not properly 
> > freeing something.
> > 
> > Below is what I have done.
> > 
> > 
> > 
> > I have created a PreviewFm form and placed a TQuickRep component
> > (QR1) on this form.  The AfterPreview event contains just a "Close"
> > statement.
> > 
> > In my app I have the following procedure:
> > 
> > procedure HandleViewReportsClick; //mh 2003-06-10
> > begin
> >   MainForm.OpenDialog.Filter := 'Report Files, *.qrp|*.QRP';
> >   MainForm.OpenDialog.Title := 'Select file to view';
> >   MainForm.OpenDialog.InitialDir := 
> > ExtractFileDir(Application.ExeName);
> > 
> >   if MainForm.OpenDialog.Execute then try
> >     Application.CreateForm(TPreviewFm, PreviewFm);
> >     PreviewFm.QR1.Prepare;
> >     try
> >       PreviewFm.QR1.QRPrinter.Load(MainForm.OpenDialog.FileName);
> >       PreviewFm.QR1.QRPrinter.Preview;
> >     finally
> >       PreviewFm.QR1.Free;
> >     end;
> >   finally
> >     PreviewFm.free;
> >   end
> > end;
> > 
> > Any help greatly appreciated
> > 
> > Mark
> > 
> > --------------------------------------------------------------
> > -------------
> >     New Zealand Delphi Users group - Delphi List - 
> > [EMAIL PROTECTED]
> >                   Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED] 
> > with body of "unsubscribe delphi"
> > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> > 
> > ---
> > Incoming mail is certified Virus Free.
> > Checked by AVG anti-virus system (http://www.grisoft.com).
> > Version: 6.0.488 / Virus Database: 287 - Release Date: 5/06/2003
> >  
> > 
> ----------------------------------------------------------------------
> -----
>     New Zealand Delphi Users group - Delphi List -
>     [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED] 
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> 


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to