Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АСОИ, Delphi, много вариантов 2 сем / 1классы / Квадратные лица / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,UKVAD,UFACE;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
RadioGroup1: TRadioGroup;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
KVAD1: TKVAD;
FACE1,FACE2,FaceActiv: TFACE;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
KVAD1:=TKVAD.Create(180,40,25,clBlue,Form1.Canvas);
FACE1:=TFACE.Create(40,40,Form1.Canvas);
FACE2:=TFACE.Create(110,40,Form1.Canvas);
FaceActiv:=FACE1;
Edit1.Clear;
Edit2.Clear;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
FACE1.Show;
FACE2.Show;
KVAD1.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
KVAD1.Move(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
FaceActiv.Move(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
FaceActiv.Levo;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
FaceActiv.Pravo;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
FaceActiv.NormEyes;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
If RadioGroup1.ItemIndex=0
then FaceActiv:=FACE1
else FaceActiv:=FACE2;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
KVAD1.Free;
FACE1.Free;
FACE2.Free;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,UKVAD,UFACE;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
RadioGroup1: TRadioGroup;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
KVAD1: TKVAD;
FACE1,FACE2,FaceActiv: TFACE;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
KVAD1:=TKVAD.Create(180,40,25,clBlue,Form1.Canvas);
FACE1:=TFACE.Create(40,40,Form1.Canvas);
FACE2:=TFACE.Create(110,40,Form1.Canvas);
FaceActiv:=FACE1;
Edit1.Clear;
Edit2.Clear;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
FACE1.Show;
FACE2.Show;
KVAD1.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
KVAD1.Move(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
FaceActiv.Move(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
FaceActiv.Levo;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
FaceActiv.Pravo;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
FaceActiv.NormEyes;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
If RadioGroup1.ItemIndex=0
then FaceActiv:=FACE1
else FaceActiv:=FACE2;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
KVAD1.Free;
FACE1.Free;
FACE2.Free;
end;
end.