diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-08-07 12:52:47 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-08-08 01:32:41 +0100 |
| commit | 286870c70d5f7c20c7b6fd94625cb2d028102ee3 (patch) | |
| tree | 019aaea64da70826a279d587bba8644bd651df87 /docview/components/richtext | |
| parent | 116962a0ec7bc18f88516a170adb2ca05ba05355 (diff) | |
| download | fpGUI-286870c70d5f7c20c7b6fd94625cb2d028102ee3.tar.xz | |
richview: fixes bug with Italic text adding an extra space at the end
I thought I fixed all of these before, but I missed this one.
Diffstat (limited to 'docview/components/richtext')
| -rw-r--r-- | docview/components/richtext/RichTextDisplayUnit.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/docview/components/richtext/RichTextDisplayUnit.pas b/docview/components/richtext/RichTextDisplayUnit.pas index 482a587b..613dba84 100644 --- a/docview/components/richtext/RichTextDisplayUnit.pas +++ b/docview/components/richtext/RichTextDisplayUnit.pas @@ -263,9 +263,10 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>'); and ( faItalic in Style.FontAttributes ) and ( not FontManager.IsFixed ) then + begin // end of italic; add a space - inc( X, FontManager.CharWidth( ' ' ) ); - +// inc( X, FontManager.CharWidth( ' ' ) ); + end; Layout.PerformStyleTag( Element.Tag, Style, X ); NewMarginX := ( Start.X + Style.LeftMargin ); if NewMarginX > X then |