Add(MainForm,5888945,203,35)
{
}
Add(ProgressBarRush,3433553,392,77)
{
 Left=25
 Top=80
 Width=325
}
Add(InlineCode,9268460,308,77)
{
 WorkPoints=#6:doWork|
 EventPoints=#10:onProgress|0:|
 DataPoints=#6:Param1|6:Param2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|8:        |10:    public|21:   Param1: THI_Event;|22:   Param2: THI_Event; |23: onProgress: THI_Event;|3:   |49:  Procedure doWork(var _Data:TData; Index:Word); |0:|5: end;|0:|2:  |15: implementation|0:|3:   |30:Procedure THiAsmClass.doWork; |5: var |19:Count,LEn: Integer;|0:|5:begin|33:Count:= ToIntegerEvent ( Param1);|31:LEn:= ToIntegerEvent ( Param2);|55:   _hi_OnEvent(onProgress,Round((LEn / Count) * 100)); |7:   end;|0:|0:|4:end.|
 link(onProgress,3433553:doPosition,[])
}