[fuzo]

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

[Страдалецъ]

Что-бы это заработало, вам надо сделать простейшую трансформацию. Скажем линия в координатах 50,50,60,100 должна быть перемещена в новые координаты 50,50,90,100 за 10 шагов. Вы разбиваете траекторию перемещения на 10 шагов, для каждого из шагов получаете новое положение линии. Последовательно выводите линию в новых координатах убирая ее из старых.
Вот когда вы сделаете это, тогда уже все остальное сделать будет элементарно.

[fuzo]

а как правильно задать эти кординаты для конваса?
какой командой

[v1s2222]

Код:

1 2 3

Рисование на канвасе? Canvas.MoveTo - переместить по нужным координатам. Canvas.LieTo - нарисовать линию.

[fuzo]

вот с горем пополам нарисовал этого человечка

Код:

1 2 3 4 5 6 7 8 9 10

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

Но как его заставить двигаться без понятия

[ryderx34]

посмотри вот этот код, в качестве примера:
man_walk.zip

[fuzo]

что то этот пример не запускается, а в коде не очень понятен ход работы..

[ryderx34]

Сообщение от fuzo

что то этот пример не запускается

Написано в Delphi 2009, просто скопируй коды процедур в новый проект.

Сообщение от fuzo

а в коде не очень понятен ход работы..

Да там всё просто, переменная Х1 определяет положение человечка на форме (по оси Х):

Код:

1 2	MoveTo(X1, 50); // рисуется туловище LineTo(X1, 100);

переменная Х2 определяет положение рук и ног относительно туловища:

Код:

1 2 3 4

//рисуются руки: MoveTo(X1 - X2, 100); //левая LineTo(X1, 50); LineTo(X1 + X2, 100); //правая, аналогично с ногами

по таймеру значение переменных меняется, и человечек "ходит"

[fuzo]

создаю новый проект копирую код, добавляю таймер. Но почемуто на форме ничег оне происходит

Сделал по своему, пока без движения ног только руки. Но почемуто цикл не выполняется. В чём ошибка? ( вернее он выполняется но только в 2 шага, а затем по кругу с добавлением шага не идёт, а просто повторяетя).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TForm1.Timer2Timer(Sender: TObject); var         i,n,h:integer; begin with PaintBox1 do begin h:=0; n:=1; for i:=1 to n do h:=h+1; n:=n+1; Canvas.Brush.Color:=clRed; Canvas.Ellipse(15+h,15,50+h,50); Canvas.MoveTo(30+h,50); Canvas.LineTo(30+h,130); Canvas.MoveTo(30+h,130); Canvas.LineTo(20+h,170); Canvas.MoveTo(30+h,130); Canvas.LineTo(40+h,170); Canvas.MoveTo(10+h,80); Canvas.LineTo(50+h,80); i:=2; Sleep(400); refresh; i:=3; Canvas.Brush.Color:=clRed; Canvas.Ellipse(25+h,15,60+h,50); Canvas.MoveTo(40+h,50); Canvas.LineTo(40+h,130); Canvas.MoveTo(40+h,130); Canvas.LineTo(30+h,170); Canvas.MoveTo(40+h,130); Canvas.LineTo(50+h,170); Canvas.MoveTo(40+h,80); Canvas.LineTo(20+h,100); Canvas.MoveTo(40+h,80); Canvas.LineTo(60+h,100); Sleep(400); refresh; end; end;

[ryderx34]

Сообщение от fuzo

создаю новый проект копирую код, добавляю таймер. Но почемуто на форме ничег оне происходит

Нужно было сперва создать обработчики событий OnPaint и OnTimer, а уже потом вставлять в них код или на вкладке Events назначить процедуры в качестве обработчиков. Иначе эти процедуры не будут связаны с объектами.
Вот я сделал всё в виде одной процедуры, так будет проще:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure WalkingMan(Canvas: TCanvas; Width: Integer; var X1, X2, I: Integer); begin   if X1 < Width then       X1 := X1 + 20   else       X1 := 20;   if I < 7 then     Inc(I)   else     I := 0;   case I of     0:X2 := 20;     1:X2 := 15;     2:X2 := 10;     3:X2 := 5;     4:X2 := 0;     5:X2 := 5;     6:X2 := 10;     7:X2 := 15;   end;   with Canvas do   begin     FillRect(Canvas.ClipRect);     Ellipse(X1 - 20, 10, X1 + 20, 50);     MoveTo(X1, 50);     LineTo(X1, 100);     MoveTo(X1 - X2, 100);     LineTo(X1, 50);     LineTo(X1 + X2, 100);     MoveTo(X1 - X2, 150);     LineTo(X1, 100);     LineTo(X1 + X2, 150);   end; end;

Объяви три глобальных переменных типа Integer:

Код:

1 2 3

var   Form1: TForm1;   A, B, C: Integer;

и в OnTimer вызывай эту процедуру таким образом:

Код:

1 2 3 4

procedure TForm1.Timer1Timer(Sender: TObject); begin   WalkingMan(Form1.Canvas, Form1.Width, A, B, C); end;

[fuzo]

Всё СПАСИБО. Разобрался