Delphi 6 программирование

       

TOutLine просмотр иерархических структур



18.6.4. TOutLine - просмотр иерархических структур

Подобно компоненту TTreeview страницы Win32 компонент Tout-Line предназначен для отображения иерархических структур данных (каталогов, например). Элементом отображения является узел. Каждый узел имеет родительский узел и дочерние узлы. Исключение составляет узел самого верхнего уровня (он не имеет родительского узла) и узлы самых нижних уровней (они не имеют дочерних узлов),

Для каждого узла компонент создает объект класса TOutLineNode. Его свойства:



property Data: Pointers; Указатель на связанные с узлом данные
property Expanded: Boolean; Если содержит True, с узлом связан раскрытый список дочерних узлов
property FullPath: String; Содержит полное имя узла со списком имен всех родительских узлов, разделенных символом ItemSeparator объекта ToutLine
property Hasltems: Boolean; Содержит True, если с узлом связаны дочерние узлы
property Index: Longint; Содержит уникальный идентификатор узла в компоненте ToutLine
property IsVisible: Boolean; Содержит True, если узел виден в окне компонента ToutLine
property Level: Integer; Определяет уровень иерархии узла. Узел самого верхнего уровня имеет уровень 0, его дочерние узлы - уровень 1, их дочерние узлы - уровень 2 и т. д.
property Text: String; Определяет имя узла
property Topltem: Longint; Содержит индекс своего родительского узла первого уровня (родительский узел нулевого уровня не виден в компоненте TOutLine)

Методы класса TOutLineNode:

procedure ChangeLevelBy(Value: TChangeRange) ; Перемещает уровень узла на один вверх (Value=-1) или вниз(Value=+l) Закрывает список дочерних узлов
procedure Collapse; procedure FullExpand; Раскрывает список всех своих дочерних узлов на всех уровнях
function GetFirstChild: TTreeNode; Возвращает ссылку на первый дочерний узел или nil, если нет дочерних узлов
function GetPrevChild(Value: Longint): Longint; Возвращает индекс узла, предшествующего узлу Value
TAttachMode = (oaAdd, oaAddChild, oalnsert) ; procedure MoveTo(Destination: Longint; AttachMode: TAttachMode) ; Перемещает узел со всеми потомками в положение, определяемое индексом Destination и режимом AttachMode: oaAdd -добавить последним на том же уровне, что и Destination; oaAddChild -добавить последним к потомкам узла Destination; oalnsert - вставить на место Destination, который смещается ниже него на том же уровне

Свойства компонента TOutLine:

property Canvas: TCanvas; Определяет канву для прорисовки компонента
property itemHeight: Integer; Определяет высоту узлов
property Items[Index: Longint]: TOutlineNode; Открывает доступ к узлу по его индексу
property ItemCount: Longing; Содержит общее количество узлов
property Lines: TStrings; Содержит список всех узлов
TOutlineOption = (ooDrawTreeRoot,

ooDrawFocusRect, ooStretchBitmaps) ; TOutlineOptions = set of Tout lineOption; property Options: TOutlineOptions;

Определяет атрибуты прорисовки: ooDraw TreeRoot - соединять линии узлов верхнего уровня; ooDrawFocusRect - выделять пунктиром сфокусированный узел; oostretch Bitmaps - масштабировать пиктограммы
TOutlineStyle = (osText, osPlus-

MinusText, osPictureText, osPlus-

MinusPictureText, osTreeText,

osTreePictureText) ;

property OutlineStyle: TOutlineStyle;

Задает стиль прорисовки: osText - выводится только текст(без линий); osPlusMinusText - текст и пиктограммы PicturePlus/PictureMinus;osPictureText -текст и пиктограммы PictureOpen/PictureClosed/PictureLeaf;osPlusMinus-PictureText - объединяет два предыдущих стиля; osTreeText - текст и линии связи между узлами; osTreePictureText - объединяет osTreeText и osPictureText
property PictureClosed: TBitmap; Содержит пиктограмму узла с закрытым списком дочерних узлов. По умолчанию -закрытая папка
property PictureMinus: TBitmap; Содержит пиктограмму узла с закрытым списком дочерних узлов. По умолчанию - пиктограмма со знаком минус
property PictureOpen: TBitmap; Содержит пиктограмму узла с открытым списком дочерних узлов. По умолчанию - открытая папка
property PictureLeaf: TBitmap; Содержит пиктограмму узла, не имеющего дочерних узлов. По умолчанию - пиктограмма документа
property PicturePlus: TBitmap; Содержит пиктограмму узла с открытым списком дочерних узлов. По умолчанию - пиктограмма со знаком плюс
property Row: Longint; Содержит индекс сфокусированного узла
property ScrollBars: TScroll-Style; Определяет наличие полос прокрутки: ssNone - нет полос; ssHorizontal - горизонтальная полоса; ssVertical - вертикальная полоса; ssBoth - и горизонтальная, и вертикальная полоса

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

function Add(Index: Longint; const Text: String): Longint; Добавляет узел с именем Text как последний на тот же уровень иерархии, что и узел index, и возвращает его индекс (режим oaAdd)
function AddChild(Index: Longint;

const Text: String): Longing;

Добавляет дочерний узел с именем Text к узлу index и возвращает его индекс (режим oaAddChild)
function AddChildObject(Index:

Longint; const Text: String; const Data: Pointer): Longint;

Добавляет дочерний узел с именем Text и данными Data к узлу index и возвращает его индекс
function AddObject(Index: Long

int; const Text: String; const Data: Pointer): Longint;

Добавляет узел с именем Text и с данными Data как последний на тот же уровень иерархии, что и узел index, и возвращает его индекс
procedure BeginUpdate ; Блокирует перерисовку компонента перед вставкой/удалением нескольких узлов
procedure Clear; Удаляет все узлы компонента
procedure EndUpdate; Разрешает перерисовку компонента после вставки/удаления нескольких узлов
procedure FullCollapse; Закрывает списки всех дочерних узлов на всех уровнях
procedure FullExpand; Раскрывает списки всех дочерних узлов на всех уровнях
function GetDataItem(Value: Pointer): Longint; Возвращает индекс узла по его данным
function GetItem(X, Y: Integer): Longint; Возвращает индекс узла по его координатам
function GetTextItem(Value: String) : Longing; Возвращает индекс узла по его имени
function Insert(Index: Longint;

const Text: String): Longing;

Вставляет узел с именем Text на место узла Index(режим oalnsert)
function InsertObj ect(Index:

Longint; const Text: String;

const Data: Pointer): Longint;

Вставляет узел с именем Text и данными Data на место узла index (режим oalnsert)
procedure LoadFromFile(const

FileName: String);

Загружает содержимое компонента из файла с именем FileName
procedure LoadFromFile(const FileName: Strings; Сохраняет содержимое компонента в файле
procedure SetUpdateState(Value: Boolean); С именем FileName если Value=True, соответствует BeginUp date, в противном случае - EndUpdate

Для компонента определены следующие события:

EOutlineChange = procedure

(Sender: TObject; Index: Longint)

of object;

property OnCollapse: EOut lineChange;Возникает при закрытии списка дочерних узлов узда Index

TOwnerDrawState = set of

(odSelected, odGrayed, odDisabled, odChecked, odFocused) ;

TListBox; Index: Integer; Rect:TRect; State: TOwnerDrawState) of Object;

property OnDrawItem: TDrawItemEvent;

Возникает при необходимости прорисовки узла index: Rect - прямоугольник прори совки; State - состояние узла (odSelected - узел выделен; odDisabled - узел запрещен для выбора; odFocused - узел сфокусирован)
EOutlineChange = procedure (Sender: TObject; Index: Longint) of object; property OnExpand: EOut lineChange; Возникает при открытии списка дочерних узлов узла Index




Содержание раздела