diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-08-17 10:21:07 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-08-17 10:26:42 +0100 |
commit | 2e3c7d9c21ccb8dfe1dd0de621a3a92c76eefd66 (patch) | |
tree | ab7f159b771fd32767d493a9f207cde19d69edc3 | |
parent | ac7536fd3770c7ec8e07a2042086e5619e9e3250 (diff) | |
download | fpGUI-2e3c7d9c21ccb8dfe1dd0de621a3a92c76eefd66.tar.xz |
docview: Fix bug where centered text setting was kept for longer than needed
When you used :lines. and :elines, the :elines was supposed to reset the
text alignment to Left. Instead it never reset the text alignment at all,
so if you used Centered or Right aligned text in the :lines. tag, any
following text had the wrong alignment.
-rw-r--r-- | docview/src/HelpTopic.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/docview/src/HelpTopic.pas b/docview/src/HelpTopic.pas index 8b12b569..275ab775 100644 --- a/docview/src/HelpTopic.pas +++ b/docview/src/HelpTopic.pas @@ -1119,7 +1119,7 @@ begin begin CheckForAutoURL( AText, State ); // supposed to turn word wrap on, default font - OutputString := {'<align left>}'</nowrap>'; // I guess... + OutputString := '</nowrap><align left>'; // I guess... State.Alignment := itaLeft; end; @@ -1254,6 +1254,7 @@ begin begin result := true; // supposed to turn word wrap on, default font + State.Alignment := itaLeft; State.Spacing := true; end; end; // case escape code of... |