summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2015-08-17 10:21:07 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2015-08-17 10:26:42 +0100
commit2e3c7d9c21ccb8dfe1dd0de621a3a92c76eefd66 (patch)
treeab7f159b771fd32767d493a9f207cde19d69edc3
parentac7536fd3770c7ec8e07a2042086e5619e9e3250 (diff)
downloadfpGUI-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.pas3
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...