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

Qt,Qt5: do not call setPrinterName() if current printerName is already setted up.part of issue #34569

Browse Source 
git-svn-id: trunk@59606 -
This commit is contained in:
zeljko 2018-11-19 17:45:28 +00:00
parent b36dbf345d
commit aacbf95adb
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtobjects.pas
View File

@ -4435,7 +4435,8 @@ var
Str: WideString; Str: WideString;
begin begin
Str := AValue; Str := AValue;
QPrinter_setPrinterName(FHandle, @Str); if getPrinterName <> AValue then
QPrinter_setPrinterName(FHandle, @Str);
end; end;
function TQtPrinter.getPrinterName: WideString; function TQtPrinter.getPrinterName: WideString;

3
lcl/interfaces/qt5/qtobjects.pas
View File

@ -4441,7 +4441,8 @@ var
Str: WideString; Str: WideString;
begin begin
Str := GetUtf8String(AValue); Str := GetUtf8String(AValue);
QPrinter_setPrinterName(FHandle, @Str); if getPrinterName <> Str then
QPrinter_setPrinterName(FHandle, @Str);
end; end;
function TQtPrinter.getPrinterName: WideString; function TQtPrinter.getPrinterName: WideString;