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.FileName)
> > > >       ; 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/

Reply via email to