Сервер поддерживается кафедрой информатики и вычислительной техники ГрГУ тел. +375-(0)152-445-101 E-mail : kadan@grsu.grodno.by

TObject => TPersistent => TComponent => TControl => TWinControl => TCustomControl => TCustomGrid => TCustomOutline => TDirectoryOutline
Модуль DIROUTLN
Страница Палитры компонентов Samples

Этот компонент создан для отображения иерархического дерева файлов и каталогов текущего диска и, таким образом, может заменить сразу компоненты TDirectoryListBox и TFileListBox. Он имеет много общего с компонентом TOutline, отличие заключается в возможности работы только с файловой структурой.

Значения текущего диска, содержимое файловой системы которого отображается в дереве, устанавливается посредством свойства:

property Drive: Char;

Текущий каталог соответствует значению свойства:

property Directory: TFileName;

Как и у компонента-предка, у TDirectoryOutline имеется свойство Lines. В него на этапе разработки считывается иерархическое дерево файловой структуры. Добавлять туда новые строки не имеет смысла, т. к. при запуске приложения файловая структура снова считывается, и строки с именами несуществующих каталогов и файлов удаляются.

Стиль отображаемых имен файлов и каталогов определяет свойство:

(Pb) property TextCase: TTextCase;

TTextCase = (tcLowerCase, tcUpperCase, tcAsIs) ;

tcLowerCase ? преобразование к нижнему регистру;

tcUpperCase ? преобразование к верхнему регистру;

tcAsIs ? без преобразования.

Метод

function ForceCase(const AString: string): string;

может использоваться для преобразования строки, передаваемой в параметре AString, в соответствии с текущим стилем свойства TTextCase.

Для комментария : kadan@grsu.grodno.by