Работа с VirtualStringTree: динамическое и статическое отображение данных в Delphi

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

VirtualStringTree (VST) является мощным компонентом для отображения данных в виде древовидной структуры, который широко используется в приложениях, разработанных с помощью Delphi. Он позволяет группировать данные, отображать заголовки и детали, а также предоставляет гибкие возможности для пользовательского интерфейса.

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

Проблема

Разработчики, использующие VST, могут столкнуться с задачей скрытия кнопок для расширения/сворачивания узлов, чтобы пользователь не мог взаимодействовать с некоторыми частями дерева. Это может быть необходимо, например, для отображения данных в статическом виде, где пользователь должен видеть полную структуру без возможности её изменения.

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

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

Решение

Для управления динамическим и статическим отображением данных в VST разработчики могут использовать события OnExpanding и OnCollapsing, где можно установить переменную Allowed в зависимости от состояния чекбокса:

procedure TMainForm.VSTCollapsing(Sender: TBaseVirtualTree;
  Node: PVirtualNode; var Allowed: Boolean);
begin
  Allowed := CheckBox1.Checked;
end;

procedure TMainForm.VSTExpanding(Sender: TBaseVirtualTree;
  Node: PVirtualNode; var Allowed: Boolean);
begin
  Allowed := CheckBox1.Checked;
end;

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

procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    VST.TreeOptions.PaintOptions := VST.TreeOptions.PaintOptions + [toShowTreeLines]
  else
    VST.TreeOptions.PaintOptions := VST.TreeOptions.PaintOptions - [toShowTreeLines];
end;

Скрытие кнопок расширения/сворачивания

Для скрытия кнопок расширения/сворачивания узлов в VST необходимо использовать опцию toShowButtons. Эта опция позволяет скрыть кнопки, отвечающие за расширение/сворачивание узлов, и доступна для настройки в свойствах TreeOptions компонента.

procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    VST.TreeOptions.PaintOptions := VST.TreeOptions.PaintOptions + [toShowButtons, toShowTreeLines]
  else
    VST.TreeOptions.PaintOptions := VST.TreeOptions.PaintOptions - [toShowButtons, toShowTreeLines];
end;

Эта опция документирована в файле VirtualTrees.pas в разделе, отвечающем за перечисление TVTPaintOption:

toShowButtons,             // Display collapse/expand buttons left to a node.

Использование этой опции позволит скрыть кнопки плюс и минус, которые отвечают за динамическое управление отображением данных в дереве.

Заключение

VirtualStringTree предоставляет разработчикам на Delphi мощные инструменты для работы с данными в виде древовидной структуры. С помощью опций toShowButtons и событий OnExpanding/OnCollapsing можно реализовать как динамическое, так и статическое отображение данных, предоставляя пользователю гибкость и удобство в работе с интерфейсом.

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

Работа с компонентом VirtualStringTree в Delphi включает возможность динамического и статического отображения данных, позволяя пользователям взаимодействовать с деревом или отображать его в фиксированном виде без возможности изменения структуры.

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

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

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