Add(MainForm,12527415,140,266)
{
 Width=507
 Height=294
 link(onCreate,15051770:e,[])
}
Add(ChildScrollBox,14545733,224,217)
{
}
BEGIN_SDK
  Add(EditMulti,14666267,21,21)
  {
   VarCount=1
   link(Var1,2307876:Handle,[(27,203)(195,203)])
  }
  Add(ScrollBox,2307876,175,154)
  {
   Left=75
   Top=15
   Width=370
   Height=60
   Point(Handle)
  }
END_SDK
Add(ChildPanel,5570928,273,217)
{
}
BEGIN_SDK
  Add(EditMulti,1668785,21,21)
  {
   VarCount=1
   link(Var1,6891059:Var1,[(27,179)(167,179)])
  }
  Add(Panel,870816,63,105)
  {
   Left=25
   Top=95
   Width=460
   Height=150
  }
  Add(ChildScrollBox,6891059,161,105)
  {
  }
  BEGIN_SDK
    Add(EditMulti,14666267,21,21)
    {
     VarCount=1
     link(Var1,2307876:PHandle,[(27,179)(111,179)])
    }
    Add(ScrollBox,2307876,91,105)
    {
     Left=55
     Top=35
     Width=370
     Height=60
     Point(PHandle)
    }
    Add(Label,15661591,182,133)
    {
     Left=100
     Top=15
     Width=100
     Height=55
     Color=-16777207
     AutoSize=1
     Point(Handle)
     link(onClick,8577227:doMove,[])
    }
    Add(MoveWindow,8577227,238,133)
    {
     link(Handle,15661591:Handle,[(244,121)(220,121)(220,177)(195,177)])
    }
  END_SDK
END_SDK
Add(InlineCode,15051770,273,280)
{
 WorkPoints=#1:e|
 DataPoints=#1:r|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,windows,messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|16:    pc:PControl;|22:    OldMes:TOnMessage;|66:    function NoVScrollBar(var Msg:TMsg; var Rslt:Integer):Boolean;|9:   public|16:    r:THI_Event;|42:    procedure e(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.e;|5:begin|35: pc := PControl(ToIntegerEvent(r));|30: pc.OnMessage := NoVScrollBar;|4:end;|0:|35:procedure THiAsmClass.NoVScrollBar;|5:begin|71: if Msg.WParam = WM_CREATE then ShowScrollBar(pc.Handle,sb_Vert,false);|42: Result := _hi_OnMessage(OldMes,Msg,Rslt);|4:end;|0:|4:end.|
 link(r,5570928:Var1,[])
}