Изменение размеров фигур

[artemavd]

Есть в голове у меня одна идея для написании одной интересующей программы. В ней мне нужно изменять размеры фигур. Нужна ваша консультация. Как сделать замедленное увеличение фигуры? Например прямоугольник. Пример я сделал ввиде ролика.

[mutabor]

Как и любую анимацию. Стираешь фигуру в ее предыдущих координатах, рисуешь в новых с новым размером. Смотри в DW примеры "резинового прямоугольника", суть та же, думаю идеи полезные извлечешь оттуда.

[mihali4]

Нате вам "наколку", дальше доработаете:

var
  Form1: TForm1;
  impr: boolean;
  
implementation
...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
impr:=True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
impr:=False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if not impr then
exit;
Image1.Height:=Round(Image1.Height/2)+y;
Image1.Width:=Round(Image1.Width/2)+x;     
end;