Цитата:
|
Сообщение от fuzo
что то этот пример не запускается
|
Написано в Delphi 2009, просто скопируй коды процедур в новый проект.
Цитата:
|
Сообщение от fuzo
а в коде не очень понятен ход работы..
|
Да там всё просто, переменная Х1 определяет положение человечка на форме (по оси Х):
Код:
MoveTo(X1, 50); // рисуется туловище
LineTo(X1, 100);
переменная Х2 определяет положение рук и ног относительно туловища:
Код:
//рисуются руки:
MoveTo(X1 - X2, 100); //левая
LineTo(X1, 50);
LineTo(X1 + X2, 100); //правая, аналогично с ногами
по таймеру значение переменных меняется, и человечек "ходит"