Changing this behavior will lead to more serious problems, so I do not plan to do it.
I can suggest to remove this space at all.
Add this code before RVE.DeleteSelection:
Code: Select all
if (RVData1.GetItemStyle(FirstItemNo)>=0) and (Offs>1) and
(RVData1.GetItemText(FirstItemNo)[Offs-1]=' ') then
RVData1.SetSelectionBounds(FirstItemNo, Offs-1,
RVData1.ItemCount-1, RVData1.GetOffsAfterItem(RVData1.ItemCount-1));