Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Scrolling в DW по перемешению мыши / 3 сообщений из 3, страница 1 из 1
20.12.2004, 17:36
    #32835564
PVG
PVG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scrolling в DW по перемешению мыши
Есть DW для предварительного просмотра перед печатью. Как сделать чтобы с перемещением по нему мыши с нажатой правой кнопкой автоматически запускался Scrolling???
...
Рейтинг: 0 / 0
20.12.2004, 19:31
    #32835819
f45f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scrolling в DW по перемешению мыши
Мапим pbm_dwnmousemove

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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.
...
Рейтинг: 0 / 0
21.12.2004, 11:50
    #32836516
PVG
PVG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scrolling в DW по перемешению мыши
Спасибо!!!
...
Рейтинг: 0 / 0
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Scrolling в DW по перемешению мыши / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]