paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix wrong page orientation on export (Patch from Graeme Geldenhuys, bug ID #32480)

Browse Source 
git-svn-id: trunk@37331 -
This commit is contained in:
michael 2017-09-27 11:28:56 +00:00
parent 710adec670
commit 48fb1eb8cf
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-report/src/fpreportfpimageexport.pp
View File

@ -249,8 +249,16 @@ begin
FreeAndNil(FCanvas); FreeAndNil(FCanvas);
FreeAndNil(FHelper); FreeAndNil(FHelper);
FreeAndNil(FImage); FreeAndNil(FImage);
if APage.Orientation = poLandscape then
begin
FImageWidth := mmToPixels(APage.PageSize.Height);
FImageHeight := mmToPixels(APage.PageSize.Width);
end
else
begin
FImageWidth := mmToPixels(APage.PageSize.Width); FImageWidth := mmToPixels(APage.PageSize.Width);
FImageHeight := mmToPixels(APage.PageSize.Height); FImageHeight := mmToPixels(APage.PageSize.Height);
end;
FImage:=CreateImage(FImageWidth,FImageHeight); FImage:=CreateImage(FImageWidth,FImageHeight);
FCanvas:=CreateCanvas(FImage); FCanvas:=CreateCanvas(FImage);
FHelper:=TFPReportCanvasHelper.Create(FCanvas,DPI); FHelper:=TFPReportCanvasHelper.Create(FCanvas,DPI);