Если создаю компонент на лету - то первая кнопка некорректно выставляет высоту (вызов метода Memo1ChangeTracking(Memo1);). В этом же методе и создается коспонент.

Но если вызываю этот же код - Memo1ChangeTracking(Memo1); - из другого метода (клик по второй кнопке) - нормально.

Что за фигня? Не догоняю.

Если на форму кинуть компонент TMemo, то тоже работает.

unit Unit46;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types,
  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.StdCtrls;

type
  TForm46 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Memo1ChangeTracking(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form46: TForm46;
  Memo1: TMemo;

implementation

{$R *.fmx}

procedure TForm46.Button1Click(Sender: TObject);
begin
  Memo1 := TMemo.Create(self);
  Memo1.Parent := Form46;
  Memo1.Name := 'Memo1';
  Memo1.DataDetectorTypes := [];
  Memo1.Lines.Clear;
  Memo1.Lines.Add('AAAAAAAAAAAAAA');
  Memo1.ShowScrollBars := False;
  Memo1.OnChangeTracking := Memo1ChangeTracking;
  Memo1.Align := TAlignLayout.Horizontal;
  Memo1.EnabledScroll := False;
  Memo1.TabOrder := 0;
  Memo1.WordWrap := True;

  Memo1ChangeTracking(Memo1);
end;

procedure TForm46.Memo1ChangeTracking(Sender: TObject);
begin
  Memo1.Height := Memo1.ContentBounds.Height + 5;
end;

procedure TForm46.Button2Click(Sender: TObject);
begin
  Memo1ChangeTracking(Memo1);
end;

end.

s:='Необходимо подсчитать количество строк в Memo';
Memo1.Lines.Add(s);

Memo имеет свойство Align: Client. А также WordWrap: True.

При изменении размера формы (уменьшение) текст переносится на новую строку. Но при этом, если считать количество строк через Memo1.Lines.Count количество строк не увеличивается. А всегда одна. По факту просто идет перенос первой строки (как текста) без создания новой строки что ли. Как посчитать количество строк??

Если писать приложение не как Multi-Device Application, а Windows VLC Application, то считает количество строк верно.

Как победить этот недостаток?

Test1.7z

procedure TForm19.Timer1Timer(Sender: TObject);
begin
//  While Memo1.Lines.Count > 1000 do Memo1.lines.delete(0); { <- не влияет на поведение }
  inc(Counter);
  Memo1.Lines.Add(Format('==================  new test string number # %d  -- ', [ Counter ]));
  Memo1.GoToTextEnd;
end;

Примерно раз в 10 секунд это приложение подвисает секунды на 3-4:(на скрине 2х ядерная виртуалка, т.е. основной поток в эти моменты не отвечает).

Загрузка ЦПУ в остальное время тоже не кажется мне адекватной, в сравнении с аналогичным VCL приложением:

Первую проблему с фризами можно убрать таким образом:

В этом случае отображения скроллбаров становится не совсем корректным, зато убираются фризы, сильно раздражающие пользователей.

Вопросы такие:

1) есть ли более быстрый аналог TMemo (для целей вывода лога с возможностью копировать из лога куски, не обязательно целые строки, т.к. ListBox не подходит )

2) Можно ли как-то получше оптимизировать работу с имеющимся TMemo?

P.S. 100 000 строк взято для наглядности. В реальном приложении в логе около 1-3 тыс. строк, но и загружено оно помимо вывода лога другими задачами, так что фризы все равно ощутимы.(хотя и не так видны на графике ЦПУ)

Суть проблемы: На RAD Studio 10.2 и на XE8 не корректно работает Memo. Смартфон Android 7.0 Xiomi Mi Max.  На Windows всё в порядке.

Вот пример:

Допустим есть четыре строки:

Ставлю курсор в тексте и начинаю удалять стрелочкой

Появляется пятая строка... Далее, если продолжаю жать стрелку удаления:

Кто сталкивался? Помогите советом.

Спасибо!

P.S. Для экспериментов просто ввел в OnTap: ShowMessage(IntToStr(Memo1.SelStart));

P.P.S. Действие происходит на Android.

Memo1.InsertAfter(Memo1.CaretPosition, 'txt', [TInsertOption.MoveCaret]);

[TInsertOption.MoveCaret] как используется это часть на C++

еще один вопрос зачем нет у Memo WantTabs, как то можно добавить такое функционал?

Возникла   проблема  с  реализацией  реакции  на  текстовое
контекстное  меню  в  Android.  Все работает нормально через поддержку
ITextActions  в  iOS, вызывается CopytoClipboard, a в Android никакой реакции на
нажатие, например, Copy нет.

В стандартном TMemo видимо   используется  какая-то  магия,  т.к.  все  заканчивается  на
TCopyButtonClickListener.OnClick,  который  в  свою  очередь  вызывает
TextService.CopySelectedText  ->  FTextView.copySelectedText, при этом
не  вызываются  ни GetSelection у Memo или Model, ни SetClipboard у
PlatFormAndroid.

В Platform.iOS в обработчике кнопки вызывается  FTextActions.CopyToClipboard, а в Platform.Android TextActions никак не используются.

Как реализовать обработку кнопок контекстного меню под Android? Ну или хотя-бы как это делает стандартный TMemo?

Нужно реализовать 2 прозрачных компонента (Edit и Memo). Сейчас это реализованно моим стелем. Но хочется иметь нативное быстродействие у этих контролов. Можно ли сделать эти контролы нативными (выставив Свойство ControlType=Platform) и сделать их одновременно полностью прозрачными? Есть ли какой нибуть способ?

Есть ли у TMemo что-то вроде рамок, которые ограничивают текстовую область?

Суть вопроса: есть 1 элемент TText и 1 элемент TMemo. У этих компонентов заданы одинаковые пропорции, одинаковые параметры шрифта кроме размера. Размер шрифта и у того, и у другого компонента определяется умножением высоты компонента на одно и то же число. Так, чтобы при изменении их размеров текст растягивался вслед за компонентом.

Так вот, при всем при этом, если пропорционально менять размеры компонентов и размер шрифта в них, то в некоторых случаях размещение текста может не совпадать, то есть некоторое слово в TMemo может перебежать на другую строку. При этом если брать два TText, то при изменении их размера текст у них всегда совпадает.

Поэтому и интересует, может быть в TMemo есть небольшая граница для текстовой области, которая делает ее меньше размеров самого TMemo?

Интересует, как выставить в TMemo вертикальное выравнивание текста по центру. В ObjectInspector этого свойства нет. В RunTime оно есть, но не работает. StyledSettings сброшены, при

TextSettings.VertAlign:=TTextAlign.Center; 

текст все равно выравнивается по верху.