Обновление TListView в FireMonkey: решения проблемы после поиска и очистки в XE5

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

Обновление TListView в FireMonkey: решения проблемы после поиска и очистки в XE5

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

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

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

Пример кода

Вот примеры процедур, которые обычно используются для создания и обновления элементов списка:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  LItem: TListViewItem;
begin
  if Assigned(ListView1) then
    ListView1.Items.Clear;
  for i := 1 to 20 do
  begin
    LItem := ListView1.Items.Add;
    LItem.Text := IntToStr(i);
  end;
end;

procedure TForm1.btnButton1Click(Sender: TObject);  { Кнопка перезагрузки }
var
  i: integer;
  LItem: TListViewItem;
begin
  btnButton2Click(btnButton2);
  if Assigned(ListView1.Items.Filter) then
    ListView1.Items.Filter := nil;
  if Assigned(ListView1) then
    ListView1.Items.Clear;
  for i := 1 to 20 do
  begin
    LItem := ListView1.Items.Add;
    LItem.Text := IntToStr(i);
  end;
end;

procedure TForm1.btnButton2Click(Sender: TObject); { Кнопка очистки }
var
  i: integer;
  SearchBox: TSearchBox;
begin
  for i := 0 to ListView1.Controls.Count - 1 do
    if ListView1.Controls[i].ClassType = TSearchBox then
    begin
      SearchBox := TSearchBox(ListView1.Controls[i]);
      Break;
    end;
  if Assigned(SearchBox) then
    SearchBox.Text := '';
end;

Подтвержденный ответ

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

1. Очистка текста поиска.
2. Установка фильтра списка в nil.

Эти изменения необходимо внести в процедуру перезагрузки списка:

procedure TForm1.btnButton1Click(Sender: TObject);  { Кнопка перезагрузки }
begin
  // Очистка поля поиска
  btnButton2Click(btnButton2);
  // Сброс фильтра поиска
  ListView1.Items.Filter := nil;
  // Перезагрузка списка
  // ... Код очистки и пересоздания элементов списка ...
end;

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

Хотя в альтернативном ответе код не изменился, важно отметить, что пользователи XE7 и 10.2.1 также столкнулись с аналогичной проблемой, и решение, предложенное выше, оказалось рабочим и для них.

Заключение

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

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

Пользователи столкнулись с проблемой невидимости элементов в TListView в FireMonkey XE5 после поиска, очистки и перезагрузки списка, и проблема решается через очистку текста поиска и сброс фильтра элементов списка.

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

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

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