I don't understand what problems this code causes with images.
However, this code has problems.
1) You change properties of a text style, but this style may be used in different places of the document. This is not what the user might expect.
2) This code may lead to adding a new text style on each call, although all properties of new styles may be identical (because GetHtyperlinkStyleNo tries to reuse an existing style, but then you change its properties, so reusing will not work). I recommend assigning all properties manually and use RVStyle.FindTextStyle
TRichViewEdit supports a special hyperlink clipboard format, but modern applications do not use it anymore.
They copy a link target as a plain text. A special hyperlink format was used by Internet Explorer. In any case, IE also copied a URL as a text, so we can safely use OnPaste to check hyperlinks in a pasted text.
The code may be like this:
Code: Select all
use Clipbrd, RVFileFuncs;
procedure TForm3.RichViewEdit1Paste(Sender: TCustomRichViewEdit; var DoDefault:
Boolean);
var
S: UnicodeString;
TextStyle: TFontInfo;
StyleNo: Integer;
begin
if not Clipboard.HasFormat(CF_UNICODETEXT) then
exit;
S := Clipboard.AsText;
if not RVIsURL(S) then
exit;
TextStyle := TFontInfo.Create(nil);
try
StyleNo := Sender.CurTextStyleNo;
TextStyle.Assign(Sender.Style.TextStyles[StyleNo]);
// change to your properties:
TextStyle.Jump := True;
TextStyle.Style := [fsUnderline, fsBold];
TextStyle.Color := clRed;
// end of custom properties
if not Sender.Style.TextStyles[StyleNo].Jump then
TextStyle.NextStyleNo := StyleNo;
Sender.CurTextStyleNo := Sender.Style.FindTextStyle(TextStyle);
Sender.InsertStringWTag(S, S);
Sender.CurTextStyleNo := TextStyle.NextStyleNo;
DoDefault := False;
finally
TextStyle.Free;
end;
end;