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/
