Page 70 - 6370

Рисунок 48–Відображення на об’єкті класу TImage
трикутника побудованого за точками (10,10), (171,24),
(87,167) . Тло об’єкта співпадає з фоном форми.

13. Якщо у коді процедури здійснити зміни серед
констант в такий спосіб:
const L:array [0..3] of
integer=(171,87,45,78) ;

const t:array [0..3] of
integer=(24,167,34,90) ;

тобто долучити ще по два члени масиву, то все одно
результат події буде таким самим, як на рисунку 48.
Адже процедурою figure_point передбачена побудова
окрім першої точки, ще тільки двох інших точок з
відповідних масивів.

14. Якщо доповнити процедуру figure_point ще двома
точками масиву (нижче вони підкреслені):

(Sender as TImage).Canvas.moveto(a,b);
(Sender as
TImage).Canvas.lineto(x[0],y[0]);
72