Add(MainForm,2953706,77,147)
{
 Point(onDblClick)
 link(onDblClick,8567386:doWork,[])
}
Add(PopupMenuEx,7262289,231,154)
{
 Menu=#10:Медосмотр.|15:Разряды\Звания.|9:Переводы.|18:Поощрения\Награды.|13:Соревнования.|1:-|10:Закончить.|
 Font=[Consolas,11,1,0,204]
 Bitmaps=[]
 Point(doIdxEnabled)
 Point(doEnablIdx)
}
Add(GlobalVar,4553378,154,133)
{
 Name="FlagParol"
 Data=Integer(0)
}
Add(InlineCode,8567386,154,168)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onPopUp|4:onEn|5:onDis|
 DataPoints=#4:Flag|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|38:     onPopUp, onEn, onDis : THI_Event;|22:     Flag : THI_Event;|51:     Procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|30:Procedure  THiAsmClass.doWork;|14:var i:integer;|5:Begin|31: if toIntegerEvent(Flag)=1 then|41:     for i:=0 to 4 do _hi_onEvent(onEn,i)|9:     else|44:      for i:=0 to 4 do _hi_onEvent(onDis,i);|33:    _hi_onEvent(onPopUp);        |4:end;|0:|4:end.|
 link(onPopUp,7262289:doPopupHere,[(212,174)(212,160)])
 link(onEn,7262289:doIdxEnabled,[])
 link(onDis,7262289:doEnablIdx,[])
 link(Flag,4553378:Var,[])
}