Page 90 - 6370

12. Клацають по кнопці Button3 і автоматично отримують
значення координат точки С після її повороту на кут a
0
=34 навколо базової точки А – xc1 i yc1 (рисунок 64).
13. Розміщають на вікні форми ще одну кнопку Button8
для копіювання зображного на формі трикутника у поле
Image2.

Рисунок 64 – Отримання значення координат xc1 i yc1.
14. Створюють процедуру опрацювання події клацання по
кнопці Button8 .

procedure TForm3.Button8Click(Sender:
TObject);
var l: array [0..1] of integer; t: array
[0..1] of integer;

begin
{ перенесення значення координат X, Y точок
трикутника зображеного на формі у відповідні значення
членів масивів координат точок трикутника, що має бути
відображений на об’єкті Image2}

l[0]:=xa[1];

l[1]:=xa[2];

92