Re: jump tag

Author

Message

George

Posted: 05/26/2003 18:23:37

Sergey, this works great with one small problem that you can probably

resolve for me. The code you gave me results in the following being

added to the xml:

<text textstyleno="3" tag="http://www.richedit.com">Click Here</text>

This is great. but is there any way for me to change the

textstyleno="3" to textstyleno="5"

Thanks for all your help,

George

Sergey Tkachenko wrote:

> 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

>>>>

>>>