Re: jump tag

Return to index

Author

Message

Sergey Tkachenko

Posted: 05/26/2003 12:40:35

1) Make sure that rvoTagsArePChars in Options

2) rve.InsertStringTag('Click here',

Integer(StrNew('http://www.richedit.com')));

After that tags must be saved/loaded in XML.

But RichView does not have default processing on hypertext click. When you

click the hyperlink, OnJump event occurs.

You can show browser on this event:

uses ShellApi;

procedure TfrmMain.rveJump(Sender: TObject; id: Integer);

var ItemNo: Integer;

    RVData: TCustomRVFormattedData;

    s: String;

begin

  rve.GetJumpPointLocation(id, RVData, ItemNo);

  s := PChar(RVData.GetItemTag(ItemNo));

  ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOW);

end;

This event occurs in TRichView. In TRichViewEdit, it occurs only:

- if rve.ReadOnly is True or

- rvoCtrlJumps in rve.EditorOptions, and user holds the Ctrl key when

clicking hyperlink/

> Please tell me which of the examples will show me how to use these

> methods.  I have tried and they aren't working for me.

>

> Sergey Tkachenko wrote:

> > Sorry, I do not understand. Do you want to set URL target, you need to

> > 1) Set rvoTagsArePChars in Options

> > 2) Use SetItemTagEd or SetItemTag to assign URL as an item tag (or use

> > RichViewActions)

> > This tag will be saved/loaded to XML

> >

> >

> >>how can I set and xml jump tag in code?  I am using TRichView components

> >>and TRichViewXML. Just can't seem to get it right.

> >>

> >>Thanks,

> >>George

> >>

> >

> >

> >

>