Page 87 - 6370

ТSpinEdit встановлюються координати трикутника АВС,
що будується за допомогою мишки, тобто побудованого в
процесі виконання події FormMouseUp :

SpinEdit1.Value:=x1;

SpinEdit3.Value:=y1;
SpinEdit2.Value:=x2;

SpinEdit4.Value:=y2;
SpinEdit7.Value:=xc;
SpinEdit8.Value:=yc;

7. Примітка : координати точки А – x1,y1 це глобальні
змінні, значення яким надано у події FormMouseUp
(частина 6, пункт7).

8. Включають виконання застосунку (F9) і будують
трикутник за допомогою мишки (рисунок 61):

Останнє клацання відбувається околі першої точки, тому
останній запис у об’єкті класу TMemo співпадає з
координатами першої точки x1,y1.

9. Клацають по кнопці Button7, для того щоб здійснити
перезапис координат із обєктів класу TListbox у пам'ять
(тобто у масиви xa, ya) і далі клацають по кнопці Button1 ,
щоб показати координати у відповідних об’єктах класу
ТSpinEdit (рисунок 62).

89