Page 26 - 6370

Рисунок 19 - Відображення вертикальних і
горизонтальних ліній у вікні застосунку

12. Встановлюють на форму нову кнопку Button3 і
надають її властивості сaption значення <сітка колон>.
Подвійним клацанням запрограмовують подію
Button3Click, в якій поки що йдеться про відображення
тільки однієї колони квадратного перерізу 40х40 пікселів,
червоного забарвлення і з координатами своєї верхньої
лівої точки – 30,30.

procedure TForm2.Button3Click(Sender:
TObject);

var r:TRect; l, t, a: integer;

begin

a:=40;

l:=30;

t:=30;

r.Left:=l;

r.Top:=t;
28