Add(InlineCode,15314173,182,154)
{
 WorkPoints=#20:doHandleCurrentFocus|
 EventPoints=#5:onRes|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:    onRes:THI_Event;|0:|61:    procedure doHandleCurrentFocus(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|43:procedure THiAsmClass.doHandleCurrentFocus;|25:var gti:tagGUITHREADINFO;|5:begin|40: gti.cbSize := sizeof(tagGUITHREADINFO);|66: if GetGUIThreadInfo(0,gti) then _hi_OnEvent(onRes,gti.hwndFocus);|4:end;|0:|4:end.|
 link(onRes,16136627:doText,[])
}
Add(Timer,15945715,133,154)
{
 Interval=50
 link(onTimer,15314173:doHandleCurrentFocus,[])
}
Add(Label,16136627,231,154)
{
 Left=10
 Top=20
}