Вверх ↑
Ответов: 632
Рейтинг: 16
#1: 2009-11-18 19:20:26 ЛС | профиль | цитата
Цветной скролл бар с поддержкой двухколесной мыши, у кого второе колесо отсутствует, просто увеличте шаг на 5 и -5 и будет как второе
------------ Дoбавленo в 19.21:
#pas
Add(MainForm,5960082,210,112)
{
Left=20
Top=105
Width=114
Height=356
Position=1
Point(onMouseWheel)
link(onMouseWheel,3967526:doRead,[(250,139)(250,138)])
}
Add(ProgressBar,350143,434,132)
{
Left=40
Top=5
Width=20
Height=315
Kind=1
ProgressColor=-16777211
Point(doColor)
}
Add(IntegerArray,12185588,259,90)
{
IntArray=['120'=2,'-120'=-2,'240'=5,'-240'=-5]
UseName=0
FileFormat=1
}
Add(ArrayRW,3967526,259,132)
{
link(onRead,16075114:doWork1,[])
link(Array,12185588:Array,[])
}
Add(MultiElement,16075114,308,132)
{
link(onEvent1,9699010:doEvent1,[(348,138)(348,139)])
}
BEGIN_SDK
Add(EditMulti,4758392,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,5381850:doOperation,[(35,27)(35,62)])
}
Add(Math,5381850,49,56)
{
link(onResult,13468446:doCompare,[])
link(Op1,9245857:Value,[(55,44)(140,44)(140,114)(202,114)])
}
Add(Memory,9245857,196,70)
{
Default=String()
link(onData,4758392:onEvent1,[(274,76)(274,27)])
}
Add(If_else,13468446,98,56)
{
Type=1
Op2=String(0)
link(onFalse,10020573:doCompare,[])
}
Add(If_else,10020573,147,63)
{
Type=2
Op2=String(100)
link(onFalse,9245857:doValue,[])
}
END_SDK
Add(Random,10403690,385,140)
{
Max=16777215
link(onRandom,350143:doColor,[(425,146)(425,145)])
}
Add(Hub,9699010,357,133)
{
link(onEvent1,350143:doPosition,[(403,139)(403,138)])
link(onEvent2,10403690:doRandom,[])
}

карма: 0

0