АСОИ, Delphi, много вариантов 2 сем / 1классы / вращение круга и перемещение колеса / UKRUG

unit UKRUG;

interface
uses Graphics;
type TKrug=class(TObject)
X,Y,R:integer;
Color:TColor;
Canvas:TCanvas;
Constructor Create(X0,Y0,R0:integer;Color0:TColor;Canvas0:TCanvas);
Procedure Move(DeltaX,DeltaY:integer);
Procedure Show;virtual;
end;
implementation
Constructor TKrug.Create;
Begin
Inherited Create;
X:=X0;
Y:=Y0;
R:=R0;
Color:=Color0;
Canvas:=Canvas0;
end;
Procedure TKrug.Show;
Begin
Canvas.Pen.Color:=clBlack;
Canvas.Brush.Color:=Color;
Canvas.Ellipse(X-R,Y-R,X+R,Y+R);
end;
Procedure TKrug.Move;
Begin
Canvas.Brush.Color:=clSkyBlue; //стирание предыдущего изображения
Canvas.Pen.Color:=clSkyBlue;
Canvas.Ellipse(X-R,Y-R,X+R,Y+R);
X:=X+DeltaX;
Y:=Y+DeltaY;
end;
end.