Увеличение/уменьшение изображения

[nikmay]

Проблема такая: необходимо правильно увеличивать/уменьшать изоображение в Delphi относительно курсора мыши.
Использую метод StretchDraw. Для него необходимо рассчитать новый прямоугольник, в который вписывается изображение после увеличения (уменьшения).

Вопрос: подскажите, подалуйста, алгоритм, который правильно высчитывает новые границы рамки изображения относительно курсора, с целью последующего применения метода StretchDraw.

Дано: PaintBox;
Rect: TRect \\ Рамка исходного изображения
X,Y: integer; \\ Координаты мыши над PaintBox

[evg_m]

приведи правила правильного изменения изменения изображения

[mihali4]

Не знаю, правильно я вас понял или нет...
Попробуйте:

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

Наверное, подработаете под себя...
Свойство Stretch, конечно же, в True, а Autosize - наоборот...