Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2006-12-04 12:17:13 ЛС | профиль | цитата
Астрамак, все "нетак".
code_674
Здесь (вроде) все так, но кнопку "Run Hic files"(onClick) соединишь с ArrayEnum(doEnum) на свой страх и риск


Add(MainForm,16121297,42,105)
{
Left=20
Top=105
Width=410
Height=338
}
Add(Button,1326150,35,14)
{
Left=355
Top=10
Width=25
Caption="..."
link(onClick,9971694:doBrowse,[])
}
Add(FileSearch,1141204,182,63)
{
Ext="*.hic"
link(onSearch,13784831:doAdd,[])
link(onEndSearch,4406999:doTimer,[(224,76)(224,114)(88,114)(88,139)])
link(Dir,5599763:Text,[])
}
Add(Browse,9971694,84,14)
{
link(onBrowse,12180130:doEvent1,[])
}
Add(Edit,5599763,189,14)
{
Left=15
Top=10
Width=335
Text=""
}
Add(ListBox,13784831,252,63)
{
Left=15
Top=40
Width=365
Height=205
link(onClick,13784831:doDelete,[(296,76)(296,119)(242,119)(242,83)])
}
Add(Hub,12180130,126,14)
{
link(onEvent1,5599763:doText,[])
link(onEvent2,1141204:doSearch,[(166,27)(166,69)])
}
Add(Button,6337510,210,133)
{
Left=15
Top=260
Width=365
Enabled=1
Caption="Run Hic files"
Point(doEnabled)
link(onClick,642187:doEnum,[])
}
Add(ArrayEnum,642187,266,133)
{
link(onItem,4763942:doExec,[])
link(Array,13784831:Array,[])
}
Add(WinExec,4763942,329,133)
{
RunEvent=1
}
Add(Counter,6874226,147,133)
{
Max=1
link(onNext,6337510:doEnabled,[(187,139)(187,139)])
}
Add(Timer,4406999,98,133)
{
Enable=1
link(onTimer,6874226:doNext,[])
}

[size=-2]------ Добавлено в 12:17
code_674 хотел удалить - не получилось. Так что копируй из тегов
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_674.txt [922B] [412]