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

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit2, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Timer1: TTimer;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a : TKorabl;
var x,y,x1,y1,x2,y2,y3 : integer;
bl,bl2 : boolean;
flag:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
x := 100;
y3 := 50;
x1 := 145;
x2 := 165;
y1 := 50;
y2 := 65;
flag:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a := TKorabl.create(x,y3,x1,y1,x2,y2,clblack,image1.canvas);
a.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
bl := true;
timer1.Enabled := true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
bl := false;
timer1.Enabled := true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
timer1.Enabled := false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
flag:=1;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
flag:=2;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var h,l : integer;
begin
h := Image1.Height;
l := Image1.Width;
with image1.Canvas do
begin
pen.Color := clwhite;
brush.Color := clwhite;
rectangle(0,0,l,h);
end;
a := TKorabl.create(x,y3,x1,y1,x2,y2,clblack,image1.canvas);
if bl = true then
begin
inc(x);
inc(x1);
inc(x2);
end
else
begin
dec(x);
dec(x1);
dec(x2);
end;

if (flag=1) and ((y3)<=80) then
y3:=y3+1
else if (flag=2) and (y3>=50)
then y3:=y3-1
else flag:=0;

a.show;
end;





procedure TForm1.Timer2Timer(Sender: TObject);
var h,l : integer;
begin // зарисовка окна белым цветом после каждого таймера
h := Image1.Height;
l := Image1.Width;
with image1.Canvas do
begin
pen.Color := clwhite;
brush.Color := clwhite;
rectangle(0,0,l,h);
end;

if bl2 = true then
if y2 <>y then
begin
inc(y1);
inc(y2);
end;
if bl2 = false then
if y1 <> y - 50 then
begin
dec(y1);
dec(y2);
end;
if (flag=1) and ((y3)<=80) then
y3:=y3+1
else if (flag=2) and (y3>=50)
then y3:=y3-1
else flag:=0;
a := TKorabl.create(x,y,x1,y1,x2,y2,clblack,image1.canvas);
a.show;
end;

end.