Odpovede na písomku
Procedúra pre vykreslenie 5-tich sústredných kruhov:
procedure TForm1.Button1Click(Sender: TObject);
var x,y,i,r:integer;
begin
x:= Image1.Width div 2;
y:= Image1.Height div 2;
r:=100;
for i:=1 to 5 do
begin
Image1.Canvas.Pen.Color:=random(256*256*256);
Image1.Canvas.Ellipse(x-r,y-r,x+r,y+r);
r:=r-10;
end;
end;
Procedúra pre vykreslenie 5-tich štvorcov na náhodnej pozícii:
procedure TForm1.Button1Click(Sender: TObject);
var i,x,y:integer;
begin
Image1.Canvas.Pen.Color:=clBlack;
for i:=1 to 5 do
begin
x:=random(Image1.Width);
y:=random(Image1.Height);
Image1.Canvas.Brush.Color:=random(256*256*256);
Image1.Canvas.Rectangle(x,y,x+30,y+30);
end;
end;
Procedúra pre vypísanie 5-tich textov na náhodnej pozícii:
procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
randomize;
for i:=1 to 5 do
begin
x:=random(Image1.Width);
y:=random(Image1.Height);
Image1.Canvas.Font.Color:=random(256*256*256);
Image1.Canvas.TextOut(x,y,'AHOJ');
end;
end;