Вверх ↑
Ответов: 817
Рейтинг: 52
#1: 2011-06-13 18:05:42 ЛС | профиль | цитата
code_24391.txt
Так проще, и не надо про индексы думать


Вот корявый способ но рабочий, уверен меня сторожилы поправят
Add(MainForm,9283942,21,28)
{
Width=414
Height=292
}
Add(Memo,2917524,210,126)
{
Left=20
Top=65
Width=353
Height=87
FileName="list.txt"
Strings=#9:ааааааааа|8:бббббббб|9:ввввввввв|9:ггггггггг|10:дддддддддд|
Point(PHandle)
Point(onShow)
Point(doSetSelLength)
Point(SelText)
link(onChange,8068688:doWork2,[])
}
Add(Edit,5491470,322,126)
{
Left=20
Top=160
Width=345
Text=""
link(Str,12264764:Text,[])
}
Add(Button,9180380,154,203)
{
Left=25
Top=25
Width=80
Caption="Копировать"
link(onClick,105489:doEvent1,[])
}
Add(Clipboard,12264764,322,77)
{
}
Add(ClipboardHook,2776912,238,203)
{
link(Text,2917524:SelText,[])
}
Add(Hub,105489,203,203)
{
link(onEvent1,2776912:doSetText,[])
link(onEvent2,8068688:doWork3,[(298,216)])
}
Add(HubEx,8068688,294,126)
{
link(onEvent,5491470:doText,[])
}


карма: 1

0
файлы: 1code_24391.txt [803B] [167]