Вверх ↑
Администрация
Ответов: 15295
Рейтинг: 1519
#1: 2004-09-11 01:38:29 ЛС | профиль | цитата
Пример ниже показывает за сколько милисекунд пользователь успел среагировать и кликнуть по форме после появления надписи ЖАТЬ


Add(MainForm,18678,217,238)
{
Left=21
Top=105
Width=400
Height=300
Align=0
Color=-16777201
AlphaBlendValue=255
Caption="Form"
BorderStyle=2
WindowsState=0
Icon=[]
ShowType=0
TaskBar=0
DragForm=1
Visible=0
Picture=[]
SavePosition=0
SavePosName="MyProject"
Point(onMouseDown)
link(onMouseDown,58679doEvent1,[(264,286)(264,160)])
}
Add(Timer,23326,175,70)
{
Interval=5000
Enable=1
AutoStop=1
link(onTimer,546doEvent1,[])
}
Add(ListBox,89917,399,105)
{
Left=312
Top=0
Width=80
Height=275
Align=3
TabOrder=0
Color=-16777211
Ctl3D=0
Hint=""
Font=[Arial,8,0,0]
Visible=0
Enabled=0
Transparent=1
FileName=""
Strings=
AddType=0
DataType=0
SelectAdd=1
Sort=1
link(Str,2861Count,[])
}
Add(Button,91303,70,56)
{
Left=25
Top=10
Width=80
Height=20
Align=0
TabOrder=0
Hint=""
Font=[Arial,8,0,0]
Visible=0
Enabled=0
Caption="Готовность"
Data=Null()
link(onClick,91513doEvent1,[])
}
Add(Counter,2861,399,42)
{
Min=0
Max=10000
Step=1
Type=0
}
Add(Switch,95228,182,154)
{
DataOn=String(ЖАТЬ)
DataOff=String(...........)
link(onSwitch,97868doText,[])
}
Add(Label,97868,224,154)
{
Left=120
Top=15
Width=50
Height=15
Align=0
Color=-16777188
Font=[Arial,8,0,0]
Transparent=1
Caption=""
AutoSize=0
Alignment=0
ColorHover=0
Cursor=0
Underline=1
Point(onMouseDown)
}
Add(Thread,57130,350,70)
{
Delay=1
FastStop=1
BusyEvent=0
link(onExec,2861doNext,[(390,76)(390,48)])
}
Add(Hub,58679,280,154)
{
InCount=1
OutCount=2
link(onEvent1,57130doStop,[(331,160)(331,83)])
link(onEvent2,89917doAdd,[(341,167)(341,111)])
}
Add(Hub,546,224,70)
{
InCount=1
OutCount=2
link(onEvent1,57130doStart,[])
link(onEvent2,95228doSwitch,[(266,83)(266,128)(172,128)(172,160)])
}
Add(Hub,91513,119,56)
{
InCount=1
OutCount=2
link(onEvent1,2861doReset,[])
link(onEvent2,23326doTimer,[(163,69)(163,76)])
}

карма: 27
0