Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit2;
- interface
- uses Unit1;
- type
- TCircle=class
- private
- x,y,r:integer;
- public
- constructor create;overload;
- constructor create(ax,ay,ar:integer);overload;
- procedure SetR(ar:integer);
- procedure SetXY(ax:integer; ay:integer);
- function getx:integer;
- function gety:integer;
- function getr:integer;
- procedure moveto(ax,ay:integer);
- procedure show;
- end;
- implementation
- constructor tcircle.create;
- begin
- x:=0;y:=0;r:=0;
- end;
- constructor tcircle.create(ax: Integer; ay: Integer; ar: Integer);
- begin
- //inherited Create (ax,ay, ar);
- //x:=ax;y:=ay;
- r:=ar;
- end;
- function tcircle.getx:integer;
- begin
- result:= (inherited x);
- end;
- function tcircle.gety:integer;
- begin
- result:=y;
- end;
- function tcircle.getr:integer;
- begin
- result:=r;
- end;
- procedure tcircle.show;
- begin
- form1.image1.canvas.ellipse(x-r,y-r,x+r,y+r);
- end;
- procedure tcircle.moveto(ax: Integer; ay: Integer);
- begin
- show;
- x:=x+ax;
- y:=y+ay;
- show;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement