Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АСОИ, Delphi, много вариантов 2 сем / 1классы / кораблик с флагом / Ukorablic
.pas unit Ukorablic;
interface
uses graphics, Utrapeciya;
type Tkorablic=class(Ttrapeciya)
kolcolor: Tcolor;
constructor create(x0,y0: integer; canvas0: Tcanvas);
Procedure show; override;
Procedure Sdvig(Deltax:integer);
Procedure Podnyat;
Procedure Opystit;
end;
implementation
constructor Tkorablic.create;
begin
inherited create(x0,y0,clBlue,canvas0);
end;
procedure Tkorablic.show;
begin
inherited show;
canvas.Pen.Color:=clBlue;
canvas.Brush.Color:=clBlue;
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
Procedure Tkorablic.Sdvig;
Begin
Inherited Show;
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-110);
canvas.LineTo(x-30, y-60);
canvas.LineTo(x-95, y-20);
canvas.LineTo(x-95, y);
end;
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,clBlack,fsBorder);
end;
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
x:=x+deltax;
Show;
end;
Procedure Tkorablic.Podnyat;
begin
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
canvas.Pen.Color:=clBlue;
canvas.Brush.Color:=clBlue;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-110);
canvas.LineTo(x-30, y-60);
canvas.LineTo(x-95, y-20);
canvas.LineTo(x-95, y);
end;
end;
Procedure Tkorablic.Opystit;
begin
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-110);
canvas.LineTo(x-30, y-60);
canvas.LineTo(x-95, y-20);
canvas.LineTo(x-95, y);
end;
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
end;
end.
interface
uses graphics, Utrapeciya;
type Tkorablic=class(Ttrapeciya)
kolcolor: Tcolor;
constructor create(x0,y0: integer; canvas0: Tcanvas);
Procedure show; override;
Procedure Sdvig(Deltax:integer);
Procedure Podnyat;
Procedure Opystit;
end;
implementation
constructor Tkorablic.create;
begin
inherited create(x0,y0,clBlue,canvas0);
end;
procedure Tkorablic.show;
begin
inherited show;
canvas.Pen.Color:=clBlue;
canvas.Brush.Color:=clBlue;
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
Procedure Tkorablic.Sdvig;
Begin
Inherited Show;
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-110);
canvas.LineTo(x-30, y-60);
canvas.LineTo(x-95, y-20);
canvas.LineTo(x-95, y);
end;
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,clBlack,fsBorder);
end;
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
x:=x+deltax;
Show;
end;
Procedure Tkorablic.Podnyat;
begin
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
canvas.Pen.Color:=clBlue;
canvas.Brush.Color:=clBlue;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-110);
canvas.LineTo(x-30, y-60);
canvas.LineTo(x-95, y-20);
canvas.LineTo(x-95, y);
end;
end;
Procedure Tkorablic.Opystit;
begin
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-110);
canvas.LineTo(x-30, y-60);
canvas.LineTo(x-95, y-20);
canvas.LineTo(x-95, y);
end;
canvas.Brush.Color:=clbtnface;//stiranie pred izobrazen
canvas.Pen.Color:=clbtnface;
with Canvas do begin
canvas.MoveTo(x-95, y);
canvas.LineTo(x-95, y-90);
canvas.LineTo(x-30, y-40);
canvas.LineTo(x-95, y);
end;
end;
end.
Соседние файлы в папке кораблик с флагом