Page 73 - 6370
P. 73
begin
Image1.Canvas.Brush.Color := Color;
Image1.Canvas.FillRect(Image1.Canvas.ClipR
ect);
figure_point (Image1,10,10,3,l,t);
{ перша вершина з координатами (10,10) і чотири
наступні вершини [0..3] з координатами вказаними в
розділі оголошення констант.}
end;
16.Запускають підпрограму і клацають по кнопці Button4.
В результаті отримують зображення, таке ж як на рисунку
49.
Приклад № 6
75
