paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 17:58:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: do not try to set printer paper info when an exception occurs in ChangePaper

Browse Source 
git-svn-id: trunk@58598 -
This commit is contained in:
blikblum 2018-07-23 00:34:07 +00:00
parent 1168572c7d
commit 526e755e0e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_class.pas
View File

@ -7470,10 +7470,8 @@ begin
on E:exception do
begin
{$ifdef DbgPrinter}
Debugln(['Exception: selecting custom paper ']);
Debugln('Exception: %s', [E.Message]);
{$endif}
Prn.SetPrinterInfo($100, AWidth, AHeight, AOr);
Prn.FillPrnInfo(PrnInfo);
end;
end;
pgSize := Prn.PaperSize;