Делфи

Таблица умножения

Проект по движению

var
Form1: TForm1;
fon:tbitmap;
kol:tbitmap;
myach:tbitmap;
za:tbitmap;
x,y:integer;
h,h1:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
h:=6; h1:=30;
fon:=tbitmap.Create;
kol:=tbitmap.Create;
myach:=tbitmap.Create;
za:=tbitmap.Create;
fon.LoadFromFile('fon.bmp');
kol.LoadFromFile('kol.bmp');
myach.LoadFromFile('myach.bmp');
za.LoadFromFile('za.bmp');
kol.transparent:=true;
myach.transparent:=true;
za.transparent:=true;
image1.Canvas.Draw(0,0,fon);
image1.Canvas.Draw(20,y,kol);
image1.Canvas.Draw(x,400,za);
image1.Canvas.Draw(x,200,myach);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+h;
if x>900 then h:=h-1;
if x<0 then h:=h-1;
image1.Canvas.Draw(0,0,fon);
if y>20 then h:=h-1;
if y<500 then h:=h-1;
image1.Canvas.Draw(20,y,kol);
x:=x+h1;
if x>900 then h1:=h1-1;
if x<0 then h1:=h1-1;
image1.Canvas.Draw(x,400,za);
image1.Canvas.Draw(x,200,myach);
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=37 then h:=-15;
if key=39 then h:=15;
end;
Анимация Кораблика

var
Form1: TForm1;
fon:tbitmap;
korb:tbitmap;
x:integer;
h:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
h:=6;
fon:=tbitmap.Create;
korb:=tbitmap.Create;
fon.LoadFromFile('fon.bmp');
korb.LoadFromFile('korb.bmp');
korb.transparent:=true;
image1.Canvas.Draw(0,0,fon);
image1.Canvas.Draw(x,60,korb);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+h;
if x>500 then h:=h-1;
if x<0 then h:=h-1;
image1.Canvas.Draw(0,0,fon);
image1.Canvas.Draw(x,60,korb);
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=37 then h:=-15;
if key=39 then h:=15;
Проект

begin
with form1.Canvas do begin
Brush.Color:= Clblue;
Rectangle(0,01,675,275);
brush.Color:=clYellow;
Ellipse(25,25,125,125);
Brush.Color:=clLime;
Rectangle(0,275,675,800);
Pen.Color:=clGreen;
Pen.Width:=3;
Arc(25,350,175,450,175,400,25,400);
Pen.Color:=clGreen;
Arc(150,325,275,425,275,380,150,365);
Pen.Color:=clBlack;
Pen.Width:=1;
Brush.Color:=clOlive;
Rectangle(375,300,390,400);
Brush.Color:=clOlive;
Rectangle(425,280,440,380);
Brush.Color:=clOlive;
Rectangle(475,330,460,420);
brush.Color:=clGreen;
Ellipse(330,175,425,325);
brush.Color:=clGreen;
Ellipse(400,150,475,330);
brush.Color:=clGreen;
Ellipse(420,175,520,340);
Brush.Color:=clRed;
Ellipse(50,525,100,575);
Brush.Color:=clYellow;
Rectangle(75,500,300,600);
Brush.Color:=ClPurple;
Rectangle(100,525,200,575);
Brush.Color:=clNavy;
Rectangle(200,425,325,575);
Brush.Color:=clBlue;
Rectangle(225,450,300,550);
Brush.Color:=clRed;
Rectangle(175,410,350,425);
Brush.Color:=ClPurple;
Polygon([Point(100,500),Point(75,425),Point(125,425)]);
Brush.Color:=ClRed;
Rectangle(75,410,125,425);
Brush.Color:=ClBlack;
Rectangle(325,505,365,510);
Rectangle(340,485,345,525);
Brush.Color:=clYellow;
Rectangle(360,450,625,600);
Brush.Color:=clBlue;
Rectangle(400,475,450,550);
Brush.Color:=ClBlue;
Rectangle(470,475,520,550);
Brush.Color:=clBlue;
Rectangle(540,475,590,550);
Brush.Color:=ClWhite;
Ellipse(200,550,275,650);
Brush.Color:=clGray;
Ellipse(215,575,250,625);
Brush.Color:=ClWhite;
Ellipse(100,595,150,650);
Brush.Color:=ClGray;
Ellipse(115,615,130,630);
Brush.Color:=ClWhite;
Ellipse(400,595,450,650);
Brush.Color:=ClGray;
Ellipse(415,615,430,630);
Brush.Color:=ClWhite;
Ellipse(520,595,570,650);
Brush.Color:=ClGray;
Ellipse(535,615,550,630);
Brush.Color:=clOlive;
Rectangle(25,650,650,660);
Brush.Color:=ClGreen;
Pie(550,350,600,380,550,350,600,350);
Brush.Color:=ClWhite;
Ellipse(565,335,585,363);
Brush.Color:=ClMaroon;
Pie(550,310,600,360,600,340,550,340);
Brush.Color:=ClGray;
Ellipse(400,25,500,75);
Brush.Color:=ClGray;
Ellipse(450,50,550,100);
Brush.Color:=ClGray;
Ellipse(550,25,650,75);
end;
end;