Вверх ↑
Ответов: 2200
Рейтинг: 673
#1: 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, на любом компиляторе результат тотже.
карма: 11

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