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

LCL, postscriptcanvas: fix landscape and reverse landscape orientation, from Percy Van Den bylaardt, issue #27048

Browse Source 
git-svn-id: trunk@46926 -
This commit is contained in:
jesus 2014-11-21 01:42:21 +00:00
parent 5e600cad63
commit c6c954a140
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/postscriptcanvas.pas
View File

@ -710,15 +710,16 @@ begin
Write(format('%d %d translate 180 rotate',[w,h])); Write(format('%d %d translate 180 rotate',[w,h]));
end; end;
poLandscape: poLandscape:
begin begin
h:=round(PaperWidth*72/XDPI); h:=round(PaperHeight*72/YDPI);
Write(format('0 %d translate 90 neg rotate',[h])); Write(format('%d 0 translate 90 rotate',[h]));
end; end;
poReverseLandscape: poReverseLandscape:
begin begin
h:=round(PaperHeight*72/YDPI); w:=round((PaperWidth-PaperHeight)*72/XDPI);
Write(format('%d 0 translate 90 rotate',[h])); h:=round(PaperHeight*72/XDPI);
end; Write(format('%d %d translate 90 neg rotate',[w,h]));
end;
end; end;
end; end;