Подскажите что где на рисунке size - Delphi - Ответ 2342902

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
TFigure=class
public
  x, y, size, dx, MaxSize: integer;
  Canvas: TCanvas;
Constructor Create(_x, _y, _size, _MaxSize, _dx: integer; _Canvas: TCanvas);
destructor Destroy; override;
procedure Show;
procedure Hide;
procedure Move;
 
end;
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    Figure:TFigure;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TFigure }
 
constructor TFigure.Create(_x, _y, _size, _MaxSize, _dx: integer; _Canvas: TCanvas);
begin
  inherited Create;
  x:= _x;
  y:= _y;
  size:= _size;
  MaxSize:= _MaxSize;
  dx:= _dx;
  Canvas:= _Canvas;
  Show;
end;
 
destructor TFigure.Destroy;
begin
  Hide;
  inherited Destroy;
end;
 
procedure TFigure.Hide;
begin
  Canvas.Pen.Color:= clWhite;
  Canvas.Brush.Color:= clWhite;
  Canvas.Rectangle(x - size div 2, y - size div 2, x + size div 2, y + size div 2);
end;
 
procedure TFigure.Move;
var
  Temp: integer;
begin
  Hide;
  Temp:= x - dx;
  if Temp < size div 2 then
    dx:= -dx;
  if Temp > MaxSize - size div 2 then
    dx:= -dx;
  x:= x - dx;
  Show;
end;
 
procedure TFigure.Show;
var
  Mas: array [0..3] of TPoint;
begin
  Canvas.Pen.Color:=clBlack;
  Canvas.Brush.Color:=clBlue;
  Canvas.Rectangle(x - size div 3,y - size div 3,x + size div 3, y + size div 3);
  Canvas.Pen.Color:=clBlack;
  Canvas.Brush.Color:=clWhite;
  Canvas.Ellipse(x - size div 2 + size div 5, y - size div 2 + size div 5, x + size div 2 - size div 5, y + size div 2 - size div 5);
  Mas[0].X:= x;
  Mas[0].Y:= y - size div 5;
  Mas[1].X:= x + size div 5;
  Mas[1].Y:= y;
  Mas[2].X:= x;
  Mas[2].Y:= y + size div 5;
  Mas[3].X:= x - size div 5;
  Mas[3].Y:= y;
  Canvas.Pen.Color:=clBlack;
  Canvas.Brush.Color:=clRed;
  Canvas.Polygon(Mas);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Figure:=TFigure.Create(Image1.ClientWidth div 2, Image1.ClientHeight div 2, Image1.ClientWidth div 3, Image1.ClientWidth, 3, Image1.Canvas); Timer1.Enabled:= true;
  Timer1.Enabled:= True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Figure.Move;
end;
 
end.