Практическая работа №5 Графические объекты.

Компонент TImage – отображение картинок.

Этот компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растровой картинки, пиктограммы, или метафайла.

Основное свойство компонента – Picture.

Разместить графический объект можно несколькими способами:

Свойству Picture присвоить значение <filename>,  указав весь путь доступа к данному файлу.

Во время работы программы применить метод  LoadFromFile
Image1.Picture.LoadFromFile (‘flower.bmp’);

Создать просмотрщик изображений, используя компонент OpenDialog илиOpenPictureDialog.

Основной метод, которым производится обращение к компоненту OpenDialog илиOpenPictureDialog - Execute. При открытии окна мы формируем переменную булевского типа и возвращаем TRUE - если нажата клавиша OK или FALSE - если нажата клавиша Cancel

или Esc.

Для этого:

1. Разместите  на форме компоненты Image1, Button1, OpenPictureDialog1

2. Напишите такой обработчик события OnClick для Button1

procedure TForm1.Button1.Click(Sender: TObject);

begin

if OpenDialog1.Execute  then

begin

Image1.Picture.LoadFromFile (OpenDialog1.FileName);

Image1.Stretch:=true

end;

end;

Заметим, что оператор Image1.Stretch :=True масштабирует изображение так, чтобы оно занимало всю рабочую область Image1.