Упражнение 4

Создайте приложение, которое рисует пером домик.

Создайте форму и задайте для ее свойства Caption значение «Рисунок домика». Поместите в верхнюю часть формы компонент Image1 из палитры Additional. Ниже Image1 на форме разместите компонент Button1 из палитры Standard и задайте для его свойства Caption значение «Нарисовать».

Рисование пером графика функции опишите в процедуре обработчика щелчка мышью на кнопке Button1. Для этого, выбрав в окне Инспектора объектов Buttonl, на странице Events произведите двойной щелчок на пустом поле списка в событии OnClick.

Так как в процедуре обработчика события необходимо обрабатывать свойства Pen, Font, а также использовать методы LineTo, MoveTo, TextOut, Arc, Chord, Ellipse, Pie, PolyBezier, PolyBezierTo, Polygon, Polyline, Rectangle, RoundRect, вам следует ознакомиться с соответствующими разделами справочной системы Delphi.

После этого в окне Редактора кода отредактируйте текст процедуры обработчика события TForml.ButtonlClick следующим образом:

procedure TForml.ButtonlClick(Sender: TObject);
begin
with Imagel.Canvas do begin
Pen.Width:=1; {задать толщину пера для рисования}
Pen.Color:=clBlack; {задать черный цвет линии}
MoveTo(0,200);
LineTo(Imagel.Width,200); {начертить поверхность земли}
MoveTo(100,200);
Rectangle(100,100,220,200); {стены}
MoveTo(100,200);
Polyline([Point(100,100),Point(160,50),Point(220,100)]); {крыша}
Ellipse(140,70, 180,90); {окошко на чердаке}
Rectangle( 115,130,150,200); {дверь}
Rectangle(165,130.205,165); {окно}
Font.Size:=16; {задать размер шрифта в пунктах}
Text0ut(140,220,’Домик’); {подписать рисунок}
end;
end;

Изучите текст процедуры и комментарии. Сохраните текст приложения, откомпилируйте его и проверьте его работу.

Добавить комментарий