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

* Fix from Christian Ulrich to import orientation

Browse Source 
git-svn-id: trunk@39202 -
This commit is contained in:
michael 2018-06-09 12:47:31 +00:00
parent 9e76882ae6
commit 02dc95a510
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-report/src/fplazreport.pp
View File

@ -701,6 +701,8 @@ begin
aPage.PageSize.Width := round(PageToMM(StrToFloatDef(GetProperty(aPageNode,'Width'),aPage.PageSize.Width)));
if GetProperty(aPageNode,'Height')<>'' then
aPage.PageSize.Height := round(PageToMM(StrToFloatDef(GetProperty(aPageNode,'Height'),aPage.PageSize.Width)));
if GetProperty(aPageNode,'Orientation') = 'poLandscape' then
aPage.Orientation:=poLandscape;
aDataNode := aPageNode.FindNode('Margins');
if Assigned(aDataNode) then
begin