paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 15:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: stopped assert from Qt4 lib when CustomPageSize is setted up. With Qt5 it works ok.

Browse Source 
git-svn-id: trunk@55883 -
This commit is contained in:
zeljko 2017-09-18 07:55:14 +00:00
parent 277eafe535
commit b0e2efefe6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/printers/qt/qtprinters.inc
View File

@ -149,6 +149,12 @@ var
i := Length(FPapers);
SetLength(FPapers, i+1);
FPapers[i].PaperName := PaperName;
//CustomPageSize should be automatically set by setting different paper size
//than known paper size. Qt4 asserts when CustomPageSize is directly setted up.
{$IFDEF LCLQt}
if (pgSize > 30) then
{$ENDIF}
QtDefaultPrinter.PageSize := PgSize;
FPapers[i].PageRect := QtDefaultPrinter.PageRect;
FPapers[i].PaperRect := QtDefaultPrinter.PaperRect;