Add(PaintBox,2386737,301,154)
{
 Left=10
 Top=50
 Color=65535
 Point(onMouseDown)
 link(onMouseDown,14837165:doEvent1,[])
}
Add(ScrollBar,4764953,301,112)
{
 Left=10
 Top=10
 link(onPosition,781881:doWork1,[])
}
Add(Edit,8864697,553,98)
{
 Left=180
 Top=15
 Point(doVisible)
 Point(Handle)
 Point(doSetFocus)
 Point(onSetFocus)
}
Add(ChanelToIndex,781881,483,112)
{
 link(onIndex,8864697:doVisible,[])
}
Add(InlineCode,13982809,560,175)
{
 WorkPoints=#11:doShowCaret|11:doHideCaret|
 EventPoints=#8:onResult|
 DataPoints=#6:Handle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,kol,Share,Debug,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:     Handle: THI_Event;|25:     onResult: THI_Event;|56:     procedure doShowCaret(var _Data:TData; Index:word);|56:     procedure doHideCaret(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doShowCaret;|3:var|9:  h:HWND;|5:begin|34:  h := ReadInteger(_Data, Handle);|29:  //CreateCaret(h, 0, 1, 20);|15:  ShowCaret(h);|27:   _hi_OnEvent(onResult,1);|4:end;|0:|34:procedure THiAsmClass.doHideCaret;|3:var|9:  h:HWND;|5:begin|34:  h := ReadInteger(_Data, Handle);|15:  HideCaret(h);|4:end;|0:|4:end.|
 link(Handle,8864697:Handle,[])
}
Add(Button,8856257,434,217)
{
 Left=85
 Top=50
}
Add(Hub,14837165,371,161)
{
 link(onEvent1,781881:doWork2,[(434,167)(434,125)])
 link(onEvent2,9463327:doTimer,[(441,174)(441,181)])
}
Add(Timer,9463327,497,175)
{
 Interval=10
 Enable=1
 AutoStop=99
 link(onTimer,13982809:doShowCaret,[])
}