Разработать приложение, в котором имитируется идущий человечек.

[fuzo]

Собственно сабж. Использовать нужно элемент Convas.
Даже не представляю как это можно выполнить. Помогите пожалуйста.

[_-Re@l-_]

Можно так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      Shape1.Left:=Shape1.Left+2;
      If Shape1.Left>=Form1.Width Then Timer1.Enabled:=False;
end;

end.

Правда, там не совсем человечек

[fuzo]

Нет ну это понятно. А как организовать человечка, чтобы руки ноги двигались :/

[_-Re@l-_]

1. А зачем руки при ходьбе двигать?
2. Сделать две текстуры: в одной человечек начинающий шаг а во второй заканчивающий...Может, так?

[fuzo]

Я даже хз каким он должен быть.
Он мне представляется из палочек и кружка. Ж)

ой я ошибся, нужно с помощью элемента Canvas

Вот построил человечка а как заставить его идти?

Image1.Canvas.Brush.Color:=clRed;
Image1.Canvas.Ellipse(15,15,50,50);
image1.Canvas.MoveTo(30,50);
Image1.Canvas.LineTo(30,130);
image1.Canvas.MoveTo(30,130);
Image1.Canvas.LineTo(20,170);
image1.Canvas.MoveTo(30,130);
Image1.Canvas.LineTo(40,170);
image1.Canvas.MoveTo(10,80);
Image1.Canvas.LineTo(50,80);

[Serge_Bliznykov]

Вот построил человечка а как заставить его идти?

не знаю, насколько мой ответ Вам поможет, но, заставить его "идти" можно так же, как делается любая анимация: нарисовать позицию (то, что Вы сделали), выждать паузу (задержку). стереть нарисованное (часто используется тот же самый код, только цвет кисти и заливки делается равным цвету фона), посчитать новые координаты человечка (при необходимости изменить положение руки, ноги и т.п. - удобно для этого завести массивчик положений и перебирать их по индекску), вывести полученную фигурку на канву.
всё это делать в цикле (хоть в бесконенчном, хоть до достижения какого-то условия - например, достижения координат левого края экрана).
Это так. упрощённо...

[Stilet]

Пацаненок, скачущий на одной ноге:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var x,xr:integer;
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do begin
 Brush.Color:=clRed;
  Ellipse(x+20,15,x+40,50);
  MoveTo(x+30,50);
  LineTo(x+30,130);
  MoveTo(x+30,130);
  LineTo(x+20,170);
  MoveTo(x+30,130);
  LineTo(x+50,xr);
  MoveTo(x+10,80);
  LineTo(x+50,xr);
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if xr=100 then xr:=70 else xr:=100;
 x:=x+100;
 Repaint;
end;


end.

Остальное в том же духе

[Z1000000]

И так далее.