From 2e3c7d9c21ccb8dfe1dd0de621a3a92c76eefd66 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 17 Aug 2015 10:21:07 +0100 Subject: 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. --- docview/src/HelpTopic.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 @@ procedure TTopic.TranslateIPFEscapeCode( Var State: TParseState; begin CheckForAutoURL( AText, State ); // supposed to turn word wrap on, default font - OutputString := {'}''; // I guess... + OutputString := ''; // I guess... State.Alignment := itaLeft; end; @@ -1254,6 +1254,7 @@ function TTopic.IPFEscapeCodeSpace( Var State: TParseState; begin result := true; // supposed to turn word wrap on, default font + State.Alignment := itaLeft; State.Spacing := true; end; end; // case escape code of... -- cgit v1.2.3-54-g00ecf