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

LazReport: Fix a problem exporting 2 pages from LazReport to JPEG image. Issue #31400, patch from Lagunov Aleksey.

Browse Source 
git-svn-id: trunk@54306 -
This commit is contained in:
juha 2017-02-28 16:29:19 +00:00
parent 491d57ecbc
commit c6e74cb0e3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazreport/source/addons/imgexport/lr_e_img.pas
View File

@ -80,6 +80,7 @@ var
TmpVisible: Boolean; TmpVisible: Boolean;
begin begin
Inc(FCurPage); Inc(FCurPage);
FBmp.Clear;
FBmp.SetSize(Round(CurReport.EMFPages[FCurPage - 1]^.PrnInfo.Pgw * FZoom), FBmp.SetSize(Round(CurReport.EMFPages[FCurPage - 1]^.PrnInfo.Pgw * FZoom),
Round(CurReport.EMFPages[FCurPage - 1]^.PrnInfo.Pgh * FZoom)); Round(CurReport.EMFPages[FCurPage - 1]^.PrnInfo.Pgh * FZoom));
FBmp.Canvas.Brush.Color := FColor; FBmp.Canvas.Brush.Color := FColor;