Add(MainForm,2953706,98,161)
{
 Height=338
 link(onCreate,10613388:doInit,[])
}
Add(Memo,6725705,168,98)
{
 Left=20
 Top=15
 Width=350
 Height=220
 Strings=#86:aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:3|0:|2:e3|5:fgdfg|7:fthdfth|8:fdtfdhfd|5:ffdhd|5:fhdft|7:ftsdtys|7:sdsdsds|6:dssdsd|8:dsrsdrds|
 ScrollBars=3
 Point(PHandle)
}
Add(InlineCode,10613388,189,175)
{
 WorkPoints=#6:doInit|
 EventPoints=#9:onHScroll|9:onVScroll|
 DataPoints=#7:PHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|96:     procedure _OnScroll(Sender: PControl; Bar: TScrollerBar; ScrollCmd: DWORD; ThumbPos:DWORD);|9:   public|46:     onHScroll, onVScroll, PHandle: THI_Event;|51:     procedure doInit(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doInit;|3:var|21:  sControl: PControl;|5:begin|49:  sControl := PControl(ToIntegerEvent(PHandle)); |38:  if not Assigned(sControl) then exit;|33:  sControl.onScroll := _OnScroll;|4:end;|0:|32:procedure THiAsmClass._OnScroll;|5:begin|28:  if Bar = sbHorizontal then|45:    _hi_onEvent(onHScroll, integer(ThumbPos))|6:  else|46:    _hi_onEvent(onVScroll, integer(ThumbPos));|4:end;|0:|4:end.|
 link(PHandle,6725705:PHandle,[])
 link(onHScroll,10052128:doStrCat,[(228,181)(228,139)])
 link(onVScroll,4956732:doStrCat,[])
}
Add(Label,5289392,301,133)
{
 Left=25
 Top=245
 Height=17
 Caption="H: 0"
 AutoSize=1
}
Add(Label,8889748,301,182)
{
 Left=25
 Top=265
 Caption="V: 0"
 AutoSize=1
}
Add(StrCat,10052128,245,133)
{
 Str1="H: "
 link(onStrCat,5289392:doText,[])
}
Add(StrCat,4956732,245,182)
{
 Str1="V: "
 link(onStrCat,8889748:doText,[])
}