Вверх ↑
Ответов: 3889
Рейтинг: 362
#1: 2011-07-04 14:05:46 ЛС | профиль | цитата
Ой, не заметил избыточности
------------ Дoбавленo в 14.05:
Вариант с реестром, подчищающий после себя ключ.

Add(ChildPanel,342224,294,168)
{
link(onEvent1,2412780:doCaption,[(334,174)(334,146)(201,146)(201,160)])
link(onEvent2,2412780:doClose,[(335,181)(335,209)(201,209)(201,181)])
}
BEGIN_SDK
Add(EditMulti,13488098,21,21)
{
EventCount=2
WorkCount=1
Width=748
Height=319
link(doWork1,10451664:doWork2,[(45,27)(45,164)])
}
Add(Panel,10123606,119,98)
{
Width=392
Height=31
Align=2
Point(doVisible)
}
Add(Edit,11466551,308,98)
{
Left=195
Top=5
Width=30
Text="0"
DataType=2
Point(doSetFocus)
Point(doSelectAll)
link(onEnter,10286314:doCalc,[])
}
Add(Edit,9028684,238,98)
{
Left=145
Top=5
Width=25
Text="0"
DataType=2
Point(doSetFocus)
Point(doSelectAll)
link(onEnter,9500015:doEvent1,[(275,111)(275,118)])
}
Add(Edit,32538,168,105)
{
Left=90
Top=5
Width=30
Text="0"
DataType=2
Point(doSetFocus)
link(onEnter,16524335:doEvent1,[])
}
Add(Label,16602133,175,42)
{
Left=5
Top=5
Width=80
Caption="Закрыть через"
}
Add(Label,1783742,217,42)
{
Left=120
Top=5
Width=25
Caption="час"
}
Add(Label,155614,266,42)
{
Left=170
Top=5
Width=25
Caption="мин"
}
Add(Label,8390051,315,42)
{
Left=225
Top=5
Width=25
Caption="сек"
}
Add(Hub,16524335,210,112)
{
link(onEvent1,9028684:doSetFocus,[])
link(onEvent2,9028684:doSelectAll,[])
}
Add(Hub,9500015,280,112)
{
link(onEvent1,11466551:doSetFocus,[])
link(onEvent2,11466551:doSelectAll,[])
}
Add(Time,8795715,532,231)
{
Point(DateTime)
}
Add(MathParse,10286314,357,105)
{
DataCount=4
MathStr="%1 + %2/24 + %3/1440 + %4/86400"
link(onResult,6119088:doEvent1,[])
link(X1,9296710:Var1,[(363,97)(393,97)(393,271)])
link(X2,32538:Text,[(370,91)(352,91)(352,148)(174,148)])
link(X3,9028684:Text,[(377,87)(347,87)(347,145)(244,145)])
link(X4,11466551:Text,[(384,84)(343,84)(343,142)(314,142)])
}
Add(GetDataEx,9296710,539,266)
{
link(Data,8795715:DateTime,[])
}
Add(Hub,6119088,399,105)
{
OutCount=3
link(onEvent1,5309022:doWork1,[(571,111)])
link(onEvent2,10028357:doWrite,[(448,118)(448,132)])
link(onEvent3,10451664:doWork1,[(434,125)])
}
Add(If_else,6648493,504,175)
{
Type=5
Op2=Real(0)
link(onTrue,12494487:doEvent1,[])
link(onFalse,10836403:doWork2,[(541,188)(541,215)(65,215)(65,118)])
}
Add(ChanelToIndex,10836403,77,105)
{
link(onIndex,10123606:doVisible,[])
}
Add(Hub,12494487,546,175)
{
link(onEvent1,5309022:doWork2,[])
link(onEvent2,10836403:doWork1,[(568,188)(568,219)(59,219)(59,111)])
}
Add(Memory,10954717,581,175)
{
Default=Real(0)
}
Add(HubEx,5309022,567,175)
{
link(onEvent,10954717:doValue,[])
}
Add(Timer,12680090,490,287)
{
link(onTimer,6074697:doCalc,[])
}
Add(MathParse,6074697,539,287)
{
MathStr="(%2 - %1)*86400"
ResultType=0
link(onResult,11600711:doCompare,[])
link(X1,9296710:Var2,[])
link(X2,10954717:Value,[(552,271)(587,271)])
}
Add(If_else,11600711,581,287)
{
Type=2
Op2=Integer(0)
link(onTrue,5523744:doString,[(621,293)(621,237)])
link(onFalse,13519132:doEvent1,[])
}
Add(FormatStr,5523744,630,231)
{
DataCount=1
Mask="До закрытия осталось %1 сек"
link(onFString,13488098:onEvent1,[(671,237)(671,27)])
}
Add(Registry,10028357,490,119)
{
@Hint=#8:RegWrite|
HKey=1
Key="SoftwareTimeBombBoomTime"
Value="boom"
DataType=2
AddHint(-39,-41,60,13,@Hint)
}
Add(Registry,16218840,455,175)
{
HKey=1
Key="SoftwareTimeBombBoomTime"
Value="boom"
DataType=2
Point(doExistsValue)
link(onRead,6648493:doCompare,[])
}
Add(Registry,15011602,672,280)
{
HKey=1
Key="SoftwareTimeBombBoomTime"
Value="boom"
DataType=2
Point(doDeleteKey)
}
Add(Hub,13519132,623,294)
{
link(onEvent1,15011602:doDeleteKey,[])
link(onEvent2,13488098:onEvent2,[(738,307)(738,34)])
}
Add(HubEx,10451664,430,158)
{
Angle=1
link(onEvent,16218840:doRead,[(434,181)])
}
END_SDK
Add(MainForm,2412780,210,154)
{
Position=1
Point(onClose)
link(onCreate,342224:doWork1,[])
}


карма: 1

0