paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 12:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Petr-K to fix underline and strikethrough (Bug ID 34000)

Browse Source 
git-svn-id: trunk@39467 -
This commit is contained in:
michael 2018-07-18 11:50:35 +00:00
parent e54474dd28
commit a113501901
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-pdf/src/fppdf.pp
View File

@ -3439,8 +3439,8 @@ begin
{ line segment is relative to matrix translation coordinate, set above }
if Underline then
WriteString(Format('0 -1.5 m %s -1.5 l S', [FloatStr(mmToPDF(lTextWidthInMM))]) + CRLF, AStream)
else
WriteString(Format('0 -1.5 m %s -1.5 l S', [FloatStr(mmToPDF(lTextWidthInMM))]) + CRLF, AStream);
if StrikeThrough then
WriteString(Format('0 %s m %s %0:s l S', [FloatStr(mmToPDF(lTextHeightInMM) / 2), FloatStr(mmToPDF(lTextWidthInMM))]) + CRLF, AStream);
{ restore graphics state to before the translation matrix adjustment }