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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
soldat: Tsoldat;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
colrBack:=clwhite;
soldat:=Tsoldat.Create(100,100,150,200, clgreen, Image1.Canvas);
soldat.MoveTo(1,1);
end;

procedure TForm1.Button2Click(Sender: TObject); //vl-verh
begin
soldat.MoveTo(-5,-5);
if soldat.x1 < 10 then soldat.MoveTo(5,0);
if soldat.y1 < 20 then soldat.MoveTo(0,5);
end;

procedure TForm1.Button5Click(Sender: TObject); //vlevo
begin
soldat.MoveTo(-5,0);
if soldat.x1 < 10 then soldat.MoveTo(5,0);
end;

procedure TForm1.Button8Click(Sender: TObject); //vl-vniz
begin
soldat.MoveTo(-5,5);
if soldat.x1 < 10 then soldat.MoveTo(5,0);
if soldat.y2 > image1.Height-30 then soldat.MoveTo(0,-5);
end;

procedure TForm1.Button3Click(Sender: TObject); //verh
begin
soldat.MoveTo(0,-5);
if soldat.y1 < 20 then soldat.MoveTo(0,5);
end;

procedure TForm1.Button9Click(Sender: TObject); //vniz
begin
soldat.MoveTo(0,5);
if soldat.y1 > image1.Height-30 then soldat.MoveTo(0,-5);
end;

procedure TForm1.Button4Click(Sender: TObject); //vpr-verh
begin
soldat.MoveTo(5,-5);
if soldat.x1 > image1.Width-10 then soldat.MoveTo(-5,0);
if soldat.y1 < 20 then soldat.MoveTo(0,5);
end;

procedure TForm1.Button7Click(Sender: TObject); //vpravo
begin
soldat.MoveTo(5,0);
if soldat.x1 > image1.Width-10 then soldat.MoveTo(-5,0);
end;

procedure TForm1.Button10Click(Sender: TObject); //vpr-niz
begin
soldat.MoveTo(5,5);
if soldat.x1 > image1.Width-10 then soldat.MoveTo(-5,0);
if soldat.y2 > image1.Height-30 then soldat.MoveTo(0,-5);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
soldat.odtches;
if soldat.ches then button6.Caption:='Вольно!'
else button6.Caption:='Отдать честь!'
end;

end.