Компонент tFileListBox

TObject->TPersistent-”TComponent->TControl-”TWinControl->

—>TCustomListBox->TFlleListBox

Модуль FILECTRL

Страница Палитры компонентов System

Компонент представляет список файлов в текущем каталоге. Аналогично предыдущим компонентам, свойства

property Drive: char;

property Directory: string;

содержат имя устройства и каталога на нем, а метод

procedure Update;

обновляет список файлов. Метод

procedure AppiyFilePath (const EditText: string);

пытается полностью переустановить путь, заменив текущее значение на то, что содержится в параметре EditText. При этом, если компонент связан со списками дисков и каталогов, то и там значения изменяются.

Свойство

(РЫ property FileEdit: TEdit;

содержит указатель на редактирующий элемент, которому автоматически пере­дается имя текущего файла, которое также доступно как значение свойства:

property FileName: String;

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

(Pb) property FileType: TFileType;

TFileAttr = (ftReadOnly, ftHidden, ftSystem, fCVolumeID, ftDirectory, ftArchive, ftNormal) ;

TFileType = set of TFileAttr;

Шаблон, используемый при включении файлов в список, задается свойством:

(Pb) property Mask: string;

Если свойство

(Pb) property MultiSelect: Boolean;

установлено в True, то в списке может быть одновременно выделено несколько

файлов.

При смене текущего файла возникает событие:

(РЙ property OnChange: TNotifyEvent;

Как и прежде, объекты Items.Objects в этом разделе представляют пиктограммы для разных типов файлов. Задает их показ значение True следующего свойства:

(Pb) property ShowGlyphs: Boolean;

Компонент tFilterComboBox

TObjecC—>TPersistent->TCoinponent->TControl-”TWinControl->

->TCustomComboBox—>.TFilterComboBox

Модуль FILECTRL

Страница Палитры компонентов System

Этот компонент-комбинированный список предназначен для выбора шаблона-фильтра, который производит селекцию файлов по расширениям. Подробное описание синтаксиса такого шаблона см. в разделе "Компоненты-стандартные диалоговые окна Windows". Сам фильтр задается в свойстве:

(Pb) property Filter: string;

Он состоит из двух частей — описывающего тип текста и собственно шаблона. Они доступны и по отдельности через свойства:

(Ro) property Mask: strings-property Text: string;

В компоненте должна быть определена ссылка на список файлов, где будут отражаться изменения фильтра. Он должен иметь тип TFileListBox, что опре­деляется свойством:

(Pb) property FileList: TFileListBox;

При изменении текущего элемента списка возникает событие:

iPbi property OnChange: TNotifyEvent;

Компонент 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.

Таймер

TObject—>TPersistent—>TCoinponent—^TTimer

Модуль EXTCTRLS

Страница Палитры компонентов System

Этот невизуальный компонент предназначен для уведомления программы об истечении определенных промежутков времени. Компонент инкапсулирует системный таймер Windows и работает через посылку сообщений WM_TIMER.

Свойство

(Pb) property Enabled: Boolean;

включает/выключает таймер, влияя на генерацию им событий. Будучи уста­новлен в Enabled, таймер начинает генерировать события OnTimer через интер­вал времени

(РЬ| property Interval: Word;

который измеряется в миллисекундах. После каждого истечения такого интер­вала инициируется обработчик, связанный с событием:

(Pb) property OnTimer: TNotifyEvent;

При этом программист получает очередной квант времени.

При активизации и деактивизации таймера или изменении интервала в системе может не оказаться свободных таймеров. В этом случае генерируется исключительная ситуация EOutOfResources.