clip_image002Kreirati aplikaciju u kojoj se po formi iscrtava krug koji dodiruje sve četiri ivice forme. Preko spinedit kontrole se povećava broj krugova koji se iscrtavaju tako da se svi krugovi vide na formi. Svaki krug je različite boje.

(širina i visina forme moraju biti iste, spinedit min=1, value=1)

 

 

 

 

 

 

 

clip_image006clip_image004

Kod:

var

Form3: TForm3; n:integer;

implementation uses unit1;

{$R *.dfm}

procedure TForm3.FormPaint(Sender: TObject);

var x1,y1,x2,y2,i,a,b:integer;

begin

randomize;

n:=spinedit1.Value;

a:=clientwidth;

b:=round(a/n);

x1:=0;y1:=0;x2:=x1+b;y2:=y1+b;

for i := 1 to n do

begin

canvas.brush.color:=rgb(random(255),random(255),random(255));

canvas.Ellipse(x1,y1,x2,y2);

x1:=x2;x2:=x1+b;

end;

end;

procedure TForm3.SpinEdit1Change(Sender: TObject);

begin

refresh;

end;

end.

Advertisements