Page 25 - 6370
P. 25
10. Доповнюють програмний код обробника події
FormPaint фрагментами, що стосуються відображення
горизонтальних ліній - вони підкреслені у нижче
наведеному програмному тексті.
procedure TForm2.FormPaint(Sender:
TObject);
var i,d,x, y , n:integer;
begin
n:=10;
x:=trunc(width/n);
y:=x;
d:=x;
for i:= 1 to n do
begin
with canvas do
begin
moveto(x,0);
lineto(x,height);
moveto(0,y);
lineto(width,y);
y:=y+d;
x:=x+d;
end; end; end;
11. Запускають прикладну програму і спостерігають за
створенням сітки з горизонтальних та вертикальних ліній
(рисунок 19).
27
