Как проще сделать зуминг?

← →
D5_User (2004-10-10 01:21) [0]

Подскажите, плз., сабж. У меня пока что сделано так, что увеличиваемое изображение находится внутри скроллбокса. Левый верхний угол остается на месте, а все точки сдвигаются влево-вниз. Может так получиться, что интересуемая точка оказывается за пределами видимой области скроллбокса.
Как мне узнать, какое значение Position надо установить соответствующие полосы прокрутки, чтобы точка, по которой кликнули лупой, осталась примерно на том же месте?
Спасибо заранее за совет!

← →
D5_User (2004-10-10 20:02) [1]

Удалено модератором

Скопировал из старого кода. В EditZoom.Text - проценты, на которые увеличиваем.

xz := Round(X * StrToInt(EditZoom.Text) / 100); yz := Round(Y * StrToInt(EditZoom.Text) / 100); xz := xz - Scrollbox.Width div 2; yz := yz - Scrollbox.Height div 2; If xz < 0 then xz := 0; If yz < 0 then yz := 0; If xz > Scrollbox.HorzScrollBar.Range then xz := Scrollbox.HorzScrollBar.Range; If yz > Scrollbox.VertScrollBar.Range then xz := Scrollbox.VertScrollBar.Range; Scrollbox.HorzScrollBar.Position := xz; Scrollbox.VertScrollBar.Position := yz;

Как проще сделать зуминг? Найти похожие ветки