clip_image002Kreirati aplikaciju u kojoj se na formi iscrtava krug proizvoljnog prečnika, prislonjen na donju ivicu forme. Preko jednog spinedit-a se povećava broj krugova, svaki sledeći krug se iscrtava iznad prethodnog, udaljen za određeni razmak. Razmak između krugova se zadaje preko drugog spinedit-a. Svaki krug je druge boje.

 

 

 

clip_image004

Kod:

var

Form3: TForm3;

implementation uses unit1;

{$R *.dfm}

procedure TForm3.FormPaint(Sender: TObject);

var i,n,x1,y1,x2,y2,r:integer; boja:Tcolor;

begin

randomize;

r:=spinedit2.Value;

n:=spinedit1.Value;

x1:=round(clientwidth/2) -100;

y1:=clientheight-100;

x2:=x1+100;

y2:=y1+100;

for i:=1 to n do

begin

// canvas.Brush.Color:=rgb(random(255),random(255),random(255));

boja:= rgb(random(255),random(255),random(255));

canvas.Brush.Color:=boja;

canvas.Pen.Color:=boja;

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

y1:=y1-r;

y2:=y2-r;

end;

end;

procedure TForm3.SpinEdit1Change(Sender: TObject);

begin

refresh;

end;

procedure TForm3.SpinEdit2Change(Sender: TObject);

begin

refresh;

end;

end.

Advertisements