Практическая работа №5 Графические объекты. |
Практическая работа №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.
|