Page 27 - 6370

r.Right:= l+a;

r.Bottom:= t+a;

canvas.Brush.Color:=clred;
canvas.Rectangle(r);

end;

13. Запускають команду RUN і клацають по цій кнопці. В
результаті отримують відображення червоної колони
(рисунок 20) на вікні прикладної програми.

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

14. Доповнюють вище наведений програмний код
фрагментами, які зумовлюватимуть появу
горизонтального ряду колон. Для цього вводять поняття
кроку k між колонами і відразу надають значення цій
величині – 100 пікселів. Дооголошують змінну g: array
[1..5] of integer, яка уможливлюватиме побудову
однорядного масиву із п’яти колон. Завдяки циклу, тіло
якого обведене у рамку, отримують зазначений масив –
горизонтальний ряд із п’яти квадратних фігур. Свіжо

29