Исправление ошибки горячего отслеживания в TListView при перемещении элементов на разных версиях Windows

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

Вопрос, поднятый пользователем, касается проблемы с "горячим отслеживанием" в виртуальном TListView при перемещении элементов. Проблема заключается в том, что система "горячего отслеживания" работает некорректно: в Windows 7 выделение остается рядом с выбранным элементом, в то время как в Windows 8.1 оно закрепляется в случайных позициях. Пользователь предоставил минимальный код для воспроизведения проблемы и отметил, что попытки реализовать собственную систему отслеживания привели к тому, что верхний элемент под курсором всегда остается выделенным.

Статья: Исправление ошибки горячего отслеживания в TListView при перемещении элементов на разных версиях Windows

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

При работе с виртуальным TListView в среде разработки Delphi при перемещении элементов (с параметром Accept:= True) система "горячего отслеживания" ведет себя некорректно. В операционной системе Windows 7 выделение остается рядом с выбранным элементом, в то время как в Windows 8.1 элемент выделения закрепляется в случайных позициях. Это поведение было зафиксировано пользователем и представлено в виде видеозаписей.

Код для воспроизведения проблемы

Минимальный пример кода, который воспроизводит проблему, включает в себя определение формы Form1 с TListView, где установлены параметры для виртуального режима отображения элементов и обработчики событий.

Опыт пользователя

Пользователь также упоминает, что при использовании не-виртуального TListView проблема не наблюдается. В комментариях обсуждается использование альтернативного контрола, например, VirtualTreeView.

Подтвержденное решение

Проблема была решена путем сброса состояния LVIS_DROPHILITED для всех элементов и установки этого состояния для элемента, на который производится перетаскивание. Это достигается путем переопределения методов DragOver и DoEndDrag в классе TListView, что позволяет корректно отображать "горячее" выделение.

Код с решением

type
  TListView = class(ComCtrls.TListView)
  protected
    procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); override;
    procedure DoEndDrag(Target: TObject; X, Y: Integer); override;
  public
    function GetItemIndexAt(X, Y: Integer): Integer;
  end;

function TListView.GetItemIndexAt(X, Y: Integer): Integer;
var
  HitInfo: TLVHitTestInfo;
begin
  Result := -1;
  if HandleAllocated then
  begin
    HitInfo.pt := Point(X, Y);
    Result := ListView_HitTest(Handle, HitInfo);
  end;
end;

procedure TListView.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
var
  DropIndex: Integer;
begin
  inherited;
  if OwnerData then
  begin
    ListView_SetItemState(Handle, -1, 0, LVIS_DROPHILITED);
    if Accept then
    begin
      DropIndex := GetItemIndexAt(X, Y);
      if DropIndex <> -1 then
        ListView_SetItemState(Handle, DropIndex, LVIS_DROPHILITED, LVIS_DROPHILITED);
    end;
  end;
end;

procedure TListView.DoEndDrag(Target: TObject; X, Y: Integer);
begin
  if OwnerData then
    ListView_SetItemState(Handle, -1, 0, LVIS_DROPHILITED);
  inherited;
end;

Заключение

В комментариях обсуждается, что исправление следует применять только при включенном режиме OwnerData, что подтверждается корректной работой не-виртуального TListView. Также отмечается, что корректное отображение "горячего" выделения достигается путем правильной установки состояний элементов списка.

Эта статья предоставляет пошаговое руководство по устранению ошибки "горячего отслеживания" в виртуальном TListView при перемещении элементов, что особенно актуально для разработчиков, использующих Delphi и Pascal.

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

**Описание:** Проблема с "горячим отслеживанием" в виртуальном `TListView` при перемещении элементов в разных версиях Windows связана с некорректной работой системы отслеживания и требует специального решения для корректного отображения выделения.

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

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

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