Page 28 - 6370

написані кодові рядки спеціально для наочності є у
підпрограмі підкреслені.

procedure TForm2.Button3Click(Sender:
TObject);
var r:TRect; l,t,a, k: integer; g:
array [1..5] of integer;

I: Integer;
begin

k:=100;
a:=40;
l:=30;

t:=30;

for i:= 1 to 5 do begin
r.Left:=l;
r.Top:=t;

r.Right:=l+a;
r.Bottom:=t+a;

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

g[i]:=l+k;
l:=g[i];

end;
end;

15. Запускають команду RUN і клацають по кнопці <сітка
колон>. В результаті отримують відображення
горизонтального ряду із п’яти червоних квадратів
(рисунок 21), які перекривають координатну сітку,
30