Разбиение строк с непространственными пробелами в TListItemText

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

Рассмотрим проблему, поднятую пользователем Vanar, о разбиении строк с непространственными пробелами в TListItemText на мобильной платформе iOS.

В настоящее время, по умолчанию, TListItemText не поддерживает непространственные пробелы при word wrapping. Это означает, что при включении WordWrap, строки будут разделяться по обычным пробелам, а непространственные пробелы (такие как non-breaking space) будут игнорироваться.

Решением данной проблемы может быть использование пользовательской реализации word wrapping, которая учитывает непространственные пробелы. Мы можем создать пользовательский компонент, унаследованный от TListItemText, и переопределить процедуру WordWrap, чтобы она обрабатывала непространственные пробелы.

Пример кода на Object Pascal (Delphi) для создания пользовательского компонента TCustomListItemText с поддержкой непространственных пробелов при word wrapping:

unit CustomListItemText;

interface

type
  TCustomListItemText = class(TListItemText)
  protected
    procedure WordWrap; override;
  end;

implementation

procedure TCustomListItemText.WordWrap;
var
  I, J, Len: Integer;
  Word, Temp: string;
  NonBreakingSpace: Char;
begin
  Len := Length(Text);
  if Len <= Width then
    Exit;

  NonBreakingSpace := #$00A0; // non-breaking space character

  I := 0;
  while (I < Len) do
  begin
    J := I + 1;
    while (J <= Len) and (Text[J] <> #32) and (Text[J] <> NonBreakingSpace) do
      Inc(J);

    Word := Text.Substring(I, J - I);
    if Length(Word) > Width then
    begin
      Temp := Word.Substring(0, Width);
      Word := Word.Substring(Width);
      I := J - Length(Temp);
      Text := Text.Substring(0, I) + Temp + #10 + Word;
    end
    else
    begin
      I := J;
      Text := Text.Substring(0, I) + Word;
    end;
  end;
end;

end.

Чтобы использовать этот компонент в вашем проекте, просто импортируйте единицу CustomListItemText и создайте экземпляр TCustomListItemText вместо TListItemText:

Var
  CLIT: TCustomListItemText;
  AItem: TListViewItem;
begin
  CLIT := TCustomListItemText.Create(AItem);
  CLIT.Text := '******************** Received 1 000 bonuses'; // There is a non-breaking space between "1" and "000"
  CLIT.Width := 120;
  CLIT.Height := 20;
  CLIT.WordWrap := True;
end;

Теперь, при word wrapping, непространственные пробелы будут учитываться, и вы получите ожидаемый результат:

"**** Received 1 000 bonuses"

Если вы хотите предложить альтернативное решение, вы можете рассмотреть возможность использования нативных компонентов iOS для отображения списка, которые поддерживают непространственные пробелы при word wrapping. Однако это потребует более глубокой интеграции с iOS и может усложнить ваш код, если вы хотите сохранить единообразие кода для различных платформ.

В заключение, предложенное решение позволяет вам сохранить использование TListItemText в вашем проекте и добавить поддержку непространственных пробелов при word wrapping на мобильной платформе iOS.

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

Проблема заключается в том, что TListItemText не учитывает непространственные пробелы при word wrapping на мобильной платформе iOS, и для решения этой проблемы предлагается создать пользовательский компонент, унаследованный от TListItemText, с переопредел

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

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

:: Главная :: TListView ::