TImage

← →
dim- © (2002-11-22 09:10) [0]

на форме лежит ScrollBox на нем Image когда Image больше размеров формы появляется полоса прокрутки, Как сделать что бы можно было перемещатся по изображению мышкой как в некоторых просмотрщиках, взять видимую область и переместить что бы увидеть невидимую?
И второй вопрос: как сделать изменение маштаба изображения, ввели например 60% и в Image стало отбражаться с моштабом 60%

← →
Reindeer Moss Eater (2002-11-22 09:28) [1]

Очевидно управлять позицией ScrolBox"а надо

← →
Antonius © (2002-11-22 10:41) [2]

>с моштабом 60% :)

image1.strech:=true;
image1.proportional:=true;
image1.width:=round(image1.width/(100/[ваши 60%]));

← →
dim- © (2002-11-22 12:05) [3]

то:Antonius спасибо
А как все таки мышкой рисунок прокручивать

← →
F1 © (2002-11-22 12:11) [4]

>dim- © (22.11.02 12:05)
MouseDown
MouseMove
MouseUp

← →
dim- © (2002-11-22 15:37) [5]

а как двигать Image?
Не ужели ни кто не делал

← →
Antonius © (2002-11-22 16:09) [6]

может я буду делать ближайшее время. Если не забуду - пришлю код.

← →
F1 © (2002-11-22 16:12) [7]

>dim- © (22.11.02 15:37)
>а как двигать Image?
>Не ужели ни кто не делал
MouseDown
MouseMove
MouseUp
!!!!!!!!!!!!!!!!1

← →
dim- © (2002-11-22 16:24) [8]

F1 ©
ну и что?????
как заставить двигаться изображение

← →
Reindeer Moss Eater (2002-11-22 16:25) [9]

Очевидно управлять позицией ScrolBox"а надо

← →
dim- © (2002-11-22 16:33) [10]

оно и понятно, но какими командами?

← →
TTCustomDelphiMaster © (2002-11-22 16:57) [11]

Дурдом

← →
Reindeer Moss Eater (2002-11-22 16:58) [12]

Команды в армии, у ScrollBox"a свойства

Используй :
onMouseDown - событие нажатия кнопки на картинке,запоминай положение картинки
onMouseUp - событие отпускания кнопки на картинке, между этими событиями происходит сдвиг картинки
onMouseMove - собственно сдвиг, смещай картинку относительно запомненного положения на расстояние сдвига мышки.

Успехов!

Издеваться могут все, а помочь...
Переяслов Григорий - Спасибо, но повторю, мне не надо перемещать картинку по форме, а надо если image больше формы то можно было бы прокрутить ScrollBox не за ScrollBar, а прямо за изображение.

Да народ, я и так знаю какие события ноадо использовать, а требовалось узнать следующее:
ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position+round((yl-y)/10);
ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position+round((xl-x)/10);

TImage Найти похожие ветки