Справочник по компонентам Delphi. Часть 2 - Компонент TDirectoryOutline
ОГЛАВЛЕНИЕ
Компонент TDirectoryOutline
TObject -> TPersistent -> TComponent -> TControl -> TWinControl -> TCustomControl -> CustomGrid -> TCustomOutline -> TDirectoryOutline
Модуль DIROUTLN
Страница Палитры компонентов Samples
Этот компонент создан для отображения иерархического дерева файлов и каталогов текущего диска и, таким образом, может заменить сразу компоненты TDirectoryListBox и TFileListBox. Он имеет много общего с компонентом TOutline, отличие заключается в возможности работы только с файловой структурой.
Значения текущего диска, содержимое файловой системы которого отображается в дереве, устанавливается посредством свойства:
property Drive: Char;
Текущий каталог соответствует значению свойства:
property Directory: TFileName;
Как и у компонента-предка, у TDirectoryOutline имеется свойство Lines. В него на этапе разработки считывается иерархическое дерево файловой структуры. Добавлять туда новые строки не имеет смысла, т. к. при запуске приложения файловая структура снова считывается, и строки с именами несуществующих каталогов и файлов удаляются.
Стиль отображаемых имен файлов и каталогов определяет свойство:
(Рb) property TextCase: TTextCase;
TTextCase = (tcLowerCase, tcUpperCase, tcAsIs) ;
- tcLowerCase — преобразование к нижнему регистру;
- tcUpperCase — преобразование к верхнему регистру;
- tcAsIs — без преобразования.
function ForceCase(const AString: string): string;
может использоваться для пребразования строки, передаваемой в параметре AString, в соответствии с текущим стилем свойства TTextCase.