Paste Zwischenablage - Link erkennung?

andi · February 10, 2020 at 1:35 PM

Gibt es eine automatische Link Erkennung wenn ich einen Link aus der Zwischenablage einfüge?

Wenn nicht gibt es zufällig schon ein snippet für BeforePasteText?

wpsupport · February 11, 2020 at 7:01 AM Official Post

So könnte man den link der im Klemmbrett steht umwandeln:

Code

procedure TForm1.WPRichText1BeforePasteText(Sender: TObject;
  RTFData: TWPRTFDataCollection; par: TParagraph; Stream: TStream;
  Reader: TWPCustomTextReader; OnlyBodyText: Boolean;
  var LoadedText: TWPRTFDataBlock);
var o : TWPTextObj;
begin
  if (par.Next=nil)
     and (par.StartWithW('http://') or par.StartWithW('https://'))
     and not par.HasText(#32)
  then
  begin
    o := par.InsertNewObject(0,wpobjHyperlink,true,false);
    o.Source := par.GetText(false, false);
    o.SetTag(par.AppendNewObject(wpobjHyperlink,true,true).NewTag);
  end;
end;

Display More

Oder, wenn man den source verstecken will

Code

procedure TForm1.WPRichText1BeforePasteText(Sender: TObject;
  RTFData: TWPRTFDataCollection; par: TParagraph; Stream: TStream;
  Reader: TWPCustomTextReader; OnlyBodyText: Boolean;
  var LoadedText: TWPRTFDataBlock);
var 
    s : string;  
    a : Cardinal;
begin
  if (par.Next=nil)
     and (par.StartWithW('http://') or par.StartWithW('https://'))
     and not par.HasText(#32)
  then
  begin
     s := par.GetText(false, false);
     a := par.CharAttr[0];
     par.ClearText;
     par.AppendNewObjectPair(wpobjHyperlink,'link',a).Source := s;
  end;
end;

Display More

andi · February 12, 2020 at 8:38 AM

Super danke funktioniert :D

Bei der Gelegenheit wollt ich noch mal Fragen ob es schon einen leichten Weg gibt Smileys in den Editor einzubinden?

wpsupport · February 13, 2020 at 7:12 AM Official Post

WPTools 9.1 - ja, wird komplett unterstützt.

Am einfachsten über den Windows Emoticon Dialog:

Drücke Windows + . [punkt] taste 👍

WPTools 9.1 unterstützt hier, anders als viel Software, auch kombinierte Emotions, also mit Attributen versehene Symbole.

andi · February 13, 2020 at 10:19 AM

super :D werd ich dann gleich mal probieren wenns dann da ist die neue Version

wpsupport · February 13, 2020 at 11:41 AM Official Post

Gerade verschickt, vielen Dank!