Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Двигать изображение в TImage [D6, D7, Win2k, WinXP]


Expl ©   (2005-05-19 19:43:00) 

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


Eraser   (2005-05-20 00:04:00) [1]

Expl   (19.05.05 23:30) [6]

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


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

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

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


Expl   (2005-05-19 23:30:00) [2]

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


Eraser   (2005-05-19 23:19:00) [3]

Expl   (19.05.05 22:34) [4]

Можно.


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

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


Eraser   (2005-05-19 22:28:00) [5]

Expl   (19.05.05 22:20) [2]

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


Expl   (2005-05-19 22:20:00) [6]

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


-=SSS=-   (2005-05-19 20:16:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо