Создать проект, который позволяет нарисовать по заданным трем точкам треугольник, вычислить его периметр и площадь. Ввод координат вершин треугольника осуществлять щелчками по графическому полю. Вывод координат вершин треугольника осуществлять методом рисования текста в графическом поле.

1. Поместить на форму (рис. 4.41):

• графическое поле Image1, которое будет использоваться в качестве области рисования;
• две надписи Label1 и Label2 для вывода периметра и площади треугольника;
• две надписи для вывода поясняющих текстов;
• меню MainMenu1 для создания меню проекта.

2. Объявить переменные, которые будут содержать координаты вершин треугольника, длины его сторон, а также периметр и площадь.

var
X1,Y1,Х2,Y2,ХЗ,Y3: integer;
L1,L2,L3,Р,S: single;

3. Создать программный код обработчика события, который обеспечивает запоминание координат щелчков левой, правой и средней кнопками мыши по графическому полю. Использовать три оператора ветвления, которые в зависимости от условия (значения аргумента обработчика события Button) запоминают ту или иную пару координат.

procedure TForml.ImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
if Button = mbLeft
Then
begin
X1:=X;
Y1:=Y;
end;
if Button = mbRight
Then
begin
X2:=X;
Y2:=Y;
end;
if Button = mbMiddle
Then
begin
X3:=X;
Y 3:=Y;
end;
end;

Создадим меню графического редактора, для чего используем элемент управления MainMenu1:

Треугольник

Нарисовать

Периметр

Площадь

Очистить

4. Разместить на форме элемент управления MainMenu1.

5. В появившемся в левом верхнем углу формы в редакторе меню создать заголовок первого уровня. В поле Прототип для текста внести пункт меню Треугольник.

6. Для создания пункта меню перейти на следующую строку в редакторе меню. Ввести пункты меню Нарисовать, Периметр, Площадь и Очистить.

7. В обработчике события пункта меню Нарисовать вывести значения координат его вершин и нарисовать стороны треугольника, соединив координаты вершин прямыми линиями.

procedure TForml.N2Click(Sender: TObject);
begin
With Imagel.Canvas Do
begin
Pen.Width := 3;
MoveTo(X1,Y1);
LineTo(X2,Y2);
LineTo(X3,Y3);
LineTo(X1,Y1);
Imagel.Canvas.Font.Name :='Arial';
Imagel.Canvas.Font.Size := 10;
Imagel.Canvas.TextOut(X1,Y1,IntToStr(X1)+','+ IntToStr(Y1));
Imagel.Canvas.TextOut(X2,Y2,IntToStr(X2)+',1+ IntToStr(Y2));
Imagel.Canvas.TextOut(X3,Y3,IntToStr(X3)+','+
IntToStr(Y3));
end;
end;

Следующая страница Проект «Треугольник». Создание обработчиков событий

Cкачать материалы урока

Уроки 114 - 120§4.13. Графика в объектно-ориентированных языках программирования

Содержание урока

4.13.1. Графика в языках программирования Visual Basic .NET, Visual C# и Visual J#

4.13.2. Графика в языке программирования Turbo Delphi

4.13.3. Компьютерная и математическая системы координат

4.13.4. Анимация

4.13.2. Графика в языке программирования Turbo Delphi

Проект «Треугольник»

Создание графического интерфейса проекта на языке Turbo Delphi

Уроки 114 - 120
§4.13. Графика в объектно-ориентированных языках программирования