From aacbf95adb11e6905f13b93aa6f87dd51b6ce8f5 Mon Sep 17 00:00:00 2001 From: zeljko Date: Mon, 19 Nov 2018 17:45:28 +0000 Subject: [PATCH] Qt,Qt5: do not call setPrinterName() if current printerName is already setted up.part of issue #34569 git-svn-id: trunk@59606 - --- lcl/interfaces/qt/qtobjects.pas | 3 ++- lcl/interfaces/qt5/qtobjects.pas | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas index b1362f680c..d4891cf647 100644 --- a/lcl/interfaces/qt/qtobjects.pas +++ b/lcl/interfaces/qt/qtobjects.pas @@ -4435,7 +4435,8 @@ var Str: WideString; begin Str := AValue; - QPrinter_setPrinterName(FHandle, @Str); + if getPrinterName <> AValue then + QPrinter_setPrinterName(FHandle, @Str); end; function TQtPrinter.getPrinterName: WideString; diff --git a/lcl/interfaces/qt5/qtobjects.pas b/lcl/interfaces/qt5/qtobjects.pas index a7d1bc0269..cf6403f2e1 100644 --- a/lcl/interfaces/qt5/qtobjects.pas +++ b/lcl/interfaces/qt5/qtobjects.pas @@ -4441,7 +4441,8 @@ var Str: WideString; begin Str := GetUtf8String(AValue); - QPrinter_setPrinterName(FHandle, @Str); + if getPrinterName <> Str then + QPrinter_setPrinterName(FHandle, @Str); end; function TQtPrinter.getPrinterName: WideString;