Справочник по компонентам 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.