Add(MainForm,14149827,119,238)
{
}
Add(CheckBox,15349416,196,161)
{
 Left=15
 Top=15
 Width=90
 TabOrder=-1
 Caption="1"
 link(onCheck,5461129:doWork2,[])
}
Add(CheckBox,5883062,203,168)
{
 Left=15
 Top=35
 Width=90
 TabOrder=-1
 Caption="2"
 link(onCheck,6258532:doWork2,[])
}
Add(CheckBox,10363184,210,175)
{
 Left=15
 Top=55
 Width=90
 TabOrder=-1
 Caption="3"
 link(onCheck,16711658:doWork2,[])
}
Add(CheckBox,7843476,217,182)
{
 Left=15
 Top=75
 Width=90
 TabOrder=-1
 Caption="4"
 link(onCheck,5274422:doWork2,[])
}
Add(CheckBox,15219868,224,189)
{
 Left=15
 Top=95
 Width=90
 TabOrder=-1
 Caption="5"
 link(onCheck,5274422:doWork3,[(276,195)])
}
Add(InlineCode,1946220,196,238)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 DataPoints=#3:cb1|3:cb2|3:cb3|3:cb4|3:cb5|
 Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|43:     cb1,cb2,cb3,cb4,cb5,onRes : THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|14:var i:integer;|16:    ss,s:string;|5:BEGIN|116:    ss:= toStringEvent(cb1) + toStringEvent(cb2) + toStringEvent(cb3) + toStringEvent(cb4) + toStringEvent(cb5);    |65:    for i:=1 to 5 do if ss[i]='1' then s:=s + int2str(i) + ' - ';|29:    SetLength(s,Length(s)-3);|25:    _hi_onEvent(onRes,s);|35:    ShowMessage(s);                |4:END;|0:|4:end.|
 link(cb1,15349416:Checked,[])
 link(cb2,5883062:Checked,[])
 link(cb3,10363184:Checked,[])
 link(cb4,7843476:Checked,[])
 link(cb5,15219868:Checked,[])
}
Add(HubEx,5274422,272,182)
{
 Angle=3
 link(onEvent,16711658:doWork3,[])
}
Add(HubEx,16711658,272,175)
{
 Angle=3
 link(onEvent,6258532:doWork3,[])
}
Add(HubEx,6258532,272,168)
{
 Angle=3
 link(onEvent,5461129:doWork3,[])
}
Add(HubEx,5461129,272,161)
{
 link(onEvent,1946220:doTest,[(328,167)(328,283)(184,283)(184,244)])
}