Re: string tags again

Return to index

Author

Message

Daniel Waeber

Posted: 09/23/2003 14:16:25

Thanks Sergey,

Needed to do some changes (JUMP = TRUE!) otherwise the events were not

fired.

Works fine now, with one little problem:

I have a text style with JUMP=TRUE and a different background color.

If I click into a "hyperlink" (i.e. string with this style assigned), the

background

color changes to white.

How can I change this? I'd like to keep the background color whether the

item is focused or not. Changing "jump = false" corrects this but prevents

the

events from being fired...

Thanks

Daniel

"Sergey Tkachenko" <[email protected]> schrieb im Newsbeitrag

news:[email protected]...

> Yes, but you need to process some events (OnReadHyperlink and

OnURLNeeded).

> May be in future I'll add an option to make it automatically.

>

> // Importing hyperlink from RTF

> procedure TForm3.RichViewEdit1ReadHyperlink(Sender: TCustomRichView;

>   const Target, Extras: String; DocFormat: TRVLoadFormat; var StyleNo,

>   ItemTag: Integer; var ItemName: String);

> begin

>   ItemTag := Integer(StrNew(PChar(Target)));

> end;

>

> // Exporting hyperlink to RTF and HTML

> procedure TForm3.RichViewEdit1URLNeeded(Sender: TCustomRichView;

>   id: Integer; var url: String);

> var RVData: TCustomRVFormattedData;

>     ItemNo: Integer;

> begin

>   RichViewEdit1.GetJumpPointLocation(id, RVData, ItemNo);

>   url := PChar(RVData.GetItemTag(ItemNo));

> end;

>

> In the new version, you can use OnWriteHyperlink instead of OnURLNeeded.

>

> > Hi,

> >

> > One more question regarding string-tags:

> >

> > I have a rich-view containing string-tags (using the INSERTSTRINGTAG

> > command).

> >

> > If I copy / paste the text into WORD and paste it back into RichView,

> string

> > tags

> > disappear.

> >

> > Is it possible to conserve string tags while using copy / paste into

WORD?

> >

> > Thanks a lot,

> >

> > Daniel

> >

> >

>

>