Описание плана разработки программы

Практикум по Delphi для решения прикладных задач

Практическая работа № 1 «Альбом»

Цель работы -создать программу,выполняющую следующие действия:1. После запуска программы в окне изображается рисунок.

Рис. 22.

2. По щелчку мышью на рисунке появляется диалоговое окно.

3. Выбрать в открывшемся диалоговом окне любой другой рисунок.

Рис. 23.

4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: панель Panel, рисунок Image, диалоговое окно OpenDialog.

3. Выполнить следующие действия:

Таблица 6.

Выделенный	Вкладка окна	Имя свойства/	Действие
объект	Object Inspector	имя события
Form1	Properties	Caption	Установка имени формы «Альбом»
Panel1	Properties	Caption	Очистите значение свойства Caption
(Вкладка		BevelOuter	Выбрать в раскрывающемся списке значение
Standard)			bvLowered
		BevelInner	Выбрать в раскрывающемся списке значение
			bvNone
		BewelWidth	Присвоить значение 2
		Width	Присвоить значение 241
		Height	Присвоить значение 185
Image1	Properties	Left	Присвоить значение 2
(Вкладка		Top	Присвоить значение 2
Additional)
	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	Properties	Title	Ввести текст: «Выбор изображения»
(Вкладка		FileName	Ввести полный путь доступа к файлу:
Dialogs)			C:\Windows\Лес.bmp
		Filter	Ввести текст: Растровое изображение
			(*.bmp)|*.bmp
		DefaultExt	Присвоить свойству значение:.bmp
		Options	Подсвойству ofFileMustExit (Файл должен
			существовать) присвоить значение True (Да)

4. Сохраните проект, запустите и протестируйте его.

Дата добавления: 2017-02-01