Архив форумов ЦИТФорума

[Руслан]

Мне нужно создать в Delphi следующую анимацию:
Существует бак, в который заполняется вода. Как мне сделать, такую анимацию? Причем, это должно происходить по щелчку мышки.
Очень прошу, помогите!!!

[GREA]

Рисуй баки (заполненый и незаполненый). В Image1 - незаполненый, а в Image2 - заполненый. Image2.visible:=false.
onclick:
по циклу i от 1 до image1.height копируешь из image2.canvas в image1.canvas нижний прямоугольник высотой i
image1.Canvas.CopyRect(Rect(...),
image2.Canvas,Rect(...));
application.processmessages;
зад ержка
конец цикла.