Quickreport forum
Go to Quickreport website
Welcome Guest Search | Active Topics | Log In | Register

Problem in procedure TQRStandardPreview.SaveClick(Sender: TObject)
#1 Posted : 27 December 2017 01:16:59(UTC)
Rank: Member

Groups: Registered
Joined: 21/07/2016(UTC)
Posts: 10
Location: São Paulo

Thanks: 0 times
Was thanked: 0 time(s) in 0 post(s)
procedure TQRStandardPreview.SaveClick(Sender: TObject);

Add the TQRPDFFilter, TQRRTFFilter, TQRExcelFilter etc , o SaveClick Not saved as PDF, Excel and more, just in .QRP

Excerpt from the problem:

findx := pos('QRP', QRExportFilterLibrary.SaveDialogFilterString);
if findx = -1 then
sdialog.Filter := QRSaveExtensions[FParentreport.PreviewDefaultSaveType]+'|*' + QRSaveExtensions[FParentreport.PreviewDefaultSaveType]
+'|' + QRExportFilterLibrary.SaveDialogFilterString
sdialog.Filter := QRExportFilterLibrary.SaveDialogFilterString; }

=> Include Resourcestring (qr6const.pas )
showmessage('The file is read-only or in use - save abandoned.')

In qr6const.pas
SqrReadOnlyInUse = 'The file is read-only or in use - save abandoned.';

showmessage(SqrReadOnlyInUse )
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Clean Slate theme by Jaben Cargman (Tiny Gecko)
Powered by YAF 1.9.4 | YAF © 2003-2010, Yet Another Forum.NET
This page was generated in 0.025 seconds.