Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2018-08-12 13:38:14 ЛС | профиль | цитата
А если на штатных элементах (в смысле - не выделываться), то достаточно двух: MathParse + Font
Add(MainForm,1744500,266,147)
{
Width=169
Height=108
Color=32768
}
Add(Label,11088423,483,210)
{
Left=62
Top=20
Width=40
Height=28
Font=[MS Sans Serif,22,1,16711680,1]
Name="остаток"
Transparent=0
Caption="000"
Alignment=2
Point(doFont)
}
Add(Font,1713396,420,217)
{
Font=[MS Sans Serif,22,1,0,1]
link(onFont,11088423:doFont,[])
}
Add(Hub,284675,315,203)
{
link(onEvent1,13415551:doCalc,[(340,209)(340,223)])
link(onEvent2,11088423:doText,[])
}
Add(Timer,2962736,217,203)
{
Interval=300
link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,266,203)
{
Max=40
link(onNext,284675:doEvent1,[])
}
Add(MathParse,13415551,364,217)
{
DataCount=1
MathStr="$FF0000 - (%1<=25)*$FE0001 - (%1<=15)*$00FF00"
link(onResult,1713396:doFont,[])
}
карма: 9

0
Редактировалось 1 раз(а), последний 2018-08-12 13:38:44