Вверх ↑
Ответов: 1328
Рейтинг: 69
#1: 2009-12-27 22:07:30 ЛС | профиль | цитата
вот для начала, осталось добавить недостающие буквы (в примере буквы из 1 го слова)
Add(MainForm,14799719,336,154)
{
Width=432
Height=404
}
Add(Memo,16288828,427,140)
{
Left=5
Top=5
Width=390
Height=200
Strings=#542:следовательностей ДНК современных людей и в настоящий момент принимается большинством |
ScrollBars=2
}
Add(Button,11787822,357,217)
{
Left=400
Top=6
Width=20
Height=340
Caption="^
^"
link(onClick,15193376:doSearch,[])
}
Add(Memo,11045424,791,224)
{
Left=10
Top=245
Width=365
Height=110
ScrollBars=3
}
Add(BlockFind,15193376,427,217)
{
IncludeBlock=1
StartBlock="&#x"
EndBlock=";"
link(onSearch,13741333:doGetIndex,[])
link(onEndSearch,7957156:doGetStr,[])
link(Text,16288828:Text,[])
}
Add(StrList,13741333,525,175)
{
Strings=#3:441|3:43B|3:435|3:434|3:43E|3:432|3:430|3:442|3:435|3:43B|3:44C|3:43D|3:439|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,842545:doGetString,[])
}
Add(StrList,842545,595,140)
{
Strings=#1:с|1:л|1:е|1:д|1:о|1:в|1:а|1:т|1:е|1:л|1:ь|1:н|1:й|
Point(onGetString)
Point(doGetString)
link(onGetString,1557316:doAdd,[(660,153)(660,286)])
}
Add(CharArray,7957156,693,217)
{
link(onGetStr,11045424:doAdd,[])
}
Add(ArrayRW,1557316,693,266)
{
link(Array,7957156:Array,[])
}


карма: 2

0