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

Timestamp:

Apr 24, 2008, 8:59:16 PM (17 years ago)

Author:

RBRi

Message:

first try to fix #34

File:

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

branches/2.19.1/NewView/HelpTopic.pas

@@ -1053 +1053 @@
       ProgramFilename := ExtractFilename( ProgramPath );
 
-      if    StrStartsWithIgnoringCase(PRGM_EXPLORER, ProgramFilename ) // web explorer?
-         or StrStartsWithIgnoringCase(PRGM_NETSCAPE, ProgramFilename )
-         or StrStartsWithIgnoringCase(PRGM_MOZILLA, ProgramFilename )
-         or StrStartsWithIgnoringCase(PRGM_FIREFOX, ProgramFilename )
-         then
+      if    StrStartsWithIgnoringCase(ProgramFilename, PRGM_EXPLORER) // web explorer?
+         or StrStartsWithIgnoringCase(ProgramFilename, PRGM_NETSCAPE)
+         or StrStartsWithIgnoringCase(ProgramFilename, PRGM_MOZILLA)
+         or StrStartsWithIgnoringCase(ProgramFilename, PRGM_FIREFOX)
+      then
       begin
         OutputString := '<blue><link ' + PARAM_LINK_URL + ' '
@@ -1067 +1067 @@
         ProgramInfo := TSerializableStringList.create;
         ProgramInfo.add(ProgramPath);
-        ProgramInfo.add(ProgramLink);
+        ProgramInfo.add(StrSubstringFrom(ProgramLink, Length(ProgramPath) + 2));
         OutputString := '<blue><link ' + PARAM_LINK_PROGRAM + ' '
                         + ProgramInfo.getSerializedString