Вверх ↑
Этот топик читают: Гость
Ответов: 83
Рейтинг: 0
#1: 2020-05-30 04:42:13 ЛС | профиль | цитата
Ребята может глупый вопрос, но как заставить скролинг двигать колесиком мышки?
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 127
Рейтинг: 5
#2: 2020-05-30 05:35:27 ЛС | профиль | цитата
Так?

Add(MainForm,1946550,126,63)
{
Width=218
Height=254
Caption="Пример использования ScrollBar"
}
Add(ScrollBar,10747389,315,140)
{
Left=10
Top=175
Width=185
Point(onMouseWheel)
link(onMouseWheel,5235120:doCalc,[(359,153)(359,149)(233,149)(233,146)])
}
Add(ScrollBar,10594426,315,63)
{
Left=180
Top=15
Width=15
Height=155
Kind=1
Point(onMouseWheel)
link(onMouseWheel,13750002:doCalc,[(352,76)(352,72)(233,72)(233,69)])
}
Add(MathParse,13750002,245,63)
{
MathStr="%2 - %1 / 10"
link(onResult,10594426:doPosition,[])
link(X2,10594426:Position,[(258,51)(290,51)(290,107)(321,107)])
}
Add(MathParse,5235120,245,140)
{
MathStr="%2 - %1 / 10"
link(onResult,10747389:doPosition,[])
link(X2,10747389:Position,[(258,128)(290,128)(290,184)(321,184)])
}
карма: 2

0
Ответов: 83
Рейтинг: 0
#3: 2020-05-30 10:15:24 ЛС | профиль | цитата
Да, именно так. Спасибо тебе добрый человек)
карма: 0

0
Ответов: 1254
Рейтинг: 28
#4: 2020-05-30 20:46:44 ЛС | профиль | цитата
fox-video писал(а):
Так?



у меня у одного не работает воообще ни на одном компиляторе?
карма: 2

0
Ответов: 83
Рейтинг: 0
#5: 2020-05-31 12:26:39 ЛС | профиль | цитата
Дополню, способ fox-video срол двигает, но значения не меняет. Вот так нужно:

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(MathParse,13750002,679,231)
{
MathStr="%2 - %1 / 10"
ResultType=0
link(onResult,10641773:doEvent1,[])
link(X2,12642945:Position,[(692,219)(738,219)(738,282)(783,282)])
}
Add(Edit,15882444,875,210)
{
Left=15
Top=60
Width=255
Text=""
}
Add(Hub,2170716,826,210)
{
InCount=2
OutCount=1
link(onEvent1,15882444:doText,[])
}
Add(ScrollBar,12642945,777,238)
{
Left=15
Top=25
Width=630
Point(onMouseWheel)
Point(doMax)
Point(doKeyBack)
link(onPosition,2170716:doEvent2,[(821,244)(821,223)])
link(onMouseWheel,13750002:doCalc,[(821,251)(821,286)(820,294)(665,294)(665,237)])
}
Add(Hub,10641773,721,231)
{
InCount=2
link(onEvent1,2170716:doEvent1,[(763,237)(763,216)])
link(onEvent2,12642945:doPosition,[])
}

Редактировалось 2 раз(а), последний 2020-05-31 12:28:12
карма: 0

0
Ответов: 435
Рейтинг: 153
#6: 2020-06-02 19:26:52 ЛС | профиль | цитата
Rysik писал(а):
у меня у одного не работает воообще ни на одном компиляторе?

У меня тоже не работает. Win 7 64bit. SVN 2337
карма: 4

0
Ответов: 8551
Рейтинг: 790
#7: 2020-06-02 19:35:20 ЛС | профиль | цитата
Rysik, tig-rrr, а вы не забыли мышку на скролл поставить?
Win10, FPC и Delphi всё работает
карма: 18

0
Ответов: 435
Рейтинг: 153
#8: 2020-06-02 21:10:57 ЛС | профиль | цитата
Леонид писал(а):
а вы не забыли мышку на скролл поставить?

Леонид, извиняюсь ,а где?
Вроде как скопировал пример , вставил, запустил, не работает. А оказывается надо было еще где-то чего-то включать..

Редактировалось 1 раз(а), последний 2020-06-02 21:14:50
карма: 4

0
Ответов: 1898
Рейтинг: 623
#9: 2020-06-02 22:07:42 ЛС | профиль | цитата
Rysik писал(а):
не работает

tig-rrr писал(а):
не работает

Если не ошибаюсь, то зависит не от системы или компилятора, а от настроек системы. Если что, то у меня тоже не работает.
Вот такая схема (от fox-video) c свойством TabOrder=1 у обоих ScrollBar работает:
схема

Add(MainForm,1946550,210,119)
{
Width=218
Height=254
Caption="Пример использования ScrollBar"
}
Add(ScrollBar,10747389,399,196)
{
Left=10
Top=175
Width=185
TabOrder=1
Point(onMouseWheel)
link(onMouseWheel,5235120:doCalc,[(443,209)(443,205)(317,205)(317,202)])
}
Add(ScrollBar,10594426,399,119)
{
Left=180
Top=15
Width=15
Height=155
TabOrder=1
Kind=1
Point(onMouseWheel)
link(onMouseWheel,13750002:doCalc,[(436,132)(436,128)(317,128)(317,125)])
}
Add(MathParse,13750002,329,119)
{
MathStr="%2 - %1 / 10"
link(onResult,10594426:doPosition,[])
link(X2,10594426:Position,[(342,107)(374,107)(374,163)(405,163)])
}
Add(MathParse,5235120,329,196)
{
MathStr="%2 - %1 / 10"
link(onResult,10747389:doPosition,[])
link(X2,10747389:Position,[(342,184)(374,184)(374,240)(405,240)])
}
А вот такая схема работает визуально по разному. Если TabOrder=0 у любого ScrollBar, то у него при навидении курсора начинает мигать (область заливается шашечками и исчезает) участок где изначально находился ползунок. Мигать не перестает пока не будет потерян фокус. При TabOrder=1 у ScrollBar мигание нет.
схема

Add(MainForm,1946550,147,63)
{
Width=267
Height=292
Caption="Пример использования ScrollBar"
}
Add(ScrollBar,10747389,336,168)
{
Left=10
Top=175
Width=185
Point(onMouseWheel)
Point(doSetFocus)
Point(onMouseMove)
link(onMouseWheel,5235120:doCalc,[(379,181)(379,147)(254,147)(254,174)])
link(onMouseMove,10747389:doSetFocus,[(380,188)(380,206)(323,206)(323,181)])
}
Add(ScrollBar,10594426,336,63)
{
Left=180
Top=15
Width=15
Height=155
Position=23
Kind=1
Point(onMouseWheel)
Point(doSetFocus)
Point(onMouseMove)
link(onMouseWheel,13750002:doCalc,[(382,76)(382,39)(254,39)(254,69)])
link(onMouseMove,10594426:doSetFocus,[(381,83)(381,99)(324,99)(324,76)])
}
Add(MathParse,13750002,266,63)
{
MathStr="%2 - %1 / 10"
link(onResult,10594426:doPosition,[])
link(X2,10594426:Position,[(279,51)(311,51)(311,107)(342,107)])
}
Add(MathParse,5235120,266,168)
{
MathStr="%2 - %1 / 10"
link(onResult,10747389:doPosition,[])
link(X2,10747389:Position,[(279,156)(311,156)(311,212)(342,212)])
}

Леонид писал(а):
Rysik, tig-rrr, а вы не забыли мышку на скролл поставить?
Если речь о клике на ScrollBar перед скролингом, то у меня не работает. Только если TabOrder = 1, тогда после клика работает скроллинг.
Если что XP SP3, на любом компиляторе результат тотже.

Редактировалось 2 раз(а), последний 2020-06-02 22:32:28
карма: 9

0
Ответов: 8551
Рейтинг: 790
#10: 2020-06-02 22:33:23 ЛС | профиль | цитата
sla8a, зачем кликать
Подсказка писал(а):
onMouseWheel (Shift)
------------------------------------------------
Событие происходит всякий раз после прокрутки колеса мыши над элементом и возвращает его смещение

карма: 18

0
Ответов: 1898
Рейтинг: 623
#11: 2020-06-02 22:44:54 ЛС | профиль | цитата
Леонид, на заборе тоже есть надпись, но за ним пиломатериалы складируют, а не то что написано.
Леонид писал(а):
зачем кликать
Думаю вы и так знаете. У вас при навидении курсора передается фокус, а у нас (выше отписавшихся) нет.
карма: 9

0
Ответов: 1254
Рейтинг: 28
#12: 2020-06-04 12:27:10 ЛС | профиль | цитата
sla8a писал(а):
Вот такая схема (от fox-video) c свойством TabOrder=1 у обоих ScrollBar работает



вот вот))), без TabOrder не работала
карма: 2

0
12
Сообщение
...
Прикрепленные файлы
(файлы не залиты)