Add(InlineCode,9855082,455,322)
{
 WorkPoints=#6:doWork|
 EventPoints=#4:Init|6:toBack|7:toFront|0:|
 VarPoints=#5:ResRD|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:   Rd:integer;|3:   |9:   public|36:   init, toBack, toFront: THI_Event;|45:   procedure ResRd(var dt:TData; Index:Word);|49:   procedure doWork(var _Data:TData; Index:Word);|3:   |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|5:BEGIN|29:  Rd := Trunc(toReal(_Data));|16:  If Rd<>0 then |8:   begin|44:   _hi_onEvent(init,Rd);  // установить дату|36:   _hi_onEvent(toBack);   // открыть|6:   end|40:  else _hi_onEvent(toFront);   // скрыть|4:END;|0:|28:procedure THiAsmClass.ResRd;|5:BEGIN|19:  dtInteger(dt,Rd);|5:END; |4:end.|
}