Page 68 - 6370

результат події OnClick кнопки Button4 буде
відрізнятисявід того що на рисунку 45, тільки тим, що
побудова почнеться з точки (0,0), (рисунок 46).

Рисунок 46 – Відображення на об’єкті класу TImage
0
прямої нахиленої під куом 45 .
8. Створюють опрацювання події клацання по кнопці
Button4 на новий лад, тобто конкретизують кількість
членів масивів і їх значення:

procedure TForm3.Button4Click(Sender:
TObject);
const L: array [0..1] of integer=(171,87)
;
const R: array [0..1] of integer=(24,167)
;
begin

figure_point(Image1,10,10,l,r);
end;

9. Запускають командою Run цю підпрограму, не
забуваючи перед тим проконтролювати, щоб процедура
figure_point мала вигляд, як у пункті 3.

70