Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / PowerBuilder Новый топик    Ответить
 Scrolling в DW по перемешению мыши  [new]
PVG
Member

Откуда: Киев
Сообщений: 47
Есть DW для предварительного просмотра перед печатью. Как сделать чтобы с перемещением по нему мыши с нажатой правой кнопкой автоматически запускался Scrolling???
20 дек 04, 17:36    [1194512]     Ответить | Цитировать Сообщить модератору
 Re: Scrolling в DW по перемешению мыши  [new]
f45f
Member

Откуда:
Сообщений: 224
Мапим pbm_dwnmousemove

integer deltay
if moving then
	deltay = ypos - old_y
	if abs(deltay) > 10 then
		if deltay> 0 then
			Send(Handle(this),277,1,0)	
		else
			Send(Handle(this),277,0,0)	
		end if
		old_y = ypos	
	end if
end if

Соответственно на rbuttindown цепляем moving = true и запоминаем ypos в old_y, на up moving = false

Пример для wm_vscroll.
20 дек 04, 19:31    [1194880]     Ответить | Цитировать Сообщить модератору
 Re: Scrolling в DW по перемешению мыши  [new]
PVG
Member

Откуда: Киев
Сообщений: 47
Спасибо!!!
21 дек 04, 11:50    [1195936]     Ответить | Цитировать Сообщить модератору
Все форумы / PowerBuilder Ответить