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

LazReport: lrCodeReport: Fix: procedure TextOutXY. Use scale values, from Julio Jiménez B., issue #31155

Browse Source 
git-svn-id: trunk@53835 -
This commit is contained in:
jesus 2017-01-02 17:37:31 +00:00
parent b7eac8eeca
commit 99bb8c5526
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/addons/lrcodereport/lr_codereport.pas
View File

@ -630,14 +630,14 @@ begin
taLeftJustify: Pos := X;
taRightJustify:
begin
Pos := X - TextWidth(AText);
Pos := X - TextWidth(AText) / XRatio;
end;
taCenter:
begin
Pos := X - (TextWidth(AText) / 2);
Pos := X - (TextWidth(AText) / 2 / XRatio);
end;
end;
DrawText(Pos, Y, TextWidth(AText), TextHeight, AText, Style);
DrawText(Pos, Y, TextWidth(AText) / XRatio + 2, TextHeight / YRatio, AText, Style);
Cursor.Left += TextWidth(AText) / XRatio;
end;