Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2020-10-23 19:11:52 ЛС | профиль | цитата
Work, при запуске и закрытии программы открывается и сохраняются результаты в файле SetNumbers.ini
Пример


Add(MainForm,2953706,42,112)
{
Width=248
Height=119
Caption="Random number"
Point(onClose)
link(onCreate,7735296:doEvent1,[(88,132)(88,146)])
link(onClose,7675430:doSave,[(179,139)(179,153)])
}
Add(Button,8429454,42,175)
{
Left=5
Top=10
Width=65
Caption="New Set"
link(onClick,7697394:doEvent1,[])
}
Add(StrList,7675430,196,112)
{
FileName="SetNumbers.ini"
Point(doGetString)
Point(onGetString)
link(onGetString,10475178:doText,[])
}
Add(Button,5058852,41,210)
{
Left=90
Top=10
Width=65
Caption="Next Numb"
Data=Integer(0)
link(onClick,8326362:doEvent1,[])
}
Add(Hub,7697394,84,175)
{
link(onEvent1,7675430:doClear,[(109,181)(109,125)])
link(onEvent2,3957576:doRandomWithoutRepeats,[(109,188)(109,195)])
}
Add(Random,3957576,126,175)
{
Max=999
Point(doRandomWithoutRepeats)
link(onRandom,7675430:doAdd,[(165,181)(165,118)])
}
Add(Edit,10475178,245,119)
{
Left=165
Top=10
Height=30
Font=[MS Sans Serif,12,1,0,1]
Text=""
DataType=2
ReadOnly=0
ClearAfterEnter=1
}
Add(Label,2738458,245,224)
{
Left=5
Top=45
Width=48
Height=24
Font=[MS Sans Serif,12,1,0,1]
}
Add(Hub,8326362,91,210)
{
OutCount=3
link(onEvent1,7675430:doGetString,[(179,216)(179,160)])
link(onEvent2,7675430:doDelete,[(172,223)(172,132)])
link(onEvent3,9972055:doWork2,[])
}
Add(FormatStr,14898560,196,224)
{
DataCount=1
Mask="Numbers left %1 "
link(onFString,2738458:doText,[])
link(Str1,7675430:Count,[(202,173)(209,173)])
}
Add(Hub,7735296,126,140)
{
OutCount=3
link(onEvent1,7675430:doLoad,[])
link(onEvent2,3957576:doRandomize,[(151,153)(151,167)(116,167)(116,188)])
link(onEvent3,9972055:doWork1,[(158,160)(158,167)(186,167)])
}
Add(HubEx,9972055,182,224)
{
link(onEvent,14898560:doString,[])
}

карма: 19

0