unit Unit3;

interface

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

type
TForm3 = class(TForm)
Image1: TImage;
B1: TButton;
B2: TButton;
Timer1: TTimer;
procedure B1Click(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation
var
x1,x2,y1,y2,dx,x3,y3,x4,y4:integer;
{$R *.dfm}
{ему похуй на текст в этих скобках}
procedure TForm3.B1Click(Sender: TObject);
begin
with Image1.Canvas do
begin
ellipse(x1-25,y1-25,x1+25,y1+25);
ellipse(x2-25,y2-25,x2+25,y2+25);
brush.Color:=clGray;
floodfill(x1,y1,clBlack,fsBorder);
floodfill(x2,y2,clBlack,fsBorder);
moveto(x3,y3);
lineto(x3+400,y3);
lineto(x3+400,y3-50);
lineto(x3+325,y3-225);
lineto(x3+150,y3-325);
lineto(x3+125,y3-75);
lineto(x3+20,y3-50);
lineto(x3,y3);
brush.color:=clLime;
floodfill(x3+3,y3-3,clBlack,fsBorder);
moveto(185,300);
lineto(x4+75,y4);
lineto(x4+75,y4-140);
lineto(x4+15,y4-140);
lineto(x4,y4);
brush.Color:=clAqua;
floodfill(x4+3,y4-3,clBlack,fsBorder);
end;
end;

procedure TForm3.B2Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
x1:=100;
y1:=400;
x2:=400;
y2:=400;
x3:=50;
y3:=375;
x4:=185;
y4:=300;
dx:=2;
end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin
with image1.Canvas do
begin
brush.color:=clWindow;
rectangle(0,0,450,500);
x1:=x1+dx;
x2:=x2+dx;
x3:=x3+dx;
x4:=x4+dx;
ellipse(x1-25,y1-25,x1+25,y1+25);
ellipse(x2-25,y2-25,x2+25,y2+25);
brush.Color:=clGray;
floodfill(x1,y1,clBlack,fsBorder);
floodfill(x2,y2,clBlack,fsBorder);
moveto(x3,y3);
lineto(x3+400,y3);
lineto(x3+400,y3-50);
lineto(x3+325,y3-225);
lineto(x3+150,y3-325);
lineto(x3+125,y3-75);
lineto(x3+20,y3-50);
lineto(x3,y3);
brush.color:=clLime;
floodfill(x3+3,y3-3,clBlack,fsBorder);
moveto(185,300);
lineto(x4+75,y4);
lineto(x4+75,y4-140);
lineto(x4+15,y4-140);
lineto(x4,y4);
brush.Color:=clAqua;
floodfill(x4+3,y4-3,clBlack,fsBorder);
end;
end;

Случайные файлы

Файл
V1.TXT
Readme.txt
Task_8.txt
Mpei.csproj.FileList.txt
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.