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

LazReport, store used paper size

Browse Source 
git-svn-id: trunk@40474 -
This commit is contained in:
jesus 2013-03-04 05:59:26 +00:00
parent faaf316280
commit bf7a97b65f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazreport/source/lr_prntr.pas
View File

@ -801,11 +801,14 @@ begin
{$Endif}
try
PaperWidth:=fPrinter.PageWidth;
PaperHeight:=fPrinter.PageHeight;
finally
// update paper size in std pt units
PaperWidth := round(fPrinter.PaperSize.Width * 72 / fPrinter.XDPI);
PaperHeight := round(fPrinter.PaperSize.Height * 72 / fPrinter.YDPI);
except
PaperWidth:=1;
PaperHeight:=1;
// let it as it was ....
raise
end;
end;
{$ifdef DbgPrinter}