Альбом
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается рисунок.
 |
2. По щелчку мышью на рисунке появляется диалоговое окно.
3. Выбрать в открывшемся диалоговом окне любой другой рисунок.
 |
4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: панель Panel, рисунок Image, диалоговое окно OpenDialog.
3. Выполнить следующие действия:
Таблица 6.
|
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
|
Form1 |
Properties |
Caption |
Установка имени формы «Альбом» |
|
Panel1 (Вкладка Standard) |
Properties |
Caption |
Очистите значение свойства Caption |
|
BevelOuter |
Выбрать в раскрывающемся списке значение bvLowered |
||
|
BevelInner |
Выбрать в раскрывающемся списке значение bvNone |
||
|
BewelWidth |
Присвоить значение 2 |
||
|
Width |
Присвоить значение 241 |
||
|
Height |
Присвоить значение 185 |
||
|
Image1 (Вкладка Additional) |
Properties |
Left |
Присвоить значение 2 |
|
Top |
Присвоить значение 2 |
||
|
Width |
Присвоить значение 237 |
||
|
Height |
Присвоить значение 181 |
||
|
Stretch |
Включить свойство True |
||
|
Picture |
С помощью кнопки-построителя открыть диалоговое окно Picture Editor (Редактор изображений). Щелкнуть на кнопке Load (Загрузить) – откроется диалоговое окно Load Picture (Загрузка рисунка). Открыть папку C:\Windows и выбрать файл Лес.bmp, щелкнуть на кнопке Открыть. Вернуться в окно Редактора изображений, щелкнуть на кнопке OK. |
||
|
Image1.Picture.LoadFromFile (OpenDialog1.FileName); |
|||
|
Events |
OnClick |
OpenDialog1.Execute; |
|
|
OpenDialog1 (Вкладка Dialogs) |
Properties |
Title |
Ввести текст: «Выбор изображения» |
|
FileName |
Ввести полный путь доступа к файлу: C:\Windows\Лес.bmp |
||
|
Filter |
Ввести текст: Растровое изображение (*.bmp)|*.bmp |
||
|
DefaultExt |
Присвоить свойству значение: .bmp |
||
|
Options |
Подсвойству ofFileMustExit (Файл должен существовать) присвоить значение True (Да) |
4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1.Image1Click (Sender: TObject);
begin
OpenDialog1.Execute;
Image1.Picture.LoadFromFile (OpenDialog1.FileName);
end;