Re: Create an hyperlink by insert

Author

Message

Yernar Shambayev

Posted: 06/15/2005 16:38:59

This will work if:

1. Current text style is a hypertext style (Jump is true)

2. rvoTagsArePChars in Options

On 15 Jun 2005 12:59:33 +0400, "Phil"

<philippe.NOtessierSP@AMeurop-assistance.be> wrote:

>Hi,

>Thanks for you answer but it doesn't work.

>It just create a line of text without hyperlink.

>When I try to edit the document with ActionText.exe, I see a number in the

>field target but that's all.

>Have you got an idea?

>Yernar Shambayev <yernar@mail.ru> wrote:

>>function MakeTag(TagStr: string): Integer;

>>var

>> r: PChar;

>>begin

>> if (TagStr <> '0') and (TagStr <> '') then

>> begin

>> r := StrNew(PChar(TagStr));

>> Result := Integer(r);

>> end

>> else

>> Result := StrToIntDef(TagStr, 0);

>>end;

>>rvBody.InsertStringTag('Text on screen',

>>MakeTag('http://link.to.follow'));

>>On 14 Jun 2005 21:17:58 +0400, "Phil"

>><philippe.NOtessierSP@AMeurop-assistance.be> wrote:

>>>

>>>Hi,

>>>I'm currently to generate a document by using procedure like :

>>>rvBody.InsertText('Type of sort of text');

>>>

>>>I would insert an hyperlink text by the same way like :

>>>rvBody.InsertTextHTML('Text on screen','http://link.to.follow');

>>>

>>>Do you know to do this ?

>>>Thanks.