Компонент TFastTreeView

Вернуться к оглавлению

Наследник TCustomListView, аналог TTreeView. Основное отличие от стандартного компонента TTreeView - этот компонент предназначен для визуального отображения больших древесных структур данных, содержащих от нескольких тысяч до миллионов узлов. Стандартный TTreeView начинает испытывать серьезные проблемы с быстродействием уже при тысяче узлов в дереве, но самое главное - технически стандартный tree-view-контрол не способен поддерживать деревья с числом узлов больше 32767 (претензии к Microsoft^TM). При реализации TFastTreeView, базовый компонент TCustomListView используется сразу как виртуальный, в виде таблицы (ViewStyle = lvsReport). Избыточная функциональность по возможности скрыта.

Имеется так же некоторое число внешних и функциональных улучшений (по сравнению с TTreeView), такие как прорисовка другим цветом "дорожки" от корневого элемента к текущему выделенному, возможность выделения нескольких узлов в дереве. К сожалению, будучи наследником TCustomListView, компонент FastTreeView не поддерживает экранную анимацию процесса раскрытия/свёртывания узлов. С другой стороны, такая анимация при возникновении тормозов могла бы становиться дополнительным источником раздражения для пользователя.

Компонент разрабатывался для Delphi 5, но работает так же и в Delphi 6, и должен работать в Delphi 7. В более поздних версиях Delphi и его клонов не тестировался.

Подробное описание

По умолчанию, в код данного компонента включается переопределение стандартных имен TTreeView, TTreeNode таким образом, чтобы использование этих имен в модуле, использующем TFastTreeView, перенаправлялось бы на TFastTreeView и TFastTreeItem. Но если добавить в опции проекта символ условной компиляции NOREDECLARETREEVIEW, то такой код включаться не будет, и соответствующие типы придется объявлять полностью.

Внимание (особенность): При использовании TFastTreeView, могла возникать неприятная ситуация, связанная с неправильным помещением первого видимого элемента в неправильную (не первую) позицию после изменения количества видимых элементов в списке (в сторону уменьшения). Такое некорректное поведение полностью "обеспечивается" стандартным list-view контролом (претензии к Microsoft^TM), и полностью устранить его вообще для всех случаев не удается. В случае TFastTreeView эта неприятность устранена, но в связи с этим возникают особенности поведения. А именно: для обеспечения правильного помещения верхнего узла как максимум в первую позицию, перед выполнением свертки узла временно выделенным становится первый узел верхнего уровня (и обеспечивается его "видимость", т.е. сброс в нулевое значение вертикальной линейки прокрутки). После выполнения свертки восстанавливается выделение текущего узла (того, который сворачивается), и так же обеспечивается его видимость. Неприятность заключается в том, что в случае включения свойства MultiSelect, множественное выделение узлов сбрасывается в результате свертки любого узла, и выделенным оказывается только этот узел.

 

TFastTreeView

TFastTreeNodes

TFastTreeItem

Свойства, события и методы класса TFastTreeView, доступные в Инспекторе объектов и во время исполнения.

Свойства, методы, события, совпадающие по смыслу и наименованию с аналогичными свойствами TTreeView (как ближайшего аналога) и TListView (как ближайшего потомка того же родительского класса TCustomListView, от которого произведён TFastTreeView), будут опускаться в данном описании, для сокращения текста. Информация о них может быть получена из справки по Delphi.

Публикуемые свойства (свойства, которые могут быть изменены Инспектором объектов в режиме дизайна формы).
 

Имя свойства	Тип	Начальное значение	Описание
ButtonImages	TImageList		Если этот список изображений назначен, то в качестве кнопок [-] и [+] перед узлами, которые могут содержать дочерние, используются пиктограммы с индексами соответственно 0 и 1 из этого списка.
FocusedLineColor	TColor	clHighlight	Цвет линии от корневого уровня к текущему узлу в дереве.
FocusedLineWidth	Integer	1	Толщина линии от корневого уровня к текущему узлу в дереве.
LineColor	TColor	clBtnFace	Цвет линии.
LineWidth	Integer	1	Толщина линии. В случае установки значения в 0, линии не прорисовываются.
MultiSelect	Boolean	FALSE	Множественное выделение. Внимание: При схлопывании любого узла, множественное выделение узлов сбрасывается!

Свойства времени исполнения класса TFastTreeView, доступные из программы (секция PUBLIC).

Методы класса TFastTreeView, доступные во время исполнения (секция PUBLIC).

Свойства, события и методы класса TFastTreeNodes, доступные во время исполнения.

Для компонента

Имя свойства или декларация метода	Тип (свойства)	Описание
Owner	TFastTreeView	Возвращает ссылку на родительский компонент TFastTreeView.
Count	Integer	Общее количество узлов в дереве, считая те, которые невидимы в результате схлопывания родительских узлов.
Item[ Idx: Integer ]	TFastTreeItem	Позволяет перечислить все узлы дерева, считая закрытые в результате схлопывания родительских узлов.
function Add(Node: TFastTreeItem; const S: string): TFastTreeItem;		Добавление узла. Если параметр Node указан, то узел добавляется в качестве дочернего к нему, иначе - как новый корневой узел.
function AddObject(Node: TFastTreeItem; const S: string; P:Pointer): TFastTreeItem;		Аналогично предыдущему, но узлу сразу приписывается свойство Data, обычно являющееся указателем на объект или запись (структуру в памяти), хотя и не обязательно: точно так же эти данные могут использоваться как числа - всё определяется кодом программы.
function Insert(Node: TFastTreeItem; const S: string): TFastTreeItem;		Вставка узла перед указанным узлом (не должен быть NIL). Узел становится дочерним по отношению к родителю узла Node, либо корневым, если сам узел Node - корневого уровня.
function InsertObject(Node: TFastTreeItem; const S: string; P:Pointer): TFastTreeItem;		То же, что и выше, плюс создаваемому узлу сразу приписываются пользовательские данные, как и в случае AddObject.
function AddChild(Node: TFastTreeItem; const S: string): TFastTreeItem;		Избыточный метод. Дублирует поведение метода Add.
function AddChildObject(Node: TFastTreeItem; const S: string; P:Pointer): TFastTreeItem;		То же, плюс присваивает данные узлу.
function AddChildFirst(Node: TFastTreeItem; const S: string): TFastTreeItem;		Добавляет дочерний узел, помещая его в качестве первого дочернего узла.
function AddChildObjectFirst(Node: TFastTreeItem; const S: string; P:Pointer): TFastTreeItem;		Аналогично предыдущему, плюс приписывание узлу данных пользователя.
procedure Delete( Node: TFastTreeItem );		Удаляет указанный узел.
procedure Clear;		Удаляет все узлы в дереве.

 

Свойства, события и методы класса TFastTreeItem, доступные во время исполнения.

Обратите внимание, что в модуле FastTreeView класс TTreeNode переопределяется как эквивалентный новому классу TFastTreeItem. Это означает, что в коде можно объявлять переменные типа TFastTreeItem как переменные типа TTreeNode, что немного укорачивает запись и позволяет при необходимости возвратиться к использованию стандартного TTreeView (если не использовано слишком большое количество новых возможностей).

Справку по свойствам, выделенным синим цветом, см. в справке Delphi по аналогичному стандартному контролу TTreeView (точнее, по компоненту TTreeNode, аналогом которого является TFastTreeItem).

Оптимизация

Используйте скобки Items.BeginUpdate / Items.EndUpdate на время выполнения изменений содержимого дерева. Если этого не делать, скорость работы может существенно упасть. Пример:
var TV  : TFastTreeView;
    Node: TFastTreeItem;
......
TV.Items.BeginUpdate;
try
    // работаем, изменяем данные, добавляем/удаляем элементы и т.д.
finally
    TV.Items.EndUpdate;
end;