Julian,
I found that pasting text from the clopboard was not triggering the OnChange event. I made the following 2 changes to WPCTRMemo in the TWPCustomRtfEdit.PasteFromClipboard procedure:
...
Code
finally if Reader <> nil then begin Reader._DefaultImage.Free; Reader.Free; end; end; if load then //ZNC 09/26/2005 ChangeApplied; //ZNC 09/26/2005 if not TryWithImages then exit;
...
Code
if temp.Graphic is TPersistent then
begin
pers := TPersistent(temp.Graphic);
if TextObjects.NewWPObjectFromData(true, pers, wpobj, w, h) then
begin
wpobj.WidthTW := w;
wpobj.HeightTW := h;
if assigned(FBeforePasteImage) then FBeforePasteImage(Self, HeaderFooter, wpobj);
if wpobj <> nil then
begin
TextObjects.Insert(wpobj, wpobj.WidthTW, wpobj.HeightTW, '', ImageLink);
wpobj.Compress;
end;
ChangeApplied; //ZNC 09/26/2005
end;
end;
Alles anzeigen
Do these changes look acceptable to you?
Thanks,
Tony