zadatak:

kreirati aplikaciju u kojoj se po formi iscrtava pravougaonik, a zatim se po pravougaoniku iscrtavaju izabrane šare (kvadrati ili krugovi). Unose se koordinate gornjeg levog ugla pravougaonika, kao i širina i visina pravougaonika (preko input boksa).

image

pravougaonik širine 400, visine 60, šare krugovi:

image

kod:

var
  Form3: TForm3;  var x1,x2,a,b,y1,y2,n,m:integer;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
    x1:=strtoint(inputbox(‘gornji levi ugao’,’unesi prvu koordinatu’,“));
    y1:= strtoint(inputbox(‘gornji levi ugao’,’unesi drugu koordinatu’,“));
    a:=   strtoint(inputbox(‘dimenzije pravougaonika’,’unesi širinu pravougaonika’,“));
    b:=   strtoint(inputbox(‘dimenzije pravougaonika’,’unesi visinu pravougaonika’,“));
    x2:=x1+a;
    y2:=y1+b;
    canvas.Rectangle(x1,y1,x2,y2);
    n:=a div 10;

end;

procedure TForm3.RadioGroup1Click(Sender: TObject);
var i,q,w,e,r:integer;
begin
q:=x1;
w:=y1+b div 2-5;
e:=x1+10;
r:=w+10;
case radiogroup1.ItemIndex of
0: begin
refresh; canvas.Rectangle(x1,y1,x2,y2);
for I := 0 to n-1 do  begin
       canvas.Rectangle(q,w,e,r);
       q:=e;  e:=q+10;
end;
end;
1: begin
refresh;    canvas.Rectangle(x1,y1,x2,y2);
for I := 0 to n-1 do  begin
       canvas.ellipse(q,w,e,r);
       q:=e;  e:=q+10;
end;
end;
end;
end;

end.

Advertisements