Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-11-06 08:53:47 ЛС | профиль | цитата
Work писал(а):
Не то чтоб это напрягает, просто интересно, можно ли убрать эти моргания.
Можно. Убрать все Timer.
Оставить один для Label, которая "Сегодня ХХ-ХХ-ХХХХ года".
Обрати внимание на колонку Count в окне Debug

Add(MainForm,2953706,21,105)
{
Width=510
Height=123
Position=1
}
Add(MultiElementEx,12322509,77,105)
{
link(Текущая_ДатаВремя,4890042:doEvent,[])
link(ИзменилсяДень_Пересчитать,664302:doEvent,[(128,118)(128,153)])
}
BEGIN_SDK
Add(EditMultiEx,3500381,21,21)
{
EventCount=#17:Текущая_ДатаВремя|25:ИзменилсяДень_Пересчитать|
Width=398
Height=165
VOffset=7
}
Add(Time,13287740,105,28)
{
Format="h:m:s"
Point(DateTime)
Point(DateInt)
}
Add(DateConvertor,3839408,112,84)
{
Mode=9
Format="Сегодня dddd d MMMM yyyy года. Время: Hч.mmм.ssс."
Point(Data)
link(onResult,3500381:Текущая_ДатаВремя,[(243,90)(243,34)])
link(Data,13287740:DateTime,[])
}
Add(Timer,8365301,35,84)
{
link(onTimer,13710104:doEvent1,[])
}
Add(ChangeMon,11797407,161,119)
{
link(onData,3422921:doValue,[])
link(Data,13287740:DateInt,[(167,74)(125,74)])
}
Add(Hub,13710104,77,84)
{
link(onEvent1,3839408:doConvert,[])
link(onEvent2,11797407:doData,[(100,97)(100,125)])
}
Add(Ini,7827951,259,119)
{
@Hint=#7:6.Оклад|
FileName="files\~ut"
Section="ch"
Key="12s"
Type=1
link(onResult,6634954:doOperation,[])
}
Add(Math,1908895,357,119)
{
OpType=1
ResultType=0
link(onResult,3500381:ИзменилсяДень_Пересчитать,[(397,125)(397,41)])
link(Op1,3422921:Value,[(363,106)(248,106)(248,163)(216,163)])
}
Add(Memory,3422921,210,119)
{
link(onData,7827951:doRead,[])
}
Add(Math,6634954,308,119)
{
OpType=37
Op2=1
ResultType=0
link(onResult,1908895:doOperation,[])
}
END_SDK
Add(Label,12235342,168,105)
{
Left=25
Top=10
Width=4
Height=4
Font=[MS Sans Serif,10,1,16711680,1]
Caption=""
}
Add(Label,6459474,168,147)
{
Left=130
Top=50
Width=4
Height=4
Font=[MS Sans Serif,10,1,0,1]
Caption=""
}
Add(Debug,664302,140,147)
{
link(onEvent,6459474:doText,[])
}
Add(Debug,4890042,140,105)
{
link(onEvent,12235342:doText,[])
}
Add(Label,15411341,77,154)
{
Left=25
Top=50
Width=97
Height=17
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Дней по смете:"
}

Перезапись в ini и пересчёт результатов каждую секунду - это бесспорно изобретение века! ИМХО.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 4 раз(а), последний 2017-11-06 09:56:46