[Ahton]

Товарищи! нужна помощь, как известно Delphi является братом Паскаля, так вот, в универе задали сделать анимацию на PascalABC - "Песочные часы", т.е. нужно чтобы при нажатии на пробел - песок начинал пересыпаться (сверху уменьшаться, снизу увеличиваться), помогите плиз, оч нада!

[:-)]

Прийдёться канвом рисовать:

Код:

with canvas do
lineto(0, 10);
...
end;

[hkdkest]

Исходника нет у кого нибудь? для Delphi?

[hkdkest]

Теперь есть иходник, может кому нибудь понадобится