Changeset 127

Timestamp:

Apr 28, 2007, 9:11:43 PM (18 years ago)

Author:

RBRi

Message:

use constants for internal link handling

Location:

trunk/NewView

Files:

• HelpTopic.pas (modified) (5 diffs)
• NewViewConstantsUnit.pas (added)

trunk/NewView/HelpTopic.pas

@@ -251 +251 @@
 uses
   SysUtils,
+  NewViewConstantsUnit,
   ACLUtility,
   ACLStringUtility,
@@ -856 +857 @@
 
   T := TAstring.Create;
-  T.AddString( '<blue><link url "' );
+  T.AddString( '<blue><link ' + PARAM_LINK_URL + ' "' );
   T.Add( State.TextBlock );
   T.AddString( '">' );
@@ -1031 +1032 @@
       ExternalLinkFileIndex := ( pData + 2 )^;
       ExternalLinkTopicID := StrNPas( pchar( pData + 4 ), ( pData + 3 )^ );
-      OutputString := '<blue><link external '
+      OutputString := '<blue><link ' + PARAM_LINK_EXTERNAL + ' '
                       + IntToStr( ExternalLinkFileIndex )
                       + ' '
@@ -1050 +1051 @@
          then
       begin
-        OutputString := '<blue><link url '
+        OutputString := '<blue><link ' + PARAM_LINK_URL + ' '
                         + FullDoubleQuote( ProgramLink )
                         + '>';
@@ -1059 +1060 @@
         ProgramInfo.add(ProgramPath);
         ProgramInfo.add(ProgramLink);
-        OutputString := '<blue><link program '
+        OutputString := '<blue><link ' + PARAM_LINK_PROGRAM + ' '
                         + ProgramInfo.getSerializedString
                         + '>';