Changeset 270 for branches/2.19.1/NewView/HelpTopic.pas

Timestamp:

Apr 26, 2008, 2:06:24 PM (17 years ago)

Author:

RBRi

Message:

fix the browser call

File:

• branches/2.19.1/NewView/HelpTopic.pas (modified) (2 diffs)

branches/2.19.1/NewView/HelpTopic.pas

@@ -986 +986 @@
       if not Link.Automatic then
       begin
-        OutputString := '<blue>'
-                        + GetBeginLink( State.LinkIndex );
+        OutputString := '<blue>' + GetBeginLink(State.LinkIndex);
       end;
 
@@ -1060 +1059 @@
       begin
         OutputString := '<blue><link ' + PARAM_LINK_URL + ' '
-                        + FullDoubleQuote( ProgramLink )
+                        + FullDoubleQuote(StrSubstringFrom(ProgramLink, Length(ProgramPath) + 2))
                         + '>';
       end