Скачиваний:
10
Добавлен:
15.06.2014
Размер:
2.5 Кб
Скачать
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
uses unit2, Clipbrd, unit3;
var krug:Tkrug;
krug1, krug2, krug3:Tkrug;
okno1:Timage; // Введена переменная для сохранения записи
pxm1,pym1, xo,yo,ro:word;
i,n:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
okno1:=Form1.Image1;
colrBack:=clMoneyGreen; // Цвет фона - белый
pxm1:=okno1.ClientWidth; // Считывание размеров окна
pym1:=okno1.ClientHeight;
with okno1.canvas do begin
pen.color:=colrBack;
brush.color:=colrBack;
Rectangle(0,0,Pxm1,Pym1); // Заливка всего окна цветом фона
end;
xo:=30; yo:=150; // Вычисление координат центра окна
ro:=25; // Начальный размер круга и прямоугольника
krug:=Tkrug.Create(xo+10,yo+45,ro,clCream,okno1.Canvas);
krug1:=Tkrug.Create(xo+60,yo+45,ro,clCream,okno1.Canvas);
krug2:=Tkrug.Create(xo+110,yo+45,ro,clCream,okno1.Canvas);
krug3:=Tkrug.Create(xo+150,yo+15,ro,clCream,okno1.Canvas);
krug.show;
krug1.show;
krug3.Show;
krug2.Show; // Рисование квадрата
n:=(okno1.Width-230) div 5;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
krug:=Tkrug.Create(xo+10,yo+45,ro,clCream,okno1.Canvas);
krug3:=Tkrug.Create(xo+150,yo+15,ro,clCream,okno1.Canvas);
for i:=0 to n do begin
okno1.Update;
krug.MovTo(5,0,0);
krug1.MovTo(5,0,0);
krug2.MovTo(5,0,0);
krug3.MovTo(5,0,0);
sleep(30); end;
Button2.Visible:=true;
Button3.Visible:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{brush.color:=colrBack;
okno1.Canvas.Rectangle(580,125,650,200);}
krug:=Tkrug.Create(xo+450,yo+15,ro,clCream,okno1.Canvas);
krug3:=Tkrug.Create(xo+590,yo+45,ro,clCream,okno1.Canvas);
okno1.Update;
for i:=0 to n do begin
okno1.Update;
krug.MovTo(-5,0,0);
krug1.MovTo(-5,0,0);
krug2.MovTo(-5,0,0);
krug3.MovTo(-5,0,0);
sleep(30); end;
Button3.Visible:=true;
Button2.Visible:=false;
end;

end.
Соседние файлы в папке гусеница
  • #
    15.06.2014238 б11Project1.dpr
  • #
    15.06.2014876 б11Project1.res
  • #
    15.06.20146.34 Кб10Unit1.dcu
  • #
    15.06.201451 б10Unit1.ddp
  • #
    15.06.20141.17 Кб10Unit1.dfm
  • #
    15.06.20142.5 Кб10Unit1.pas
  • #
    15.06.20142.06 Кб10Unit1.~pas
  • #
    15.06.20142.43 Кб10Unit2.dcu
  • #
    15.06.20141.92 Кб10Unit2.pas
  • #
    15.06.20142.17 Кб10Unit2.~pas
  • #
    15.06.20142.51 Кб10Unit3.dcu