From 753665acf0314f99ec1e48bff80c090e6bbee578 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 26 Nov 2012 14:15:20 +0000
Subject: Some docview IPF-to-RichTextView syntax changes.

Due to stricter syntax and other mark-up (tag) changes in RichTextView, we need to update
DocView accordingly. Not much was needed though.
---
 docview/src/HelpTopic.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'docview')

diff --git a/docview/src/HelpTopic.pas b/docview/src/HelpTopic.pas
index 44f81a57..b6ba186d 100644
--- a/docview/src/HelpTopic.pas
+++ b/docview/src/HelpTopic.pas
@@ -1037,7 +1037,7 @@ procedure TTopic.TranslateIPFEscapeCode( Var State: TParseState;
     begin
       State.FontState := fsFixed;
       State.InCharGraphics := true;
-      OutputString := RTF_NewLine + RTF_NewLine + '<tt><wrap no>';
+      OutputString := RTF_NewLine + RTF_NewLine + '<tt><nowrap>';
       State.Spacing := false;
       WordsOnLine := 0;
     end;
@@ -1046,7 +1046,7 @@ procedure TTopic.TranslateIPFEscapeCode( Var State: TParseState;
     begin
       State.FontState := fsNormal;
       State.InCharGraphics := false;
-      OutputString := '</tt><wrap yes>';// + RTF_NewLine;
+      OutputString := '</nowrap></tt>';// + RTF_NewLine;
       State.Spacing := true;
     end;
 
@@ -1107,7 +1107,7 @@ procedure TTopic.TranslateIPFEscapeCode( Var State: TParseState;
           State.Alignment := itaCenter;
         end;
       end;
-      OutputString := OutputString + '<wrap no>';
+      OutputString := OutputString + '<nowrap>';
       WordsOnLine := 0;
     end;
 
@@ -1115,7 +1115,7 @@ procedure TTopic.TranslateIPFEscapeCode( Var State: TParseState;
     begin
       CheckForAutoURL( AText, State );
       // supposed to turn word wrap on, default font
-      OutputString := {'<align left>}'<wrap yes>'; // I guess...
+      OutputString := {'<align left>}'</nowrap>'; // I guess...
       State.Alignment := itaLeft;
     end;
 
-- 
cgit v1.2.3-54-g00ecf