Лабораторная работа № 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;

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

Тема: Введение. Знакомство с интегрированной средой Lazarus
Цель: Знакомство с интегрированной средой разработки программного обеспечения Lazarus. Создание нового проекта. Знакомство с объектами формы Button, TextBox, Label, PictureBox.
Задание: Создать простейший пользовательский интерфейс, для программы сложения двух чисел (a + b = c). Написать процедуру обработки события - щелчок по кнопке - сложение двух чисел. Подробнее...

Алгоритм:

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