Re: string tags again

Author

Message

Sergey Tkachenko

Posted: 09/23/2003 15:36:50

There are two additional color properties specialy for hypertext text:

HoverColor - color of text

HoverBackColor - text background color.

These colors are used when the hyperlink is active (under the mouse pointer

in hypertext (read-only) mode, at the position of caret in editing mode).

New version of RichViewActions (http://www.trichview.com/resources/actions/)

allows defining these colors in hyperlink properties.

If you do not use RichViewActions (and you use your own implementation of

OnStyleConversion), change these properties together with Color and

BackColor.

> 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

> > >

> >