Проблема выделения строк в TJvRichEdit в Delphi (XE10): Устранение ошибок с невидимыми символами

Delphi , Компоненты и Классы , TMemo и TRichEdit

Разработчики, работающие с компонентом TJvRichEdit в среде Delphi, иногда сталкиваются с трудностями при выделении определенных строк таблицы. Одной из таких проблем является некорректное выделение текста, когда вместо двух строк выделяется текст, включающий в себя и следующие строки, а также невидимые символы.

Описание проблемы

Пользователь столкнулся с проблемой при попытке выделения и копирования определенных строк таблицы в компоненте TJvRichEdit. При использовании следующего кода:

SelStart := Perform(EM_LINEINDEX, firstLine, 0);
SelLength:= Length(lines[firstLine]) + Length(lines[firstLine+1]);
CopyToClipboard;

текст выделяется некорректно: выделение захватывает не только желаемые строки, но и следующую строку, а также часть следующей таблицы. При уменьшении длины выделения (SelLength) до 2 символов, выделяются ровно два символа, что указывает на проблему с невидимыми символами в тексте.

Исследование проблемы

В ходе исследования было выяснено, что текст каждой строки таблицы представлен отдельной строкой в TJvRichEdit, а текст между ячейками разделен специальным символом #7. Также было обнаружено, что начало и конец текста строки обозначаются последовательностью символов #$FFF9#$D. Длина строки в TJvRichEdit учитывает все эти символы, но при выделении текста они не учитываются корректно.

Решение проблемы

Чтобы правильно выделить текст, необходимо исключить из выделения первые два невидимых символа, которые обозначают начало строки. Это можно сделать следующим образом:

RichEdit1.SelStart := Perform(EM_LINEINDEX, LineNo, 0) + 2; // начало выделения на два символа за линией
RichEdit1.SelLength:= Perform(EM_LINELENGTH, RichEdit1.SelStart, 0) - 2; // длина выделения без учета двух невидимых символов

Если выделение охватывает несколько строк, достаточно один раз вычесть два символа для коррекции длины выделения:

RichEdit1.SelStart := Perform(EM_LINEINDEX, firstLine, 0) + 2; // начало выделения на две позиции за линией firstLine
RichEdit1.SelLength:= Length(lines[firstLine]) + Length(lines[firstLine+1]) - 2; // аналогичная корректировка длины

Пример кода

Следующий пример демонстрирует выделение и копирование строк 2 и 3 (включительно) в таблице с учетом описанных особенностей:

var
  SelStart, SelLength: Integer;
  firstLine: Integer = 1; // номер первой выделяемой строки
begin
  SelStart := Perform(EM_LINEINDEX, firstLine, 0) + 2; // перейти за два символа за началом строки
  SelLength:= Length(lines[firstLine]) + Length(lines[firstLine+1]) - 2 * SizeOf(Char); // вычесть два невидимых символа
  RichEdit1.SelStart := SelStart;
  RichEdit1.SelLength := SelLength;
  RichEdit1.CopyToClipboard;
end;

Таким образом, разработчики могут корректно выделить и скопировать определенные строки в TJvRichEdit без захватывания нежелательных символов и строк.

Создано по материалам из источника по ссылке.

Проблема заключается в некорректном выделении текста в компоненте `TJvRichEdit` в Delphi из-за учета невидимых символов, что приводит к захвату лишних строк и символов при попытке выделения определенных строк таблицы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TMemo и TRichEdit ::