Двигать изображение в TImage

← →
Expl (2005-05-19 19:43) [0]

Здравствуйте. Я хочу реализовать сделать так, чтобы рисунки, которые я загружаю в TImage и которые размерами больше размеров этого TImage, можно было двигать (напр., как в AcdSee). Как обрабатывать все нажатия я знаю, а вот какие параметры надо изменять, чтобы рисунок двигался, нет. Спасибо.

← →
-=SSS=- (2005-05-19 20:16) [1]

Самый простой вариант это подложить под низ TScroolBox. И внутри этого TScroolBox"a положить TImage.
Мона также скачать одну библиотечку
http://www.torry.net/vcl/packs/huge/globuslib.zip
Должна помочь

← →
Expl (2005-05-19 22:20) [2]

Не, со скроллом не подходит. Я хочу сделать так, чтобы нажимаешь мышкой на рисунке, двигаешь мышкой - и двигается рисунок внутри рамки TImage.

← →
Eraser © (2005-05-19 22:28) [3]

Expl (19.05.05 22:20) [2]

Тут надо алгоритм придумывать с CopyRect.

← →
Expl (2005-05-19 22:34) [4]

А с Bitmap.Canvas.Draw никак такое сделать нельзя?

← →
Eraser © (2005-05-19 23:19) [5]

Expl (19.05.05 22:34) [4]

Можно.

← →
Expl (2005-05-19 23:30) [6]

Я догадываюсь, в этой процедуре можно задавать координаты, но мне нужно как-то считать начальные координаты, чтобы потом их изменить.

Expl (19.05.05 23:30) [6]

но мне нужно как-то считать начальные координаты

Сделай глобальные переменные OldX и OldY.

чтобы потом их изменить.

Меняй в обработчике OnMouseMove.

Двигать изображение в TImage Найти похожие ветки