АСОИ, Delphi, много вариантов 2 сем / 1классы / кораблик с флагом / Utrapeciya

unit Utrapeciya;

interface
uses graphics;

type Ttrapeciya=class(Tobject)
x,y: integer;
color: Tcolor;
canvas: Tcanvas;
constructor create(x0,y0: integer; color0: Tcolor; canvas0: Tcanvas);
procedure move(deltax: integer);
procedure show; virtual;
end;

implementation

constructor Ttrapeciya.create;
begin
inherited create;
x:=x0;
y:=y0;
color:=color0;
canvas:=canvas0;
end;

procedure Ttrapeciya.show;
begin
canvas.Pen.Color:=clBlack;
canvas.Brush.Color:=color;
with Canvas do begin
moveto(x,y);
lineto(x-40,y+60);
lineto(x-130,y+60);
lineto(x-175,y);
lineto(x,y);
Floodfill(x-80,y+40,clBlack,fsBorder);
end;
end;

procedure Ttrapeciya.move;
begin
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
moveto(x,y);
lineto(x-40,y+60);
lineto(x-130,y+60);
lineto(x-175,y);
lineto(x,y);
Floodfill(x-80,y+40,clbtnface,fsBorder);
end;
x:=x+deltax;
show;

end;

end.