Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
delph_t.doc
Скачиваний:
41
Добавлен:
12.04.2015
Размер:
2.26 Mб
Скачать

Методы компонента:

function AlphaSort: Boolean;

Сортирует узлы по тексту и возвращает True, если сортировка прошла успешно.

TTVCompare = function(IParamI, lParam2, IParamSort: Longint): Integer stdcall; tfunction CustomSort(SortProc:TTVCompare; Data: Longint): Boolean-

Определяет нестандартную сортировку с помощью функции SortProc. Эта функция должна рассматривать IParamI и lParam2 как объекты TTreeNode и возвращает отрицательное число, если IParamI<1Рагат2; ноль, если 1Рагате1=1Рагат2; положительное число, если IParamI > lParam2.

procedureFullCollapse;

Прячет все узлы, кроме узлов самого верхнего уровня иерархии.

ProcedureFullExpand;

Показывает все узлы дерева иерархии.

function GetNodeAt(X, Y: Integer): TTreeNode;

Возвращает узел, располагающийся в указанной точке, или NIL, если точка не принадлежит ни одному узлу.

function IsEditing: Boolean-

Возвращает True, если пользователь редактирует какой-либо узел.

procedure LoadFromFile(const .FileName: Strings

Загружает дерево иерархии из файла.

procedure SaveToFile(const F.ileName: Strings

Сохраняет в файле дерево иерархии.

procedure SaveToStream(Stream:TStream);

Сохраняет в потоке данных дерево иерархии.

С компонентом связаны такие события:

TTVChangedEvent = procedure( Sender: TObject; Node: TTreeNode) of object; property OnChange: TTVChangedEvent ;

Возникает при смене состояния выбора у одного из узлов. Node - узел, который изменил состояние.

TTVChangingEvent = procedure( Sender: TObject; Node: TTreeNode; var AllowChange: Boolean) of object/property OnChanging: TTVChangingEvent ;

Возникает перед сменой состояния выбора у одного из узлов. Node - узел, который будет выбран. Обработчик в параметре AllowChange разрешает или запрещает выбор узла.

TTVExpandedEvent = procedure( Sender: TObject; Node: TTreeNode) of object; property OnCollapsed: TTVExpandedEvent ;

Возникает при закрытии списка подузлов узла Node.

TTVCollapsingEvent = procedure( Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean) of object/property OnCollapsing: TTVCollapsingEvent;

Возникает перед закрытием списка подузлов узла Node. В параметре AllowCollapse обработчик разрешает или запрещает закрыть список.

TTVCompareEvent == procedure( Sender: TObject; Nodel, Node2: TTreeNode; Data: Integer; var Compare: Integer) of object; property OnCompare: TTVCompareEvent;

Возникает при сравнении двух узлов Node! и Node2. В параметре Compare обработчик должен вернуть отрицательное число, если Node]<Node2; ноль, если Nodel=Node2; положительное число, если Nodel>Node2.

TTVExpandedEvent = procedure( Sender: TObject; Node: TTreeNode) of object; property OnDeletion:TTVExpandedEvent ;

Возникает при удалении узла Node из дерева иерархии.

TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode; var S: String) of object; property OnEdited: TTVEditedEvent;

Возникает при завершении редактирования надписи в узле Node: S - новая надпись.

TTVExpandedEvent = procedure( Sender: TObject; Node: TTreeNode) of object; property OnExpanded:TTVExpandedEvent ;

Возникает при распахивании списка полуслов узла Node.

TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean) of object/property OnExpanding:TTVExpandingEvent ;

Возникает перед открытием списка подузлов узла Node. В параметре AllowExpansion обработчик разрешает или запрещает открыть список.

TTVExpandedEvent = procedure( Sender: TObject; Node: TTreeNode)

Возникает при необходимости получения

of object; property OnGetImageIndex:TTVExpandedEvent ;

индекса изображения для прорисовки узла Node в обычном состоянии.

TVExpandedEvent = procedure( Sender: TObject; Node: TTreeNode) of object; property OnGetSelectedIndex:TTVExpandedEvent;

Возникает при необходимости получения индекса изображения для прорисовки узла Node в выбранном состоянии.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]