Scrol колесиком

Вверх ↑

Форумы Помощь по пакетуScrol колесиком ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 107

Рейтинг: 0

#1: 2020-05-30 04:42:13 ЛС | профиль | цитата

Ребята может глупый вопрос, но как заставить скролинг двигать колесиком мышки?

карма: 0

Ответов: 264

Рейтинг: 18

#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)])
}

карма: 3

Ответов: 107

Рейтинг: 0

#3: 2020-05-30 10:15:24 ЛС | профиль | цитата

Да, именно так. Спасибо тебе добрый человек)

карма: 0

Ответов: 1343

Рейтинг: 31

#4: 2020-05-30 20:46:44 ЛС | профиль | цитата

fox-video писал(а):

Так?

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

карма: 2

Ответов: 107

Рейтинг: 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

Ответов: 528

Рейтинг: 167

#6: 2020-06-02 19:26:52 ЛС | профиль | цитата

Rysik писал(а):

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

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

карма: 4

Ответов: 8975

Рейтинг: 824

#7: 2020-06-02 19:35:20 ЛС | профиль | цитата

Rysik, tig-rrr, а вы не забыли мышку на скролл поставить?
Win10, FPC и Delphi всё работает

карма: 19

Ответов: 528

Рейтинг: 167

#8: 2020-06-02 21:10:57 ЛС | профиль | цитата

Леонид писал(а):

а вы не забыли мышку на скролл поставить?

Леонид, извиняюсь

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

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

карма: 4

Ответов: 2467

Рейтинг: 698

#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

карма: 11

Ответов: 8975

Рейтинг: 824

#10: 2020-06-02 22:33:23 ЛС | профиль | цитата

sla8a, зачем кликать

Подсказка писал(а):

onMouseWheel (Shift)
------------------------------------------------
Событие происходит всякий раз после прокрутки колеса мыши над элементом и возвращает его смещение

карма: 19

Ответов: 2467

Рейтинг: 698

#11: 2020-06-02 22:44:54 ЛС | профиль | цитата

Леонид, на заборе тоже есть надпись, но за ним пиломатериалы складируют, а не то что написано.

Леонид писал(а):

зачем кликать

Думаю вы и так знаете. У вас при навидении курсора передается фокус, а у нас (выше отписавшихся) нет.

карма: 11

Ответов: 1343

Рейтинг: 31

#12: 2020-06-04 12:27:10 ЛС | профиль | цитата

sla8a писал(а):

Вот такая схема (от fox-video) c свойством TabOrder=1 у обоих ScrollBar работает

вот вот))), без TabOrder не работала

карма: 2

Форумы Помощь по пакетуScrol колесиком ← Ctrl1Ctrl →


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