paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 04:39:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix html export text alignment (imgexport exporter), from Michal Gawrycki, issue #24660

Browse Source 
git-svn-id: trunk@42060 -
This commit is contained in:
jesus 2013-07-11 21:01:44 +00:00
parent 211fc8e632
commit 9072e58585
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/addons/imgexport/lr_e_htmldiv.pas
View File

@ -306,6 +306,12 @@ begin
St := St + 'font-style:italic;';
if fsUnderline in TfrMemoView(View).Font.Style then
St := St + 'text-decoration:underline;';
St := St + 'text-align:';
case TfrMemoView(View).Alignment of
taLeftJustify: St := St + 'left;';
taCenter: St := St + 'center;';
taRightJustify: St := St + 'right;';
end;
end;
WriteString(Format(HTML_TEXT, [St, Text]));
end;