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?
Paste Zwischenablage - Link erkennung?
-
-
So könnte man den link der im Klemmbrett steht umwandeln:
Display MoreCode- 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;
Oder, wenn man den source verstecken will
Display MoreCode- 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;
-
Super danke funktioniert :D
Bei der Gelegenheit wollt ich noch mal Fragen ob es schon einen leichten Weg gibt Smileys in den Editor einzubinden?
-
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.
-
super :D werd ich dann gleich mal probieren wenns dann da ist die neue Version
-
Gerade verschickt, vielen Dank!
