------------ Дoбавленo в 18.39:
Tiberius, держите:
Add(MainForm,2953706,21,105)
{
}
Add(KeyHook,8331334,98,105)
{
Point(doKillKey)
link(onKeyDown,1380994:doCheckMask,[])
}
Add(KeyMask,1380994,175,105)
{
Key=81
link(onTrue,16202438:doEvent1,[(226,118)(226,111)])
}
Add(Hub,16202438,245,105)
{
link(onEvent1,8331334:doKillKey,[(271,111)(271,99)(86,99)(86,111)])
link(onEvent2,14621617:doFor,[])
}
Add(StrList,2122226,371,70)
{
Strings=#2:81|2:82|2:83|2:84|2:85|
Point(doGetString)
Point(onGetString)
link(onGetString,14828136:doValue,[])
}
Add(Memo,11194692,21,49)
{
Left=30
Top=5
Width=240
Height=195
}
Add(For,14621617,301,112)
{
End=7
link(onEvent,2122226:doGetString,[])
}
Add(KeyEvent,11695604,560,77)
{
link(Code,14828136:Value,[(573,65)(475,65)(475,121)(440,121)])
}
Add(Memory,14828136,434,77)
{
Default=Integer(0)
link(onData,1547603:doData,[])
}
Add(DoData,1547603,497,77)
{
link(onEventData,11695604:doPress,[])
}



Поиск
Друзья
Администрация