paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed compilation - regression from r65113 #80d2cfa567 by Jesus

Browse Source 
git-svn-id: trunk@65116 -
This commit is contained in:
zeljko 2021-05-14 17:46:10 +00:00
parent 649d8f7484
commit f9d0cabc30
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -198,17 +198,19 @@ var
procedure AddAll;
var
i: Integer;
oldPageSize: QPagedPaintDevicePageSize;
begin
oldPageSize := QtDefaultPrinter.PageSize;
{$IFDEF LCLQt5}
oldPageSize: QPagedPaintDevicePageSize;
{$ENDIF}
begin
{$IFDEF LCLQt5}
oldPageSize := QtDefaultPrinter.PageSize;
for i:=QPagedPaintDeviceA4 to QPagedPaintDeviceCustom do
Add(ArrPapers[i], i);
QtDefaultPrinter.PageSize := oldPageSize;
{$ELSE}
for i:=QPrinterA4 to QPrinterCustom do
Add(ArrPapers[i], i);
{$ENDIF}
QtDefaultPrinter.PageSize := oldPageSize;
end;
begin