Оптимизация отображения больших списков в FireMonkey: индикация и загрузка элементов по требованию

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

В данной статье мы рассмотрим проблему отображения больших списков элементов в компоненте TListView из библиотеки FireMonkey, а также способы определения момента, когда пользователь прокрутил список до конца, чтобы автоматически загружать новые элементы. Это особенно актуально для приложений, отображающих поисковые результаты, где количество элементов может исчисляться сотнями.

Проблема

Разработчик работает с компонентом TListView в FireMonkey для отображения результатов поиска. Список загружает элементы по 25 штук за раз, но потенциально может отображать сотни. Необходимо определить момент, когда пользователь прокрутил список вниз до самого конца, чтобы загрузить следующие 25 элементов. Однако, в документации и свойствах компонента не удаётся найти подходящие события или свойства для определения этого момента.

Решение

После дополнительного изучения было обнаружено, что для определения момента прокрутки до конца списка можно использовать методы GetItemRect и GetItemRelRect, которые возвращают прямоугольник элемента в координатах списка. Для последнего элемента в списке, его верхний край будет равен:

listview1.GetItemRect(listview1.ItemCount-1).Top + listview1.ScrollViewPos - listview1.SideSpace - listview1.LocalRect.Top

Этот расчёт учитывает текущее положение прокрутки (ScrollViewPos), а также отступы (SideSpace) и размеры локального прямоугольника (LocalRect).

Пример кода

Для определения момента, когда пользователь прокрутил список до самого низа, можно использовать следующий обработчик события OnScrollViewChange:

procedure TForm5.ListView1ScrollViewChange(Sender: TObject);
var
  Tmp_top: Single;
begin
  Tmp_top := listview1.GetItemRect(listview1.ItemCount-1).Top + listview1.ScrollViewPos - listview1.SideSpace - listview1.LocalRect.Top;
  if Tmp_top + listview1.GetItemRect(listview1.ItemCount-1).Height - listview1.Height = listview1.ScrollViewPos - 2*listview1.SideSpace then
    ShowMessage('Прокрутка до низа');
end;

Или упрощённый вариант:

procedure TForm5.ListView1ScrollViewChange(Sender: TObject);
begin
  if listview1.GetItemRect(listview1.ItemCount-1).Bottom = listview1.Height - listview1.SideSpace then
    ShowMessage('Прокрутка до низа');
end;

Этот код учитывает изменения в отступах, размерах элементов и видимости элементов управления, таких как поисковая строка.

Важные замечания

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

Альтернативный ответ

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

Заключение

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

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

В статье рассматривается проблема оптимизации отображения больших списков элементов в компоненте `TListView` из библиотеки FireMonkey, с использованием методов для определения момента прокрутки до конца списка и автоматической загрузки новых элементов.

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

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

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