paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed PaperRect if orientation is different than poPortrait

Browse Source 
git-svn-id: trunk@8328 -
This commit is contained in:
jesus 2005-12-15 22:05:26 +00:00
parent 0bbe8bab58
commit 8aa48b484f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/printers.pas
View File

@ -762,16 +762,17 @@ begin
if Margins=1 then
begin
Result.WorkRect.Right:=TmpPaperRect.WorkRect.Bottom;
Result.WorkRect.Left:=TmpPaperRect.WorkRect.Top;
Result.WorkRect.Bottom:=TmpPaperRect.WorkRect.Left;
Result.WorkRect.Top:=TmpPaperRect.WorkRect.Right;
Result.WorkRect.Left:=TmpPaperRect.WorkRect.Left;
Result.WorkRect.Bottom:=TmpPaperRect.WorkRect.Right;
Result.WorkRect.Top:=TmpPaperRect.WorkRect.Top;
end
else
begin
Result.WorkRect.Left:=Result.PhysicalRect.Left+TmpPaperRect.WorkRect.Top;
// workrect is margins
Result.WorkRect.Left:=Result.PhysicalRect.Left+TmpPaperRect.WorkRect.left;
Result.WorkRect.Right:=Result.PhysicalRect.Right-TmpPaperRect.WorkRect.Bottom;
Result.WorkRect.Top:=Result.PhysicalRect.Top+TmpPaperRect.WorkRect.Right;
Result.WorkRect.Bottom:=Result.PhysicalRect.Bottom-TmpPaperRect.WorkRect.Left;
Result.WorkRect.Top:=Result.PhysicalRect.Top+TmpPaperRect.WorkRect.top;
Result.WorkRect.Bottom:=Result.PhysicalRect.Bottom-TmpPaperRect.WorkRect.right;
end;
end;
end