Вверх ↑
Ответов: 1043
Рейтинг: 33
#1: 2012-08-28 21:13:40 ЛС | профиль | цитата
[flood]
Cosinus писал(а):
Если скажет, что нужно делать это программно, то человек СТО процентов пишет "бяку"
[/flood]
------------ Дoбавленo в 21.13:
[offtop]вот, например как альтернатива[/offtop]
Add(MainForm,2953706,105,91)
{
Width=291
Height=371
Position=1
}
Add(ListBox,5795465,315,91)
{
Width=275
Height=240
Align=2
Point(Index)
}
Add(Button,8913586,168,91)
{
Left=5
Top=245
Width=120
Height=30
Caption="Добавить"
link(onClick,8406012:doExecute,[])
}
Add(Button,5208086,168,154)
{
Left=150
Top=245
Width=120
Height=30
Caption="Удалить"
link(onClick,16540020:doData,[])
}
Add(Button,10544620,168,231)
{
Top=293
Width=275
Height=40
Align=4
Caption="Старт"
link(onClick,6497952:doTimer,[])
}
Add(ODialog,8406012,245,91)
{
Filter="Исполнимый файл|*.exe"
Title="Выбор программы"
FileName=""
link(onExecute,5795465:doAdd,[])
}
Add(DoData,16540020,238,154)
{
link(onEventData,5795465:doDelete,[(292,160)(292,111)])
link(Data,5795465:Index,[(244,145)(342,145)])
}
Add(EnumProcess,10969971,441,210)
{
Point(onFind)
Point(doFindName)
link(onFind,9218513:doEvent1,[])
}
Add(Timer,6497952,273,231)
{
Enable=1
link(onTimer,2385031:doEnum,[])
}
Add(ArrayEnum,2385031,329,231)
{
link(onItem,7866892:doPart,[])
link(Array,5795465:Array,[])
}
Add(FilePartElm,7866892,385,231)
{
link(onPart,10969971:doFindName,[])
}
Add(Hub,9218513,497,217)
{
link(onEvent1,10969971:doKill,[(567,223)(567,282)(429,282)(429,230)])
link(onEvent2,4570629:doMessage,[])
}
Add(Message,4570629,525,224)
{
Message="Стой, а то убъет!"
Caption="GameLocker"
Icon=3
}


карма: 0

0