From 80d2cfa567418be632cc4330dc0f80c2643f9c31 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 13 May 2021 19:18:39 +0000
Subject: [PATCH] Printers: QT5, fix inadvertent change of default paper

git-svn-id: trunk@65113 -
---
 components/printers/qt/qtprinters.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/printers/qt/qtprinters.inc b/components/printers/qt/qtprinters.inc
index 1c78b43b94..7b4bd87e5b 100644
--- a/components/printers/qt/qtprinters.inc
+++ b/components/printers/qt/qtprinters.inc
@@ -198,7 +198,9 @@ var
   procedure AddAll;
   var
     i: Integer;
+    oldPageSize: QPagedPaintDevicePageSize;
   begin
+    oldPageSize := QtDefaultPrinter.PageSize;
     {$IFDEF LCLQt5}
     for i:=QPagedPaintDeviceA4 to QPagedPaintDeviceCustom do
       Add(ArrPapers[i], i);
@@ -206,6 +208,7 @@ var
     for i:=QPrinterA4 to QPrinterCustom do
       Add(ArrPapers[i], i);
     {$ENDIF}
+    QtDefaultPrinter.PageSize := oldPageSize;
   end;
 
 begin