Re: string tags again

Return to index

Author

Message

Sergey Tkachenko

Posted: 09/22/2003 19:13:07

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

>

>