No, just have the QReport(or whatever it is) unit in your uses clause. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mark Howard Sent: Tuesday, 10 June 2003 3:51 pm To: Multiple recipients of list delphi Subject: RE: [DUG]: Quick Reports Preview
On 10 Jun 2003 at 13:10, Jeremy North wrote: > I would use this. You have to use _PreviewModal_ in this instance. > > if opendialog1.execute then > begin > QuickReport1 := TQuickReport1.Create(self); > try > QuickReport1.Prepare; > QuickReport1.QRPrinter.Load(opendialog1.filename); > QuickReport1.QRPrinter.PreviewModal; > finally > QuickReport1.Free; > end; > end; > To get this to work it seems that I would have to put a TQuickRep component on the main for of the application, (which I don't want to do). How would I modify this so that I could use a TQuickRep component on another form? (yeah - I know, I should know this stuff by now!) Mark > [EMAIL PROTECTED] wrote on 10/06/2003 12:41:17 PM: > > > On 10 Jun 2003 at 12:19, Jeremy North wrote: > > > > > Any reason you are creating this dialog with application as > > > parent? I remember some issue with temp path's being too long > > > causing errors. This might be it. > > Not sure I understand what you are saying. I have copied the target > > .QRP file to the root level on my D:drive and get the same error. > > > > > > Anything in the destroy/free of the form you are creating? > > > > > > Hanging try..finally block.............. > > There is now NO code in the created form (after removing the Close > > as suggested by James) Mark > > > > > > JED > > > > > > [EMAIL PROTECTED] wrote on 10/06/2003 12:04:21 PM: > > > > > > > > > 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.FileN > > > > > > ame) ; PreviewFm.QR1.QRPrinter.Preview; > > > > > > finally > > > > > > PreviewFm.QR1.Free; > > > > > > end; > > > > > > finally > > > > > > PreviewFm.free; > > > > > > end > > > > > > end; > > > > > > > > > > > > Any help greatly appreciated > > > > > > > > > > > > Mark > > > > > > > > > > > > This email and any files transmitted with it are confidential and > > > intended solely for the use of the individual or entity to whom > > > they are addressed. If you have received this email in error > > > please notify the [EMAIL PROTECTED] > > > > > > ------------------------------------------------------------------ > > > ---- ----- > > > 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/ > > ---------------------------------------------------------------------- > ----- > 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/ --- 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 --- Outgoing 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/