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

Тема: Работа с графикой в среде Lazarus

Цель: Знакомство с возможностями создания графических объектов посредством среды разработки программного обеспечения Lazarus.

Задание:

1) Нарисовать в объекте TImage треугольник, одна сторона которого черная, другая красная и третья - синяя.
2) Создать программу рисующую треугольник, координаты вершин которого можно изменять через пользовательский интерфейс.

Алгоритм:


Программа:


Код программы:

procedure TForm1.Button1Click(Sender: TObject);
var ax, ay, bx, by, cx, cy:integer;
begin
ax:= StrtoInt(Edit1.Text);
ay:= StrtoInt(Edit2.Text);
bx:= StrtoInt(Edit3.Text);
by:= StrtoInt(Edit4.Text);
cx:= StrtoInt(Edit5.Text);
cy:= StrtoInt(Edit6.Text);
Image1.Canvas.Rectangle(0, 0, 500, 500);
Image1.Canvas.MoveTo(ax,ay);
Image1.Canvas.pen.Color := clblue;
Image1.Canvas.LineTo(bx,by);
Image1.Canvas.pen.Color := clred;
Image1.Canvas.LineTo(cx,cy);
Image1.Canvas.pen.Color := clgreen;
Image1.Canvas.LineTo(ax,ay);
end;