Изменение поведения скроллинга в Virtual Treeview для соответствия стандартам Delphi

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

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

Проблема

Компонент Virtual Treeview в Delphi по умолчанию осуществляет вертикальный скроллинг по пикселям, что отличается от поведения стандартных компонентов, таких как TListView и TTreeView, где скроллинг происходит по строкам. Это означает, что при навигации с помощью курсорных кнопок или скролла мыши, полная строка не всегда остаётся видимой в верхней части контрола. Такой подход может вызывать неудобства при работе, особенно в приложениях, где важно поддерживать стандартное поведение компонентов Delphi.

Решение

Для изменения поведения скроллинга в Virtual Treeview можно использовать несколько подходов. Один из них заключается в перехвате события OnScroll компонента TBaseVirtualTree и изменении свойства OffsetY с учётом высоты строки. Это позволит скроллить по строкам, а не по пикселям.

procedure TForm1.VirtualTree1Scroll(Sender: TObject; DeltaX, DeltaY: Integer);
var
  LineHeight: Integer;
begin
  LineHeight := VirtualTree1.Canvas.TextHeight('M'); // Высота строки
  if DeltaY <> 0 then
    VirtualTree1.OffsetY := Round(VirtualTree1.OffsetY / LineHeight) * LineHeight;
end;

Также, важно убедиться, что позиция до скроллинга делится на высоту строки без остатка, чтобы избежать скроллинга с неверной позиции.

Другой подход заключается в скрытии стандартных полосок прокрутки Virtual Treeview и использовании VCL полосок прокрутки, а также программном управлении скроллингом компонента.

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

Пользователь, столкнувшийся с проблемой, нашёл решение, используя свойство BottomSpace и соответствующее изменение свойства OffsetY при изменении размеров компонента и при скроллинге. Пример кода, который решает проблему:

procedure TForm1.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.ScrollBarOptions.VerticalIncrement :=
    VirtualStringTree1.DefaultNodeHeight;
end;

procedure TForm1.VirtualStringTree1Resize(Sender: TObject);
var
  DY: Integer;
begin
  with VirtualStringTree1 do begin
    DY := DefaultNodeHeight;
    BottomSpace := ClientHeight mod DY;
    OffsetY := Round(OffsetY / DY) * DY;
  end;
end;

procedure TForm1.VirtualStringTree1Scroll(Sender: TBaseVirtualTree; DeltaX,
  DeltaY: Integer);
var
  DY: Integer;
begin
  if DeltaY <> 0 then begin
    DY := VirtualStringTree1.DefaultNodeHeight;
    VirtualStringTree1.OffsetY := Round(VirtualStringTree1.OffsetY / DY) * DY;
  end;
end;

Заключение

Изменение поведения скроллинга в Virtual Treeview позволяет сделать его более удобным и интуитивно понятным для пользователей, привыкших к стандартному поведению компонентов Delphi. Приведённые примеры кода демонстрируют, как можно достичь желаемого результата, изменяя свойства и перехватывая события компонента.

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

Вопрос связан с изменением поведения скроллинга в компоненте Virtual Treeview для соответствия стандартам Delphi, скроллинг по строкам вместо пикселей.

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

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

:: Главная :: TTreeView ::