Лекция: Графические объекты

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

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

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

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

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

3. Создать просмотрщик изображений, используя компонент 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.