Page 71 - 6370

(Sender as
TImage).Canvas.lineto(x[1],y[1]);

(Sender as
TImage).Canvas.lineto(x[2],y[2]);
(Sender as
TImage).Canvas.lineto(x[3],y[3]);
(Sender as TImage).Canvas.lineto(a,b);
//

то у результаті виконання події буде збудована інша
фігура – багатокутник на п’ять точок (рисунок 49).

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

14. Переписують процедуру figure_point з метою надання
можливості її використання для побудови багатокутників з
n - кількістю вершин.
73