Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2009-12-27 21:01:33 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:07:44
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2009-12-27 21:02:16 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:07:45
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2009-12-27 21:03:11 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:07:45
карма: 0

0
Ответов: 1328
Рейтинг: 69
#4: 2009-12-27 21:47:06 ЛС | профиль | цитата
г. 255.255.255.256, если просто для отображения самый простой вариант так:
Add(MainForm,14799719,336,154)
{
Width=946
Height=677
}
Add(Memo,16288828,455,140)
{
Left=5
Top=5
Width=390
Height=200
Strings=#542:следовательностей ДНК современных людей и в настоящий момент принимается большинством |
ScrollBars=2
}
Add(Button,11787822,399,217)
{
Left=400
Top=6
Width=20
Height=340
Caption="^
^"
link(onClick,13587278:doData,[])
}
Add(DoData,13587278,455,217)
{
link(onEventData,6670208:doFromText,[])
link(Data,16288828:Text,[])
}
Add(WebBrowser,6670208,574,189)
{
Left=490
Top=85
Width=335
Height=310
Point(doFromText)
}


карма: 2

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2009-12-27 21:49:56 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:07:45
карма: 0

0
Ответов: 1328
Рейтинг: 69
#6: 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
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)