not including rvoNoImageResize RichViewEdit.Editoptions
What do i shoud do
Code: Select all
var
pnl:TPanel;
begin
pnl:=TPanel.Create(self);
Pnl.BevelInner := bvNone;
Pnl.BevelOuter := bvNone;
// Inserting in TRichViewEdit
RichViewEdit1.TopLevelEditor.BeginUndoGroup(rvutInsert);
RichViewEdit1.TopLevelEditor.SetUndoGroupMode(True); // grouping InsertControl & SetCurrentItemExtraIntProperty
try
if RichViewEdit1.InsertControl('', Pnl, rvvaBaseline) then begin
RichViewEdit1.SetCurrentItemExtraIntProperty(rvepResizable, 1, True);
end;
finally
RichViewEdit1.TopLevelEditor.SetUndoGroupMode(False);
end;
end;