paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 22:59:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_IPro: Avoid duplicate printfilename queries when printing to some PDF printers.

Browse Source
This commit is contained in:
wp_xyz 2023-03-05 17:50:39 +01:00
parent 74adbc30c7
commit cb40b44572
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/turbopower_ipro/iphtml.pas
View File

@ -5580,6 +5580,7 @@ var
LogPixX, LMarginPix, RMarginPix,
LogPixY, TMarginPix, BMarginPix,
H: Integer;
oldPrinterFileName: String;
begin
// check ir BeginPrint was called
if not Printed then begin
@ -5588,6 +5589,12 @@ begin
Printer.Title := Hyper.TitleNode.Title
else
Printer.Title := 'HTML Document';
// Avoid showing the print file selection dialog appearing in case of some
// PDF printers.
oldPrinterFileName := Printer.FileName;
Printer.FileName := 'test';
Printer.BeginDoc;
GetRelativeAspect(Printer.Canvas.Handle);
{$IF NOT DEFINED(WINDOWS)}
@ -5620,6 +5627,7 @@ begin
if H mod PrintHeight <> 0 then
Inc(PageCount);
Printer.Abort;
Printer.FileName := oldPrinterFileName;
end else
raise Exception.Create('BeginPrint must be called before ResetPrint.');
end;
@ -5679,7 +5687,6 @@ begin
oldRD := Hyper.RenderDevice;
BeginPrint;
try
preview := TIpHTMLPreview.Create(Application);
with preview do
try