Add(MainForm,13203656,196,161)
{
 link(onCreate,4435572:doNoScroll,[])
}
Add(ListBox,16135469,245,98)
{
 Left=10
 Top=10
 Width=370
 Height=100
 Strings=#6:etsete|6:serser|8:sersese4|10:ser5ser5se|10:serseserse|13:ser5se5ser5se|12:ser5se5serse|13:serser5ser5se|12:serser5serse|10:sersersese|15:ser44ser5ser5se|
 Point(PHandle)
}
Add(InlineCode,4435572,266,175)
{
 WorkPoints=#10:doNoScroll|
 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|0:|9:   public|24:     PHandle: THI_Event;|55:     procedure doNoScroll(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|33:procedure THiAsmClass.doNoScroll;|3:var|21:  FControl: PControl;|5:begin|48:  FControl := PControl(ToIntegerEvent(PHandle));|30:  If FControl = nil then exit;|67:  FControl. Style := FControl.Style and ($FFFFFFFF xor WS_VSCROLL);|4:end;|0:|4:end.|
 link(PHandle,16135469:PHandle,[])
}