АСОИ, Delphi, много вариантов 2 сем / 1классы / Квадратные лица / UKVAD

unit UKVAD;

interface

uses Graphics;

Type TKVAD=class(TObject)
x,y,a:integer;
Color:TColor;
Canvas:TCanvas;
Constructor Create(x0,y0,a0:integer;Color0:TColor;Canvas0:TCanvas);
procedure Move(Deltax,Deltay:integer);
procedure Show; virtual;
end;

implementation

Constructor TKVAD.Create;
begin
Inherited Create;
x:=x0; y:=y0; a:=a0; Color:=Color0; Canvas:=Canvas0;
end;

procedure TKVAD.Show;
begin
Canvas.Pen.Color:=ClBlue;
Canvas.Brush.Color:=Color;
Canvas.Rectangle(x-a,y+a,x+a,y-a);
end;

procedure TKVAD.Move;
begin
Canvas.Brush.Color:=clBtnFace;
Canvas.Pen.Color:=clBtnFace;
Canvas.Rectangle(x-a,y+a,x+a,y-a);
x:=x+Deltax;
y:=y+Deltay;
Show
end;
end.