paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 23:00:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: fixed crash when caching papers. part of #34558

Browse Source 
git-svn-id: trunk@59594 -
This commit is contained in:
zeljko 2018-11-18 12:34:21 +00:00
parent 7de1b4bb56
commit b2f4e56a09
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -151,6 +151,9 @@ var
PrinterList: TStringList;
Info: QPrinterInfoH;
Arr: TPtrIntArray;
{$IFDEF LCLQt5}
APrnName: WideString;
{$ENDIF}
CurrentPageSize, PageSize: QtLCLPrinterPageSize;
Index: Integer;
customPaperAdded: boolean;
@ -221,8 +224,17 @@ begin
Index := PrinterList.IndexOf(UTF8Encode(QtDefaultPrinter.PrinterName));
if Index>=0 then
begin
{$IFDEF LCLQt5}
Info := QPrinterInfo_create();
APrnName := PrinterList{%H-}[Index];
QPrinterInfo_printerInfo(Info, @APrnName);
{$ELSE}
Info := QPrinterInfoH(PrinterList.Objects[Index]);
{$ENDIF}
QPrinterInfo_supportedPaperSizes(Info, @Arr);
{$IFDEF LCLQt5}
QPrinterInfo_destroy(Info);
{$ENDIF}
for PageSize in Arr do
{$IFDEF LCLQt5}
for Index := QPagedPaintDeviceA4 to QPagedPaintDeviceCustom do