RVE: игнор Enter, позиция каретки

[Shouldercannon]

Просьба удалить это сообщение

[Kotofff]

Я дико извиняюсь за поздний ответ.
Теперь GetCharCount считает все, включая перевод строки, т.е. нажатие Enter засчитывается.

function GetCharCount(RVData: TCustomRVData): Integer;
var
  i,r,c: Integer;
  table: TRVTableItemInfo;
begin
Result := 0;
for i := 0 to RVData.Items.Count-1 do
  begin
  if (i>0) and RVData.IsFromNewLine(i) then inc(Result);
  if RVData.GetItemStyle(i)>=0 then inc(Result, RVData.ItemLength(i))
    else
    if RVData.GetItemStyle(i)=rvsTab then inc(Result)
      else
      if RVData.GetItemStyle(i)=rvsTable then
        begin
        table := TRVTableItemInfo(RVData.GetItem(i));
        for r := 0 to table.Rows.Count-1 do
          for c := 0 to table.Rows[r].Count-1 do
            if table.Cells[r,c]<>nil then inc(Result, GetCharCount(table.Cells[r,c].GetRVData));
        end;
  end;
end;