Основы визуального программирования. Лабораторная работа №1

Описание:
ЗАДАНИЕ 1: Создать форму как показано на рисунке1.
1. Рекомендуемый порядок размещения на форме компонентов TPanel, TDirectoryListBox, TFileListBox и TSplitter:
- Panel1, Panel2 – в верхней и нижней частях клиентской области ;
- DirectoryListBox1– слева на клиентской области (свойство Align);
- Splitter1;
- FileListBox1 – на всю оставшуюся клиентскую область (свойство Align).
2. Для установки связей между списками DriveComboBox1, FilterComboBox1, DirectoryListBox1 и FileListBox1 определите следующие свойства (в Инспекторе объектов или в обработчике onCreate формы): DirList (для DriveComboBox1), FileList и DirLabel (для DirectoryListBox1), FileList (для FilterComboBox1),
3. Для вывода в строку состояния имени и размера выделенного файла создайте обработчик события onChange для FileListBox1
Для получения имени выделенного файла используйте свойства Items и ItemIndex (номер выделенного файла) компонента FileListBox1.

ЗАДАНИЕ 2: Изменить Form1 на рис. 1 (задание 1) следующим образом: использовать для реализации строки состояния вместо компонента TPanel компонент TStatusBar. Структура компонента TStatusBar показана на рис. 2.
Размер первых двух панелей зависит от значения свойства Directory компонента DirectoryListBox1. Размер третьей панели, отображающей текущее время, не меняется.
ЗАДАНИЕ 3: 1. Поместить на форму компонент TImage как показано на рис.2. Отображать внутри компонента графическое изображение только в том случае, если в FileListBox1 выбран BMP-файл.
2. Поместить на Panel1 компонент TSpeedButton (быстрая кнопка) с изображением часов (или с любым другим). Выбор изображения – свойство Glyph.

При нажатии на эту кнопку:
• время в строке статуса должно выключаться;
• состояние кнопки - нажата
Для использования быстрой кнопки в качестве переключателя необходимо установить следующие значения свойств компонента TSpeedButton:
- AllowAllUp:=True; - повторное нажатие на кнопку изменяет ее состояние
( False – для изменения состояния надо нажать другую кнопку) - GroupIndex:=1 {любое ненулевое целое значение}; – индекс группы (если 0 - нет группы);
- Down:=True; - нажата (False - отжата). Работает только при AllowAllUp=True и в группе (т.е. GroupIndex<>0)