Как избавиться от автоматического перемещения прокрутки при изменении виртуального списка в Delphi

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

Как избавиться от автоматического перемещения прокрутки при изменении виртуального списка в Delphi

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

Проблема

Виртуальный ListView в Delphi может вести себя неожиданным образом при изменении количества элементов. Если у вас выбрана или фокусирована строка, и вы изменяете количество элементов в списке, то список может автоматически прокрутиться к этой строке, что нежелательно.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
var
  Col: TListColumn;
begin
  ListView1.OwnerData := True;
  ListView1.ViewStyle := vsReport;
  ListView1.RowSelect := True;

  Col := ListView1.Columns.Add;
  Col.Caption := 'LineNum';
  Col.Alignment := taLeftJustify;
  Col.Width := 70;
end;

// listview onData event
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := IntToStr(Item.Index+1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Изменение количества элементов приводит к перемещению прокрутки
  // ListView1.Items.Count := ListView1.Items.Count + 10;
end;

Решение

Проблема возникает из-за того, что сеттер свойства Count для TListItems вызывает функцию ListView_SetItemCountEx() без флага LVSICF_NOSCROLL, который предотвращает изменение позиции прокрутки при изменении количества элементов. Чтобы решить эту проблему, вам нужно явно вызвать ListView_SetItemCountEx() с необходимым флагом.

uses
  ..., CommCtrl;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Изменение количества элементов без перемещения прокрутки
  ListView_SetItemCountEx(ListView1.Handle, ListView1.Items.Count + 10, LVSICF_NOINVALIDATEALL or LVSICF_NOSCROLL);
end;

Выводы

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

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

Пользователь спрашивает о способе предотвращения автоматического перемещения прокрутки в виртуальном списке (ListView) в среде разработки Delphi при изменении количества элементов.

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

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

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