Лабораторная работа №11

Создадим несложную программу просмотра изображений:

1. Поместите на форму панель TPanel, очистите ее свойство Caption.

2. Разместите на панели кнопку TButton с надписью Загрузить.

3. На любое свободное место формы (над панелью) поместите компонент TImage и установите в его свойство Align значение alClient.

4. На любое место поместите компонент TOpenPictureDialog (вкладка Dialogs) – с его помощью пользователь программы может разыскать нужный файл с изображением.

5. Для кнопки напишите обработчик события OnClick:

Begin

If OpenPictureDialog1.Execute then

Begin

Image1.Picture.LoadFormFile(OpenPictureDialog1.FileName);

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

End;

End;

Для того чтобы нарисовать нижеследующий рисунок в окне PaintBox необходимо растянуть данный компонент по форме, форму развернуть на весь экран и написать представленный код.

procedure TForm1.PaintBox1Paint (Sender: TObject);

var x, y: integer;

begin

with paintbox1.Canvas do

begin

brush.Color:=clred; ellipse(0,0,620,420); font.Name:='arial';

font.Size:=height div 5; font.Style:=[fsbold,fsitalic];

font.Color:=clwhite;

x:=(620 - textwidth('Delphi')) div 2; y:=(420 - textheight('D')) div 2;

textOut(x,y,'Delphi')

end; end;

Задания для самостоятельной работы:

1.По введенным координатам точки А(a1,a2) вывести координатную четверть с ПДСК.

2.Нарисовать домики пейзаж около него.

3.По введенному числу лепестков вывести значение гадания по ромашке «любит» или «не любит».