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