In reference to another snippet of code that you introduced on this thread. The following implementation to resize an image by code performs the work. But after do so, there isn't any problem until I close program. Then it raises an exception...
external: SIGSEGV at address 4B4112E4
It does it every time I close the program after having tested the code. It never does if I haven't tested the code.
procedure TCmdForm.MnuResizeClick(Sender: TObject);
var
ole: IRichEditOle;
sz: TSize;
begin
ole:= GetRichEditOLE(PageMemo);
GetOleObjectSize(ole, PageMemo.SelStart, sz);
sz.cx:=round(sz.cx * 1.5); // magnify
sz.cy:=round(sz.cy * 1.5);
SetOleObjectSize(ole, PageMemo.SelStart, sz);
end;
It happens as a result of calling SetOleObjectSize(ole, PageMemo.SelStart, sz);
Rick