Вверх ↑
Ответов: 758
Рейтинг: 112
#1: 2016-08-09 09:33:15 ЛС | профиль | цитата
sla8a, Думаю что каким-то образом каретка удаляется!!! Если повторно создать, то все норм. Только высоту правильно подобрать нужно
Add(PaintBox,2386737,126,126)
{
Left=285
Top=165
Color=65535
Point(onMouseDown)
link(onMouseDown,11082074:doEvent1,[])
}
Add(ScrollBar,4764953,126,84)
{
Left=285
Top=125
link(onPosition,781881:doWork1,[])
}
Add(Edit,8864697,378,70)
{
Left=535
Top=130
Point(doVisible)
Point(Handle)
Point(doSetFocus)
}
Add(ChanelToIndex,781881,308,84)
{
link(onIndex,8864697:doVisible,[])
}
Add(InlineCode,13982809,385,140)
{
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, 1, 20);|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(Hub,11082074,196,133)
{
link(onEvent1,781881:doWork2,[(233,139)(233,97)])
link(onEvent2,13982809:doShowCaret,[])
}
карма: 1

1
Голосовали:sla8a