Объекты для работы с дисками

DriveListBox – Список Устройств – предназначен для отображения списка всех доступных дисков и устройств системы, а также обеспечивает возможность выбора устройства.

Основное событие - Change, которое наступает при смене носителя.

Основное свойство Drive – определяет выбранный диск или устройство.

DirectoryListBox – Список Каталогов – предназначен для отображения структуры выбранного диска, а также обеспечивает возможность выбора и смены каталога.

Основное событие – Change, наступающее после двойного щелчка мышью на имени каталога в окне просмотра.

Основное свойство – Path – позволяет отображать путь к выбранному каталогу, включая и имя диска.

Упражнение1. Установить на форме Список Устройств и Список Каталогов. Чтобы при смене диска менялось сразу и содержимое списка каталогов, эти два устройства необходимо связать. В событии Change списка устройств установить свойство Path списка каталогов. Dir1.Path = Drive1.Drive. Запрограммируйте и проверьте.

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

Событие Click – вызывается при выборе файла в списке.

Событие PathChange – наступает после изменения пути к файлу.

Событие Pattern Change – наступает после изменения маски выбора файлов.

Элемент управления FileListBox имеет много общих свойств с элементом управления ListBox. Кроме них он имеет еще несколько свойств:

Свойство FileName – определяет имя файла.

Свойство Path – определяет путь к файлу.

Свойство Pattern – определяет тип файлов, которые должны содержаться в выборке.

Упражнение2. Установите на форму Список Файлов. Свяжите этот объект со Списком Каталогов аналогично предыдущему заданию. При изменении Списка Каталогов в Списке Файлов должно отображаться содержимое нового каталога. File1.Path = Dir1.Path

Обратите внимание, что свойства Drive, Path, FileName этих объектов управления нельзя установить в окне свойств, они существуют только во время работы программы. Названия этих свойств находятся в списке, появляющемся после точки в конце имени объекта.

Задание1. На форме объекты DriveListBox, DirectoryListBox, два FileListBox, объекты Изображение, ТекстовоеОкно. Свойство Pattern установить (в Окне Свойств) «.bmp». При смене диска и каталога в Списке Файлов должны отображаться только рисунки выбранного каталога. В событии Click Списка файлов (щелчок на имени файла) меняем свойство Picture изображения.

Path Image1.Picture = LoadPicture(Dir1.Path + "\" + File1.filename)

Функция LoadPicture(имя графического файла) – позволяет загружать в объект графическое изображение из файла.

Запускаем проект, входим в нужный каталог на диске, по двойному щелчку по файлу появляется его изображение. В текстовом окне должен напечататься полный путь к файлу, выбранному во 2-ом списке файлов.

Задание 2. Добавить в предыдущее задание еще одно Текстовое Окно, перенастроить свойство Pattern объекта Список Файлов в режим чтения текстовых файлов. При выборе файла в Текстовом Окне отображается его содержимое. Текстовое Окно должно быть в многострочном режиме и с линейками прокрутки.