------------ Дoбавленo в 15.30:
Все клавиши работают, но вот как развязать пробел, не соображу.
Add(MainForm,15366003,54,77)
{
Width=325
Height=270
Point(onChar)
Point(onKeyDown)
Point(doSetFocus)
Point(onKeyUp)
link(onChar,4308823:doTrim,[])
link(onKeyDown,13793558:doCase,[(101,111)(101,199)])
}
Add(Case,13793558,110,193)
{
Value=Integer(49)
link(onNextCase,7689435:doCase,[])
link(onTrue,16064507:doTimer,[])
}
Add(Button,6550763,237,151)
{
Left=86
Top=135
Width=61
Height=35
Caption="1"
Point(onKeyUp)
Point(doCaption)
Point(doSetFocus)
Point(onSetFocus)
}
Add(KeyEvent,13854656,578,251)
{
Code=32
}
Add(Hub,3376972,543,251)
{
InCount=3
link(onEvent1,13854656:doPress,[])
link(onEvent2,13854656:doPressDown,[])
}
Add(Memo,5748132,201,56)
{
Left=25
Top=15
Width=265
Height=100
Point(doSetSelect)
}
Add(Trim,4308823,124,98)
{
Char=" "
link(onTrim,5748132:doSetSelect,[])
}
Add(Case,7689435,238,193)
{
Value=Integer(50)
link(onNextCase,14039288:doCase,[])
link(onTrue,4787518:doTimer,[])
}
Add(Button,13536804,375,151)
{
Left=161
Top=135
Width=61
Height=35
Caption="2"
Point(onKeyUp)
Point(doCaption)
Point(doSetFocus)
Point(onSetFocus)
}
Add(Timer,16064507,154,200)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,7360996:doEvent1,[])
}
Add(Timer,4787518,286,200)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,1263500:doEvent1,[])
}
Add(Hub,1263500,334,200)
{
link(onEvent1,13536804:doSetFocus,[(361,206)(361,164)])
link(onEvent2,3376972:doEvent2,[(362,213)(362,264)])
}
Add(Hub,7360996,194,200)
{
link(onEvent1,6550763:doSetFocus,[(221,206)(221,164)])
link(onEvent2,3376972:doEvent3,[(221,213)(221,271)])
}
Add(Button,13193521,530,147)
{
Left=85
Top=185
Width=140
Height=40
Caption="probel"
Point(doSetFocus)
}
Add(Case,14039288,373,193)
{
Value=Integer(32)
link(onTrue,9097934:doTimer,[])
}
Add(Hub,11174902,488,200)
{
link(onEvent1,13193521:doSetFocus,[(517,206)(517,153)])
link(onEvent2,3376972:doEvent1,[(522,213)(522,257)])
}
Add(Timer,9097934,440,200)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,11174902:doEvent1,[])
}