Re: string tags again

Return to index

Author

Message

Daniel Waeber

Posted: 09/23/2003 17:07:57

Thanks a lot Sergey,

I knew it would be easy.... :-)

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

news:[email protected]...

> 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

> > > >

> > > >

> > >

> > >

> >

> >

>

>