Скачиваний:
11
Добавлен:
15.06.2014
Размер:
1.75 Кб
Скачать
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.
Соседние файлы в папке едюсчий квамоугольник
  • #
    15.06.2014876 б11Project1.res
  • #
    15.06.2014213 б11Project1.~dpr
  • #
    15.06.20145.72 Кб11Unit1.dcu
  • #
    15.06.201451 б11Unit1.ddp
  • #
    15.06.20141.33 Кб11Unit1.dfm
  • #
    15.06.20141.75 Кб11Unit1.pas
  • #
    15.06.201451 б11Unit1.~ddp
  • #
    15.06.20141.33 Кб11Unit1.~dfm
  • #
    15.06.20141.75 Кб12Unit1.~pas
  • #
    15.06.20142.44 Кб11Unit2.dcu
  • #
    15.06.20141.27 Кб11Unit2.pas