Add(MainForm,2953706,273,168)
{
 Width=532
 Height=249
}
Add(Edit,8864697,441,119)
{
 Left=50
 Top=70
 Width=420
 Height=50
 Font=[MS Sans Serif,30,0,0,1]
 Point(doVisible)
 Point(Handle)
 Point(doSetFocus)
}
Add(InlineCode,13982809,448,168)
{
 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);|27:  CreateCaret(h, 0, 3, 45);|15:  ShowCaret(h);|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(StyleXP,9536927,273,126)
{
}
Add(Button,11285720,357,140)
{
 Left=55
 Top=40
 Caption="Жир"
 link(onClick,4000874:doEvent1,[])
}
Add(Hub,4000874,399,140)
{
 link(onEvent1,6776184:doWork2,[])
 link(onEvent2,13982809:doShowCaret,[(431,153)(431,174)])
}
Add(Button,5385097,357,98)
{
 Left=120
 Top=40
 Caption="Норм"
 link(onClick,6776184:doWork1,[(424,104)])
}
Add(HubEx,6776184,420,140)
{
 link(onEvent,8864697:doSetFocus,[])
}

#ini
[Property]
arg1=Значение первого аргумента для функций по умолчанию|1|0
arg2=Значение второго аргумента для функций по умолчанию|1|0
ShowAfterCreate=Делать каретку видимой после создании|14|1|False,True

[Methods]
doCreate=Создает новую каретку (используйте событие onSetFocus). Данные берутся из потока, если Bitmap - картинка, то arg1 и arg2 игнорируются, если вместо Bitmap=0 (черная каретка) или Bitmap=1 (серая каретка), то arg1 - ширина и arg2 - высота каретки. ARG(Bitmap,arg1,arg2)|1|
doDestroy=Уничтожает каретку (используйте событие onKillFocus).|1|
*doShow=Делает каретку видимой.|1|
*doHide=Скрывает каретку (Сокрытие накапливается. Если doHide пять раз подряд, должно также пять раз и doShow прежде, чем каретка отобразится).|1|
*doSetPosition=Перемещает каретку в заданные координаты. Значение arg1 и arg2 координата верхнего угла каретки. Каретка перемещается в независимости скрыта она или нет. ARG(arg1,arg2)|1|
*doGetPosition=Получает координаты позиции каретки и выдает из в onGetPosition.|1| 
*doSetBlinkTime=Устанавливает частоту мерцания каретки в миллисекундах. ARG(MSeconds)|1|
*doGetBlinkTime=Получения значения в миллисекундах мерцания каретки в onGetBlinkTime.|1|
onResult=Выдает результат: 1 - успешно, 0 - ошибка|2|
*onGetPosition=Событие происходит после doGetPosition и выдает позицию каретки ARG(arg1,arg2)|2|
*onGetBlinkTime=Событие происходит после doGetBlinkTime и выдает значение в миллисекундах мерцания каретки ARG(MSeconds)|2|
Handle=Определяет идентификатор|4|1
Bitmap=Картинка определяющая вид каретки или значения: 0, 1|4|11
arg1=Значение первого аргумента для функций|4|1
arg2=Значение второго аргумента для функций|4|1