Beiträge von atlandev

Hello,
I try to update some of my apps from version 4 to 6. I hugely used hyperlink to make my text more friendly user, and i'm little lost with the "new" :) way.

I use this code to find my link (found here on the foum)...

var
   objList: TWPTextObjList;
begin
  objList := Self.WPRichText.CodeListTags(wpobjHyperlink, '*ALL*', True);
  for i := 0 to objList.Count - 1 do
    if (objList[i].Source = url) then
    begin
      objList[i].Source := ''; <- I just add this
      objList[i].EndTag.Free;
      objList[i].Free;
      break;
    end;

...but...
this code do not delete my hyperlink, this one transform my link to normal text.

My goal is for example:
cltl + clic (on the link) open a dialog box to let my user edit the link
or alt + clic delete all the link (link + url)
How can i do that ?

best regards,
thanks for your help.

Hello, i try this code...
memStream := TMemoryStream.Create;
Self.WPRichText.RTFVariables.Strings['HYPERLINK'] := 'TRUE';
Self.WPRichText.SaveToStream(memStream);
memStream.Position := 0;

After that i save my stream in a database.

But, when i load my stream in another WPRichtext, my rtfvariables is missing.
I try textsaveformat/textloadformat with AUTO first then RTF but same result.
How can i solve my problem ?
best regards