Исправление отображения поискового поля и элементов списка в Delphi для Android

Delphi , Базы данных , Поиск

Разработчики, использующие Delphi для создания кросс-платформенных приложений с помощью FireMonkey, иногда сталкиваются с проблемами отображения элементов интерфейса на различных платформах. В частности, пользователь столкнулся с проблемой, когда поисковое поле (TSearchBox) отображалось поверх элементов списка (TListBoxItem) в Android, в то время как на Windows и iOS все отображалось корректно.

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

В мульти-устройственном проекте на Delphi XE8 добавлено поисковое поле к TListBox. На Android поисковое поле отображается поверх элементов списка, в то время как на Windows и iOS оно корректно отображается над элементами списка и остается на вершине даже при прокрутке.

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

Проблема была связана с использованием кастомного стиля, определенного в TStyleBook. После удаления стилей listbox и listboxitem из файла .style, используемого в TStyleBook, проблема была решена.

Дополнительное условие

Текст элементов списка все еще отображался, так как для поиска требовалось использовать текст элементов. Разработчик создавал кастомные элементы списка с использованием меток для выравнивания текста определенным образом. Однако для поиска по элементам необходимо было установить текст элементов, который отображался поверх меток.

Предложенное решение

Использовать свойство TagString вместо Text для хранения поискового запроса, который не будет отображаться. Поисковый запрос не сможет быть выполнен через TSearchBox напрямую, поэтому было решено реализовать собственный метод поиска, который сравнивает текст поискового поля с TagString каждого элемента списка.

procedure TForm1.SearchList(text: string);
var
  listItem: TListBoxItem;
  i: Integer;
begin
  // Предполагаем, что метод CreateList создает все элементы в TListBox
  CreateList;
  if not text.IsEmpty then
  begin
    with myListBox do
    begin
      for i := High(Items) downto 0 do
      begin
        listItem := Items[i];
        if not listItem.TagString.AnsiContainsText(text, [true]) then
        begin
          Items.Delete(i);
        end;
      end;
    end;
  end;
end;

Комментарии

Обратите внимание, что для корректной работы метода AnsiContainsText необходимо использовать параметр [true], который указывает на учет регистра символов при поиске.

Заключение

Использование свойства TagString для хранения текста элементов списка, который не должен быть виден, и реализация собственного метода поиска позволили решить проблему отображения элементов списка и поискового поля в FireMonkey-приложениях на Android.

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

В мульти-устройственном проекте на Delphi XE8 поисковое поле TSearchBox неправильно отображается поверх элементов списка TListBoxItem в Android, тогда как на Windows и iOS отображение корректно, и для решения проблемы пришлось изменить способ х

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

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

:: Главная :: Поиск ::