Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АСОИ, Delphi, много вариантов 2 сем / 1классы / едюсчий квамоугольник / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
BitBtn1: TBitBtn;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
m,i,n:integer;
implementation
{$R *.dfm}
uses unit2, Clipbrd;
var
mash:Tmash;
okno1:Timage;
pxm1,pym1, xo,yo,ro:word;
procedure TForm1.Button1Click(Sender: TObject);
begin
okno1:=Form1.Image1;
colrBack:=clWhite; // Цвет фона - белый
pxm1:=okno1.ClientWidth; // Считывание размеров окна
pym1:=okno1.ClientHeight;
with okno1.canvas do begin
pen.color:=colrBack;
brush.color:=colrBack;
Rectangle(0,0,Pxm1,Pym1); // Заливка всего окна цветом фона
end;
xo:=0; yo:=0; ro:=0;
mash:=Tmash.Create(xo,yo,ro,clblack,okno1.canvas);
mash.show;
button2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true;
bitbtn1.Show;
button2.Hide;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bitbtn1.Hide;
button2.Hide;
timer1.enabled:=false;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Enabled:=false;
Button2.show;
bitbtn1.Hide;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=true;
mash.MovTo(0,3,0);
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
BitBtn1: TBitBtn;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
m,i,n:integer;
implementation
{$R *.dfm}
uses unit2, Clipbrd;
var
mash:Tmash;
okno1:Timage;
pxm1,pym1, xo,yo,ro:word;
procedure TForm1.Button1Click(Sender: TObject);
begin
okno1:=Form1.Image1;
colrBack:=clWhite; // Цвет фона - белый
pxm1:=okno1.ClientWidth; // Считывание размеров окна
pym1:=okno1.ClientHeight;
with okno1.canvas do begin
pen.color:=colrBack;
brush.color:=colrBack;
Rectangle(0,0,Pxm1,Pym1); // Заливка всего окна цветом фона
end;
xo:=0; yo:=0; ro:=0;
mash:=Tmash.Create(xo,yo,ro,clblack,okno1.canvas);
mash.show;
button2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true;
bitbtn1.Show;
button2.Hide;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bitbtn1.Hide;
button2.Hide;
timer1.enabled:=false;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Enabled:=false;
Button2.show;
bitbtn1.Hide;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=true;
mash.MovTo(0,3,0);
end;
end.
Соседние файлы в папке едюсчий квамоугольник