TRichView.com

Posted: **Tue Jun 24, 2025 6:45 pm**

Using the eval version under Delphi 12.3

I have this RTF hyperlink in a TRichViewEdit after loading an RTF file:

{\field{\*\fldinst{HYPERLINK "$noprint:\{1\}"}}{\*\fldtitle{$noprint:\{1\}}}
{\fldrslt{\f0\cf1 pre-cloaked\f0\cf0  \f0\cf1\b red\f0\cf1\b0  line\f0\cf0}}}

Within the hyperlink there is a bold word "red", which seems to divide the hyperlink into several text items within the field. If I click on either "red" or "line" and attempt to update the tag, it actually inserts a new hyperlink field. For example, I use the onclick event and do this:

Code: Select all

  var vTag := String(RichViewEdit1.GetCurrentTag);
  if vTag.StartsWith('$noprint:{0}', true) then
    RichViewEdit1.SetCurrentTag(ReplaceStr(vTag, '{0}', '{1}'))
  else if vTag.StartsWith('$noprint:{1}', true) then
    RichViewEdit1.SetCurrentTag(ReplaceStr(vTag, '{1}', '{0}'));

I end up with this RTF after clicking on the word "line":

Code: Select all

{\field{\*\fldinst HYPERLINK "$noprint:\{1\}"}
{\fldrslt \plain \f0\fs20\cf11 pre-cloaked\plain \f0\fs20  \plain \f0\b\fs20\cf11 red}}
{\field{\*\fldinst HYPERLINK "$noprint:\{0\}"}{\fldrslt \plain \f0\fs20\cf11  line}}

I wanted to just update the original Hyperlink field tag, and not insert a new hyperlink field. I assume this is because GetCurrentTag is operating on the item's outer field, and SetCurrentTag is operating on the current text item "line", so it makes it a hyperlink for some reason.

I'm not sure how to get around this. I've also tried using GetCurrentItem and updating the tag that way, but the same thing occurs. Help?

Eric

Posted: **Tue Jun 24, 2025 9:20 pm**

I've attached a modified version of the Editor 1 demo which also includes foundations.rtf you need to load with it. The referenced RTF in my previous post that can be clicked on is [ pre-cloaked red line ].

Eric

Posted: **Wed Jun 25, 2025 1:01 pm**

Yes, if a hyperlink has text having different fonts, it is represented as several text items.
But they are highlighted as a whole, and they are saved back to RTF as a single hyperlink.

However, if you want to update the link target, you need to update Tags of all adjacent items that has the same tag.
Your code modifies Tag of one of items. Other items still have the old Tag value. So, after modification, there are several links: with the new Tag and with the old Tag.
I'll post a code sample tomorrow.

Posted: **Thu Jun 26, 2025 10:10 pm**

This is what I came up with which seems to work to toggle a tag value. See any issues or even a better way?

Code: Select all

  var vTag := String(RichViewEdit1.GetCurrentTag);
  if not vTag.StartsWith('$noprint', true) then exit;

  var vItem := RichViewEdit1.GetCurrentItem;
  var vItemNo := RichViewEdit1.GetItemNo(vItem);

  // Find the first item
  var vFirstItemNo := vItemNo-1;
  while RichViewEdit1.GetItemTag(vFirstItemNo) = vTag do
    Dec(vFirstItemNo);

  // Find the last item
  var vLastItemNo := vItemNo+1;
  while RichViewEdit1.GetItemTag(vLastItemNo) = vTag do
    Inc(vLastItemNo);

  for var i := vFirstItemNo + 1 to VLastItemNo-1 do
  begin
    vItem := RichViewEdit1.GetItem(i);

    if vTag.StartsWith('$noprint:{0}', true) then
      vItem.Tag := ReplaceStr(vTag, '{0}', '{1}');

    else if vTag.StartsWith('$noprint:{1}', true) then
      vItem.Tag := ReplaceStr(vTag, '{1}', '{0}');
  end;

TRichView.com

Changing hyperlink tag issue

Changing hyperlink tag issue

Re: Changing hyperlink tag issue

Re: Changing hyperlink tag issue

Re: Changing hyperlink tag issue