Page 29 - 6370

оскілька та будується під-час виконання події OnPaint,
тобто до події пов’язаної з клацанням по кнопці Button3.
Процедурою Button3Click повторно викликають подію
OnPaint, тому що в тілі підпрограми є звернення до
властивості canvas, а значить відбувається
перемальовування і координатної сітки, і сітки колон. В
той же час кнопки є об’єктами, а об’єкти завжди
візуалізуються чи рухаючись перевізуалізовуються у
викликаній події OnPaint, але це відбувається після
попередньої візуалізації об’єкта класу TForm .

Рисунок 21 - Відображення горизонтального ряду колон
квадратного перерізу.

16. Доопрацьовують код процедури Button3Click з метою
створення – сітки 5х3 колон. Для цього створюють ще
один масив v: array [1..3] of integer і опрацьовують цикл у
циклі. Новодолучені фрагменти підпрограми – підкреслені.

procedure TForm2.Button3Click(Sender:
TObject);

var r:TRect; l,ri,t,b,a,k: integer; g:
array [1..5] of integer;

v: array [1..3] of integer;
I,j: Integer;
31