D
dgf
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to 20 do
begin
for j:=0 to 30 do
begin
Canvas.Pen.Color:=clred;
Canvas.Pen.Width:=2;
Canvas.Brush.Color:=clblue;
Canvas.Rectangle(i,j,i+10,j+10);
end;
end
end;
var
i,j:integer;
begin
for i:=0 to 20 do
begin
for j:=0 to 30 do
begin
Canvas.Pen.Color:=clred;
Canvas.Pen.Width:=2;
Canvas.Brush.Color:=clblue;
Canvas.Rectangle(i,j,i+10,j+10);
end;
end
end;