Вверх ↑
Ответов: 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