Add(MainForm,1744500,252,196)
{
 Width=169
 Height=108
 Color=32768
 Position=1
}
Add(Label,11088423,399,259)
{
 Left=62
 Top=35
 Width=28
 Height=20
 Font=[MS Sans Serif,10,1,16711680,1]
 Name="остаток"
 Transparent=0
 Caption="000"
 Alignment=2
 Point(doFont)
}
Add(Font,1713396,399,210)
{
 Font=[MS Sans Serif,18,1,16711680,1]
 link(onFont,11088423:doFont,[(441,216)(441,296)(387,296)(387,272)])
 link(Color,10385434:vColor,[(412,198)(385,198)(385,254)(349,254)])
}
Add(Hub,284675,301,252)
{
 link(onEvent1,10385434:doWork,[(328,258)(328,216)])
 link(onEvent2,11088423:doText,[])
}
Add(Edit,3091973,252,252)
{
 Left=55
 Top=10
 Text="100"
 DataType=2
 link(onChange,284675:doEvent1,[])
}
Add(Timer,2962736,154,252)
{
 Interval=50
 link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,203,252)
{
 Max=40
 link(onNext,3091973:doText,[])
}
Add(InlineCode,10385434,343,210)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 VarPoints=#6:vColor|
 Code=#15:unit HiAsmUnit;|17:// TAD 09.08.2018|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|18:   FColor:Integer;|9:   public|16:{ Event Points }|19: onRes : THI_Event;|0:|15:{ Work Points }|46:Procedure doWork(var _Data:TData; Index:word);|0:|14:{ Var Points }|46:Procedure vColor(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|15:{ Work Points }|30:Procedure  THiAsmClass.doWork;|5:Begin|25: Case toInteger(_Data) of|22: 1..15: FColor := 255;|24: 16..25:FColor := 65535;|27: else   FColor := 16711680;|5: end;|23: _hi_onEvent(onRes,'');|4:end;|0:|14:{ Var Points }|29:Procedure THiAsmClass.vColor;|5:Begin|26:  dtInteger(_Data,FColor);|4:end;|0:|4:end.|
 link(onRes,1713396:doFont,[])
}