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

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

Рис. 22.

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

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

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

Рис. 23.

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

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

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

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

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

Таблица 6.

Выделенный объект

Вкладка окна Object Inspector

Имя свойства/ имя события

Действие

Forml

Properties

Caption

Установка имени формы "Альбом"

Panell

(Вкладка Standard)

Properties

Caption

Очистите значение свойства Caption

BevelOuter

Выбрать в раскрывающемся списке значение bvLowered

BevelInner

Выбрать в раскрывающемся списке значение bvNone

BewelWidth

Присвоить значение 2

Width

Присвоить значение 241

Height

Присвоить значение 185

Imagel

(Вкладка Additional)

Properties

Left

Присвоить значение 2

Top

Присвоить значение 2

Width

Присвоить значение 237

Height

Присвоить значение 181

Stretch

Включить свойство True

Picture

С помощью кнопки-построителя открыть диалоговое окно Picture Editor (Редактор изображений). Щелкнуть на кнопке Load (Загрузить) - откроется диалоговое окно Load Picture (Загрузка рисунка). Открыть папку C:\Windows и выбрать файл Лєс.Ьгтф, щелкнуть на кнопке Открыть. Вернуться в окно Редактора изображений, щелкнуть на кнопке OK.

Image1.Picture.LoadFromFile (OpenDialog1.FileName);

Events

OnClick

OpenDialog1.Execute;

OpenDialogl

(Вкладка Dialogs)

Properties

Title

Ввести текст: "Выбор изображения"

FileName

Ввести полный путь доступа к файлу: CAWindowsYPec.bmp

Filter

Ввести текст: Растровое изображение (*.bmp)|*.bmp

DefaultExt

Присвоить свойству значение: .bmp

Options

Подсвойству ofFileMustExit (Файл должен существовать) присвоить значение True (Да)

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

Листинг подпрограммы

procedure TForm1.Image1Click (Sender: TObject);
begin
OpenDialog1.Execute;
Image1.Picture.LoadFromFile (OpenDialog1.FileName);
end;

Практическая работа № 6 "Двигающая кнопка" || Оглавление || Практическая работа № 8 Работа с меню


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



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс