Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АСОИ, Delphi, много вариантов 2 сем / 1классы / korabl / Unit2
.pas Unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs , ExtCtrls, StdCtrls;
type
TKorabl=class(tobject)
x1,x2,y1,y2,x,y:integer;
Color:Tcolor;
Canvas:Tcanvas;
procedure show;
constructor create (Xa,Ya,X1a,Y1a,X2a,Y2a:integer;mycolor:Tcolor;mycanvas:tcanvas);
end;
implementation
procedure Tkorabl.show;
begin
with canvas do
begin
pen.Color := clred;
brush.Color := clred;
Canvas.Rectangle(X1,Y1,X2+50,Y2+20);
pen.Color := clgreen;
brush.Color := clgreen;
Canvas.Rectangle(X1+20,Y1-40,X1+30,Y1);
Canvas.Ellipse(X1+30,Y-40,X1+40,Y-30);
end;
end;
constructor TKorabl.Create;
begin
x1:=X1a;
x2:=X2a;
y1:=Y1a;
y2:=Y2a;
x:=Xa;
y:=Ya;
Color:=mycolor;
Canvas:=mycanvas;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs , ExtCtrls, StdCtrls;
type
TKorabl=class(tobject)
x1,x2,y1,y2,x,y:integer;
Color:Tcolor;
Canvas:Tcanvas;
procedure show;
constructor create (Xa,Ya,X1a,Y1a,X2a,Y2a:integer;mycolor:Tcolor;mycanvas:tcanvas);
end;
implementation
procedure Tkorabl.show;
begin
with canvas do
begin
pen.Color := clred;
brush.Color := clred;
Canvas.Rectangle(X1,Y1,X2+50,Y2+20);
pen.Color := clgreen;
brush.Color := clgreen;
Canvas.Rectangle(X1+20,Y1-40,X1+30,Y1);
Canvas.Ellipse(X1+30,Y-40,X1+40,Y-30);
end;
end;
constructor TKorabl.Create;
begin
x1:=X1a;
x2:=X2a;
y1:=Y1a;
y2:=Y2a;
x:=Xa;
y:=Ya;
Color:=mycolor;
Canvas:=mycanvas;
end;
end.