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

[Shouldercannon]

Ввёл 000 жму Enter и никакой реакции, каретка стоит позади 000

[Kotofff]

Проект сможешь показать ?
Выложить ...

[Shouldercannon]

Пожалуйста

Ставим курсор в конец текущей строки :

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  RichViewEdit1.SelectCurrentLine;
  RichViewEdit1.Deselect;
end;

А если в RichViewEdit много строк, как в этом случае каретку поставить в самом конце всех строк?

[Kotofff]

А если в RichViewEdit много строк, как в этом случае каретку поставить в самом конце всех строк?

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  RichViewEdit1.SelectAll;
  RichViewEdit1.Deselect;
end;

[Kotofff]

Проект выкладывать пока не буду - нет смысла.
У тебя какая версия Delphi ?

Поправь вот :

//Добавить в RVE из Memo
procedure TForm1.Button4Click(Sender: TObject);
begin
  RichViewEdit1.InsertText(Memo1.Text);
  RichViewEdit1.Reformat; ///  ПОСЛЕ ЛЮБОЙ ОПЕРАЦИИ ВСТАВКИ ИЛИ УДАЛЕНИЯ НУЖНО ПЕРЕФОРМАТИРОВАТЬ
  RichViewEdit1.SetFocus;
end;

[Shouldercannon]

Оказывется всё правильно. Я просто перепутал что куда помещать

procedure TForm1.RichViewEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (not(ssCtrl in Shift)) and (Key = VK_RETURN) and (not IsEmpty(RichViewEdit1)) then
  begin
    Key := 0;
      RichViewEdit1.SelectAll;
        Memo1.Text := RichViewEdit1.GetSelText;
          RichViewEdit1.Deselect;
            RichViewEdit1.Clear;
              RichViewEdit1.Reformat;
  end
    else
      if (not(ssCtrl in Shift)) and (Key = VK_RETURN) and (IsEmpty(RichViewEdit1))
        then
          Key := 0;
end;

[Shouldercannon]

Не подскажете как можно ещё подсчитать количество символов в RichViewEdit

RichViewEdit1.SelectAll;
  PSymbol.Caption := IntToStr(Length(RichViewEdit1.GetSelText));
    RichViewEdit1.Deselect;

из-за данного способа возникают проблемы при вводе текста (каретка постоянно позиционируется в конец строки).

[Kotofff]

Эта функция не трогает каретку вообще и считает везде включая внутри таблиц (если они есть) ...

uses CRVData;
....
....
....

function GetCharCount(RVData: TCustomRVData): Integer;
var i,r,c: Integer;
     table: TRVTableItemInfo;
begin
Result := 0;
for i := 0 to RVData.Items.Count-1 do
  if RVData.GetItemStyle(i)>=0 then begin 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;

Используем :

r := GetCharCount(RichView.RVData);

[Shouldercannon]

Спасибо работает, но есть один минус - не считает количество символом после нажатой клавиши Enter, если я не ошибаюсь их 2 (символа).

[Shouldercannon]

var
  r: integer;
begin
  r := RichViewEdit1.GetTextLen;
  Panel1.Caption := IntToStr(r);