Вверх ↑
Разработчик
Ответов: 26305
Рейтинг: 2146
#1: 2009-04-30 01:20:48 ЛС | профиль | цитата
Добавлено -- StatusRun в ServiceTools
------------ Дoбавленo в 02.45:
Добавлено -- EnumService

Пример применения:



Add(MainForm,2953706,175,287)
{
Width=426
Height=381
Caption="EnumService"
}
Add(ServiceTools,11757640,273,315)
{
Point(onEnumService)
Point(doEnumService)
Point(doStatusRun)
Point(onStatusRun)
Point(StatusRun)
link(onEnumService,3525371:doString,[])
link(onStatusRun,16756612:doCase,[(335,349)(335,405)])
}
Add(Button,16745343,175,336)
{
Left=150
Top=315
Width=120
TabOrder=-1
Caption="EnumService"
link(onClick,10410667:doEvent1,[])
}
Add(Hub,10410667,224,336)
{
link(onEvent1,487643:doClear,[(248,342)(248,302)(414,302)(414,349)])
link(onEvent2,11757640:doEnumService,[])
}
Add(FormatStr,3525371,364,336)
{
Mask="%1;%2"
link(onFString,487643:doAdd,[])
link(Str2,11757640:StatusRun,[(377,324)(328,324)(328,372)(279,372)])
}
Add(MultiStrData,6303732,483,336)
{
link(Str,487643:Select,[(489,324)(465,324)(465,386)(440,386)])
link(onPart1,2192173:doValue,[])
}
Add(StringTable,487643,427,336)
{
Left=10
Top=10
Width=395
Height=290
Columns=#16:Service Name=300|12:StatusRun=70|
Point(onMouseMove)
link(onClick,6303732:doSplit,[])
}
Add(FormatStr,1377730,532,406)
{
Mask="Service %1 %2Run"
link(onFString,2953706:doCaption,[(586,412)(586,273)(162,273)(162,293)])
link(Str1,2192173:Value,[])
}
Add(Memory,2192173,532,336)
{
link(onData,11757640:doStatusRun,[(574,342)(574,393)(261,393)(261,356)])
}
Add(HubEx,6501061,483,399)
{
link(onEvent,1377730:doString,[])
}
Add(Case,16756612,364,399)
{
Value=String(0)
DataOnTrue=String(Not )
link(onNextCase,12448255:doCase,[])
link(onTrue,6501061:doWork3,[(411,412)(411,440)(487,440)])
}
Add(Case,12448255,427,399)
{
Value=Integer(1)
DataOnTrue=String()
link(onTrue,6501061:doWork2,[])
}

карма: 22

2
Голосовали:filyaxxxcom, Konst