Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АСОИ, Delphi, много вариантов 2 сем / 1классы / грузовик самосвал / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls,ExtCtrls,USam,UGruz, Buttons;
type
TForm1 = class(TForm)
Button1: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Sam1,SamActiv:Tsam;
Gruz1:TGruz;
Fill:boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button3.Caption:='Погрузить';
fill:=false;
Edit1.clear;
Edit2.Clear;
Edit1.text:='10';
Edit2.text:='0';
Sam1:=Tsam.Create(100,150,Fill,Form1.Canvas);
SamActiv:=Sam1;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Sam1.show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
samActiv.Move(StrToInt(Edit1.text),StrToInt(Edit2.Text));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Fill=false then begin
fill:=true;
Button3.Caption:='Опрокинуть';
Sam1.Full
end
else begin
fill:=false;
Button3.Caption:='Погрузить';
SamActiv.oprokinut
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SamActiv.normalKuz
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Sam1.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls,ExtCtrls,USam,UGruz, Buttons;
type
TForm1 = class(TForm)
Button1: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Sam1,SamActiv:Tsam;
Gruz1:TGruz;
Fill:boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button3.Caption:='Погрузить';
fill:=false;
Edit1.clear;
Edit2.Clear;
Edit1.text:='10';
Edit2.text:='0';
Sam1:=Tsam.Create(100,150,Fill,Form1.Canvas);
SamActiv:=Sam1;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Sam1.show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
samActiv.Move(StrToInt(Edit1.text),StrToInt(Edit2.Text));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Fill=false then begin
fill:=true;
Button3.Caption:='Опрокинуть';
Sam1.Full
end
else begin
fill:=false;
Button3.Caption:='Погрузить';
SamActiv.oprokinut
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SamActiv.normalKuz
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Sam1.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
Соседние файлы в папке грузовик самосвал