Odpovede na písomku

16.01.2012 19:55

 

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;                                                                            


Vytvorte si web stránku zdarma! Webnode