Re: Create an hyperlink by insert

Return to index

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"

<[email protected]> 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 <[email protected]> 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"

>><[email protected]> 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.

>>