Add(MainForm,2953706,21,105)
{
 Width=738
 Height=443
 Position=1
}
Add(Memo,2657654,217,98)
{
 Left=5
 Top=10
 Width=705
 Height=370
 ScrollBars=2
 Point(Handle)
}
Add(InlineCode,11970995,238,252)
{
 @Hint=#44:Изменение ограничения на длину текста в Memo|
 WorkPoints=#10:doGetLimit|10:doSetLimit|
 EventPoints=#8:onResult|
 DataPoints=#6:Handle|5:Count|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug, Windows, Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|30:     Handle, Count: THI_Event;|28:     onResult: THI_Event;   |57:     procedure doGetLimit(var _Data: TData; Index: Word);|57:     procedure doSetLimit(var _Data: TData; Index: Word);|5: end;|0:|14:implementation|0:|0:|0:|65:procedure THiAsmClass.doGetLimit(var _Data: TData; Index: Word); |3:var|13:  H: Integer;|5:begin|37:  H := ReadInteger(_Data, Handle, 0);|75:  _hi_CreateEvent(_Data, @onResult, SendMessage(H, EM_GETLIMITTEXT, 0, 0));|4:end;|0:|64:procedure THiAsmClass.doSetLimit(var _Data: TData; Index: Word);|3:var|16:  H, C: Integer;|5:begin|37:  H := ReadInteger(_Data, Handle, 0);|36:  C := ReadInteger(_Data, Count, 0);|40:  SendMessage(H, EM_SETLIMITTEXT, C, 0);|4:end;|0:|0:|4:end.|
 link(onResult,7414586:doMessage,[])
 link(Handle,2657654:Handle,[])
 link(Count,10365575:Text,[])
}
Add(Button,4958311,140,252)
{
 Left=10
 Top=385
 Caption="GetLimit"
 link(onClick,11970995:doGetLimit,[])
}
Add(Message,7414586,287,252)
{
 Caption="Current limit"
}
Add(Button,12506795,175,259)
{
 Left=85
 Top=385
 Caption="SetLimit"
 link(onClick,11970995:doSetLimit,[])
}
Add(Edit,10365575,245,175)
{
 Left=145
 Top=385
 Width=75
 Text="60000"
}